буфер обмена [D6]
zoro © (2002-12-13 14:42:00)
привет народ
как сделать не через memo а через буфер обмена
спасибо
var
DriveList: TStringList;
i: Integer;
begin
try
Stopped:=False;
Memo1.Lines.Clear;
Screen.Cursor:=crHourGlass;
DriveList:=TStringList.Create;
try
GetFixedDriveList(DriveList);
for i:=0 to DriveList.Count - 1 do
FindFiles(DriveList[i], "tesko.txt",memo1.lines);
finally
DriveList.Free;
Screen.Cursor:=crDefault;
end;
except
if not (ExceptObject is EAbort) then raise;
end;
rrrex (2002-12-14 00:30:00) [1]
можно и без буфера.
главное ,приложение должно быть без формы.
Наверх 
ЧАТ |
Орешник |
|
