[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1

Модератор форума: Anton93

delfcode » 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

Удачи