本文整理自网络,侵删。
procedure DeleteDirectory(const Name: string);var F: TSearchRec;begin if FindFirst(Name + '\*', faAnyFile, F) = 0 then begin try repeat if (F.Attr and faDirectory <> 0) then begin if (F.Name <> '.') and (F.Name <> '..') then begin DeleteDirectory(Name + '\' + F.Name); end; end else begin DeleteFile(Name + '\' + F.Name); end; until FindNext(F) <> 0; finally FindClose(F); end; RemoveDir(Name); end;end;
相关阅读 >>
Delphi xe5 android 使用system.zip单元释放资源文件
Delphi webbrowser多次执行documentcomplete
Delphi getexplorerpid获取系统explorer.exe进程id
更多相关阅读请进入《Delphi》频道 >>