буфер обмена

← →
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]

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

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