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

Рекурсивное удаление каталога   Найти похожие ветки 

← →
volser   (2004-04-10 11:24) [0]

Есть ли у кого та модуль для рекурсивного удаления каталога со всеми файлами и подкаталогами.
                 Заранне благодарен!!!

---

← →
Anatoly Podgoretsky ©   (2004-04-10 11:56) [1]

Есть в Виндоус, модуль называется ShellApi

---

← →
easy ©   (2004-04-10 12:52) [2]

http://sources.ru/delphi/delphi_del_directories_with_files.shtml

---

← →
Jura ©   (2004-04-10 21:59) [3]

ЗАЧЕМ РЕКУРСИВНОЕ УДАЛЕНИЕ ???!!

ЕСТЬ ЗАМЕЧАТЕЛЬНАЯ ВЕЩЬ НА SHELLAPI:

function DelDir(dir: string): Boolean;
var
 fos: TSHFileOpStruct;
begin
 ZeroMemory(@fos, SizeOf(fos));
 with fos do
 begin
   wFunc  := FO_DELETE;
   fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
   pFrom  := PChar(dir + #0);
 end;
 Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if DelDir("d:\download") then
   ShowMessage("Все удалено!");
end;

---

← →
TButton ©   (2004-04-10 22:02) [4]

re 1
имхо ShellAPI не в виндоус, а в Delphi, но это только имхо. =)

---

← →
Черный прапорщик   (2004-04-10 22:22) [5]

Удалено модератором

---

← →
DrPass ©   (2004-04-10 22:39) [6]

> ShellAPI не в виндоус, а в Delphi, но это только имхо

ShellAPI - в Windows. А в Delphi - заголовочный модуль к нему.

---

← →
Yanis ©   (2004-04-10 22:44) [7]

А может volser   (10.04.04 11:24) где нибудь учится и ему именно рекурсивный метод нужен!?

---

← →
Fay ©   (2004-04-10 23:13) [8]

Тогда пусть сам пишет. Если и в самом деле учится... 8)

---

← →
TButton ©   (2004-04-10 23:22) [9]

Удалено модератором

---

← →
имя   (2004-04-10 23:27) [10]

Удалено модератором

---

← →
имя   (2004-04-10 23:30) [11]

Удалено модератором

---

← →
TButton ©   (2004-04-10 23:34) [12]

Удалено модератором

---

← →
имя   (2004-04-10 23:39) [13]

Удалено модератором

---

← →
TButton ©   (2004-04-10 23:44) [14]

нате, кушайте наздоровье

procedure TForm1.SSearch(path, mask: string);
var
 sr: TSearchRec;
 nam: string;
begin
 nam:=ExtractFileName(path);
 if (path="")or(mask="")or(nam=".")or(nam="..")then Exit;
 if FindFirst(path+"\"+mask,faAnyFile, sr)=0 then
 begin
   <удалить файл path+"\"+sr.name>
   if sr.Attr=faDirectory
     then SSearch(path+"\"+sr.Name,mask);
   while FindNext(sr)=0 do
   begin
     <удалить файл path+"\"+sr.name>
     if sr.Attr=faDirectory
       then SSearch(path+"\"+sr.Name,mask);
   end;
   FindClose(sr);
 end;
end;


---

← →
имя   (2004-04-10 23:50) [15]

Удалено модератором

---

← →
Jack128 ©   (2004-04-10 23:52) [16]

ShellApi - это функции Shell"а как не странно ;-) и что то мне подсказывает, что если заменить shell на нестандартный, то много чего(и может быть эта функция) не будет работать..

---

← →
Fay ©   (2004-04-10 23:54) [17]

Удалено модератором

---

← →
Fay ©   (2004-04-10 23:57) [18]

Удалено модератором

---

← →
имя   (2004-04-10 23:58) [19]

Удалено модератором

---

← →
имя   (2004-04-11 00:00) [20]

Удалено модератором

---

← →
Fay ©   (2004-04-11 00:00) [21]

Удалено модератором

---

← →
имя   (2004-04-11 00:04) [22]

Удалено модератором

---

← →
Yanis ©   (2004-04-11 01:41) [23]

Удалено модератором

---

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

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



Память: 0.49 MB
Время: 0.02 c