Форум: "Основная";
Текущий архив: 2005.02.20;
Скачать: [xml.tar.bz2];
ВнизКак удалить папку Найти похожие ветки
← →
СержК (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c