Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.027 c
14-51432
sapsi
2003-09-25 13:24
2003.10.16
Ремонт квартиры


1-51232
Sandman25
2003-10-03 17:04
2003.10.16
Опасное приведение типов


7-51543
Duncan
2003-08-04 09:49
2003.10.16
Можно ли определить количество оперативки?


14-51500
MIKL
2003-09-28 12:13
2003.10.16
Помогите люди добрые!


1-51212
Shoorik
2003-10-04 11:28
2003.10.16
О месте Delphi, среди систем разработки приложений.