Форум: "WinAPI";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Вниз
буфер обмена Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c