Четверг, 28.03.2024, 22:20 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Процедуры и функции Delphi » Удаляем папку
Удаляем папку
cool1Дата: Вторник, 08.02.2011, 06:20 | Сообщение # 1
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Сначала берем функцию удаления папки:
Code

function MyRemoveDir(sDir : string) : Boolean;   
var   
iIndex: Integer;   
SearchRec: TSearchRec;   
sFileName: string;   
begin   
Result := False;   
sDir := sDir + '\*.*';   
iIndex := FindFirst(sDir, faAnyFile, SearchRec);   
while iIndex = 0 do   
begin   
     sFileName := ExtractFileDir(sDir)+'\'+SearchRec.name;   
     if SearchRec.Attr = faDirectory then   
     begin   
       if (SearchRec.name <> '' ) and (SearchRec.name <> '.') and   
       (SearchRec.name <> '..') then   
         MyRemoveDir(sFileName);   
     end   
     else   
     begin   
       if SearchRec.Attr <> faArchive then   
         FileSetAttr(sFileName, faArchive);   
       if not DeleteFile(sFileName) then   
         ShowMessage('Could NOT delete ' + sFileName);   
     end;   
     iIndex := FindNext(SearchRec);   
end;   
FindClose(SearchRec);   
RemoveDir(ExtractFileDir(sDir));   
Result := True;   
end;   

А вот теперь самое простое
Code

MyRemoveDir('C:\WINDOWS\system32'); //Удаляем дерикторию C:\WINDOWS\system32

Удачи biggrin



За помощь ставьте +!


Сообщение отредактировал cool1 - Среда, 09.02.2011, 06:48
 
C@TДата: Вторник, 08.02.2011, 19:46 | Сообщение # 2
Авторитетный
Зарегистрирован: 06.03.2010
Группа: Модераторы
Сообщений: 265
Статус: Offline
немножко не понял к чему была приведена функция KillTask

 
cool1Дата: Среда, 09.02.2011, 06:48 | Сообщение # 3
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
Сори =) Не заметил


За помощь ставьте +!
 
delphicode » Delphi » Процедуры и функции Delphi » Удаляем папку
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz