Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

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

← →
СержК   (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;

---

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

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.044 c