Мне нужно удалить на всех машинах один и тот же каталог.
Я попытался зделать так:

Код

function TMainForm.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;

Передаю ей в качестве параметра строку в виде - \\Имя копьютера\c$\Удаляемый каталог

Принципе удаляет.
Почему в принципе, потому что она действительно удаляет все как надо, но тот каталог каторый , раде каторого она писалась не удаляет.
Вот путь каталога - c:\Documents and Settings\All Users\Application Data\Symantec
Все другие каталоги удаляет, я специально создавал их и все работает, но это не в какую.
КАТАЛОГ точно можно удалить т.к. я его удалял.
Что делать, и какие еще есть примеру функций для удаления каталога с его содержимым?

Удаление каталога вместе с вложенными подкаталогами

Код

function DeleteDirWithSubdirs(const Path, Mask: string): Boolean; var   I: Integer;   F: TSearchRec;   S: string; begin   I := FindFirst(Path + Mask, faAnyFile, F);   try     while I = 0 do     begin       if F.Name = '.' then       begin         FindNext(F);         I := FindNext(F);         Continue;       end;       if F.Attr and faDirectory = faDirectory then       begin         S := Path + F.Name + '\';         Result := DeleteDirWithSubdirs(S, Mask);       end else begin         S := Path + F.Name;         FileSetAttr(S, 0);         Result := DeleteFile(S);       end;       if not Result then Abort;       I := FindNext(F);     end;   finally     FindClose(F);     {$I-}     FileSetAttr(Path, 0);     RmDir(Path);     {$I+}     Result := IOResult = 0;       end; end;

Это сообщение отредактировал(а) s-mike - 18.5.2005, 11:12