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 颜色转换函数: 从 Delphi 到 html

Delphi shutdown() 关机

Delphi 动态加载删除字体

Delphi shellexecute 打开文件夹

Delphi 10 seattle中录制音频

Delphi unigui hyperserver

Delphi html document接口获取网页中所有图片

Delphi 运行带参数的程序等待其并获取结果

Delphi在combobox下拉框里显示图片

Delphi通过进程名获取进程pid函数

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



打赏

取消

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

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

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

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

评论

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