Как удалить дирикторию со всеми находяшимися в ней файлами ?

← →
DeMoN-777 © (2002-07-28 16:01) [0]

← →
DeMoN-777 © (2002-07-28 17:06) [1]

???

← →
SPeller © (2002-07-28 17:13) [2]

Вирь пишешь? Хочешь что-то вроде DELETE C:\WINDOWS ???
:)

← →
VEG © (2002-07-28 18:06) [3]

Вот тебе функция для этих целей:

function DeleteDir(Dir : string) : boolean;// Удалить каталог со всем содержимым Var Found : integer; SearchRec : TSearchRec; begin result:=false; if IOResult<>0 then ; ChDir(Dir); if IOResult<>0 then begin ShowMessage("Не могу войти в каталог: "+Dir); exit; end; Found := FindFirst("*.*", faAnyFile, SearchRec); while Found = 0 do begin if (SearchRec.Name<>".")and(SearchRec.Name<>"..") then if (SearchRec.Attr and faDirectory)<>0 then begin if not DeleteDir(SearchRec.Name) then exit; end else if not DeleteFile(SearchRec.Name) then begin ShowMessage("Не могу удалить файл: "+SearchRec.Name); exit; end; Found := FindNext(SearchRec); end; FindClose(SearchRec); ChDir(".."); RmDir(Dir); result:=IOResult=0; end;

-<>-<>-<>-<>-<<<Фраза>>>-<>-<>-<>-<>-
Зверь, самый лютый, жалости не чужд.
Я чужд. Значит я не зверь.

← →
Falmer (2002-07-28 23:04) [4]

>VEG © (28.07.02 18:06)
>-<>-<>-<>-<>-<<<Фраза>>>-<>-<>-<>-<>-
>Зверь, самый лютый, жалости не чужд.
>Я чужд. Значит я не зверь.

ты так часто это говориш что
пониволе начинеш сомневаться.
:D

← →
Извращенец © (2002-07-28 23:06) [5]

> VEG

авторские права слабо предъявить?

← →
VEG © (2002-07-28 23:07) [6]

>Falmer
:-)
Это просто подпись...

← →
VEG © (2002-07-28 23:09) [7]

>Извращенец
Очень смешно!

Спасибо, вирус готов =)

← →
alena.svt (2002-07-29 23:28) [9]

> VEG ©
Работала твоя функция отлично! На buutonClick ее вызывала а папка в Edit вводилась и вот UPX"ом запаковала прогу в Edit пусто было на button кликнула она говорит "НЕ могу удалит UPXshell.exe" я не поняла Upx закрыла потом еще раз кликнула > завернуло прогу.
А смешно было UPX"a не стало!
Толко как и почему????
Прикольно.

:-)

Как удалить дирикторию со всеми находяшимися в ней файлами ? Найти похожие ветки