| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

DeMoN-777 ©   (2002-07-28 16:01:00) 

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

---

VEG   (2002-07-30 00:46:00) [1]

:-)

---

alena.svt   (2002-07-29 23:28:00) [2]

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

---

DeMoN-777   (2002-07-29 09:20:00) [3]

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

---

VEG   (2002-07-28 23:09:00) [4]

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

---

VEG   (2002-07-28 23:07:00) [5]

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

---

Извращенец   (2002-07-28 23:06:00) [6]

> VEG

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

---

Falmer   (2002-07-28 23:04:00) [7]

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

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

---

VEG   (2002-07-28 18:06:00) [8]

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

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;

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

---

SPeller   (2002-07-28 17:13:00) [9]

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

---

DeMoN-777   (2002-07-28 17:06:00) [10]

???

---

Наверх