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 stringgrid1读取加载excel文件

Delphi 建立快捷方式的函数: createshortcut

Delphi中combobox的datavalue值

Delphi中分隔字符串函数的使用

Delphi inc函数和dec函数的用法

Delphi android实例-红外线操作(xe10.2+小米5)

Delphi 数组定义

Delphi xe将图标和图像添加为资源

Delphi路径分割符处理相关函数

Delphi 获取系统启动文件夹路径

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



打赏

取消

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

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

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

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

评论

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