DELPHI删除目录及其子目录

本文整理自网络，侵删。

 function DeletePath(mDirName: string): Boolean; { 返回删除指定目录是否成功 } 
var 
vSearchRec: TSearchRec; 
vPathName: string; 
K: Integer; 
begin 
Result := True; 
vPathName := mDirName + '\*.*'; 
K := FindFirst(vPathName, faAnyFile, vSearchRec); 
while K = 0 do begin 
if (vSearchRec.Attr and faDirectory > 0) and 
(Pos(vSearchRec.Name, '..') = 0) then begin 
FileSetAttr(mDirName + '\' + vSearchRec.Name, faDirectory); 
Result := DeletePath(mDirName + '\' + vSearchRec.Name); 
end else if Pos(vSearchRec.Name, '..') = 0 then begin 
FileSetAttr(mDirName + '\' + vSearchRec.Name, 0); 
Result := DeleteFile(PChar(mDirName + '\' + vSearchRec.Name)); 
end; 
if not Result then Break; 
K := FindNext(vSearchRec); 
end; 
FindClose(vSearchRec); 
Result := RemoveDir(mDirName); 
end; 

相关阅读 >>

Delphi多级指针

Delphi通过spcomm com口发短信包括pud编码解码

Delphi format格式化函数

Delphi dateutils功能详解

Delphi xe6新增特性及功能

paramstr返回运行当行程序的某个参数

Delphi datetimepicker 宽度如何与Delphi自带style同步

Delphi 把整个窗体保存为图片的方法

Delphi 窗体的位置和高宽度-tform:letf、top、width、height、clientwidth、clientheight

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » DELPHI删除目录及其子目录