Як швидко видалити каталог

Як швидко видалити каталог в якому підкаталоги та файли? Це можна робити через DelTree, але він не підтримує каталогів з українською назвою. Чи можна якось зробити дуже швидке видалення, як з DelTree?

Я пробував через стандартний файл DelTree. Він чудово справляється із завданням, але ненавидить папки з російськомовною назвою. Як із цим боротися? Допоможіть будь ласка!

Тобто як це не підтримує, ти щось плутаєш. І який сенс робити це досовською програмою, коли є чудова підтримка в АПІ для роботи з файлами - ShFileOperation

Function RemoveAll(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 RemoveDir(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;

RemoveDir(ExtractFileDir(sDir)); Result := True; end;

---