Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

буфер обмена   Найти похожие ветки 

← →
zoro   (2002-12-13 14:42) [0]

привет народ
как сделать не через 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) [1]

можно и без буфера.
главное ,приложение должно быть без формы.

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c