Скачать: CL | DM;

Удаление из каталога все, что можно удалить   Найти похожие ветки 

← →
ShaPka   (2003-09-26 23:27) [0]

Прошу написать, как удалить из указанного каталога все файлы и подкаталоги без лишних запросов...

---

← →
Ihor Osov'yak ©   (2003-09-26 23:40) [1]



uses
...
windows,
ShellAPI,
...
;

Function DeleteFolder (folderName: string): boolean;
(*returns true unless error or user abort*)
Var
r: TshFileOpStruct;
i: integer;
Begin
folderName := folderName+#0#0;
result := false;

i := GetFileAttributes(PChar(folderName));
if (i = -1) or (i and FILE_ATTRIBUTE_DIRECTORY = 0) then EXIT;

fillchar(r, sizeof(r), 0);
r.wFunc := FO_DELETE;
r.pFrom := pChar(folderName);
r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;

result := (0 = ShFileOperation(r)) and (not r.fAnyOperationsAborted);
End;

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c