delphi删除目录及子目录及所有目录下的文件


本文整理自网络,侵删。

 delphi删除目录及子目录及所有目录下的文件

uses shellapi;

Function DelTree(DirName : string): Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
DirBuf : array [0..255] of char;
begin
try
Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0);
FillChar(DirBuf, Sizeof(DirBuf), 0 );
StrPCopy(DirBuf, DirName);
with SHFileOpStruct do begin
Wnd := 0;
pFrom := @DirBuf;
wFunc := FO_DELETE;
fFlags := FOF_ALLOWUNDO;
fFlags := fFlags or FOF_NOCONFIRMATION;
fFlags := fFlags or FOF_SILENT;
end;
Result := (SHFileOperation(SHFileOpStruct) = 0);
except
Result := False;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if DelTree('c:\abc') then
ShowMessage('Directory deleted!')
else
ShowMessage('Errors occured!');
end;

相关阅读 >>

Delphi调用rest

Delphi 过滤网页代码 <script></script>

Delphi 屏蔽汉字,年月日,时间,银行卡正则表达式

Delphi web格式与tcolor类型的转换函数

Delphi 用内存流文件流资源生成客户端

Delphi更改android亮度

Delphi unigui从数据表里下载流文件

Delphi md5单元文件

Delphi 按f11程序全屏

删除Delphi组件tstringlist中的重复项目

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...