Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
ВнизУдаление файлов. Найти похожие ветки
← →
igorr (2002-03-24 07:11) [0]Люди добрые помогите разобраться.
Следующий код почему-то у меня не работает.
procedure TForm1.ToRecycle(AHandle:THandle;DelFile:String);
var
ShFileOpStruct:TShFileOpStruct;
begin
with ShFileOpStruct do
begin
Wnd:=AHandle;
wFunc:=FO_DELETE;
pFrom:=PChar(DelFile);
fFlags:=FOF_ALLOWUNDO;
end;
ShFileOperation(ShFileOpStruct);
end;
DelFile получаю следующим образом:
...
FindResult:=FindFirst(DirName+FileName,faAnyFile,FSearchRec);
...
ToRecycle(FSearchRec.FindHandle,DirName+FSearchRec.Name);
Подскажите, как можно еще удалять файлы?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c