Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
DeMoN-777   (2002-07-29 09:20) [8]

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

---

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

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

---

← →
VEG   (2002-07-30 00:46) [10]

:-)

---

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

Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c