Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
8-1099938083
belpyro
2004-11-08 21:21
2005.02.20
помогите пожалуйста с фильтрами!!!


14-1106945373
Луарвик
2005-01-28 23:49
2005.02.20
Ток не смейтесь!!! Вопрос по асму...


1-1107845162
Ega23
2005-02-08 09:46
2005.02.20
Финальная сборка DLL


1-1107345014
_student
2005-02-02 14:50
2005.02.20
Уважаемы мастера. Подскажите как получить пусть к папке...


4-1104145987
tradakad
2004-12-27 14:13
2005.02.20
как назначить иконку для итема PopupMenu при его создании