Как удалить папку

← →
СержК (2005-02-07 11:12) [0]

Мастера, подскажите - как удалить папку со всем ее содержимым с жесткого диска?

Я когда-то это делал, не могу найти как и где...

← →
Anatoly Podgoretsky © (2005-02-07 11:16) [1]

ShFileOperation

← →
Rob (2005-02-07 11:50) [2]

Сам пользуюсь вот такой конструкцией (где откопал не помню :)):

procedure TMainForm.DeleteTree(DirName:string);
var FindData:TWIN32FindData;
var FindHandle:THandle;
begin

if DirName[Length(DirName)]<>"\" then DirName:=DirName+"\";
FindHandle:=FindFirstFile(PChar(DirName+"*.*"),FindData);

while FindHandle<>INVALID_HANDLE_VALUE do
begin
if not FindNextFile(FindHandle,FindData) then break;
if (string(FindData.cFileName)=".") or (string(FindData.cFileName)="..") then continue;

if FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY<>0 then
begin
DeleteTree(DirName+string(FindData.cFileName));
RemoveDirectory(PChar(DirName+string(FindData.cFileName)));
end;

SetFileAttributes(PChar(DirName+string(FindData.cFileName)),FILE_ATTRIBUTE_NORMAL);
DeleteFile(PChar(DirName+string(FindData.cFileName)));
end;

Windows.FindClose(FindHandle);
RemoveDirectory(PChar(DirName));

end;

Как удалить папку Найти похожие ветки