Рекурсивное удаление каталога

← →
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 на нестандартный, то много чего(и может быть эта функция) не будет работать..

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

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

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

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

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

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

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

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