delphi快速地删除一个目录

本文整理自网络，侵删。

 以往删除目录时，都需要先用递归删干净目录下的文件和子文件夹，这样做的时候，如果文件数量大，那么删除会非常慢，于是找了个方便一点的方法，直接使用API将目录删除。

代码如下：
view plaincopy to clipboardprint?
function DelDirectory(const Source: string): boolean; 
var 
fo: TSHFILEOPSTRUCT; 
begin 
FillChar(fo, SizeOf(fo), 0); 
with fo do 
begin 
Wnd := 0; 
wFunc := FO_DELETE; 
pFrom := PChar(Source + #0); 
pTo := #0#0; 
fFlags := FOF_NOCONFIRMATION + FOF_SILENT; 
end; 
Result := (SHFileOperation(fo) = 0); 
end; 

相关阅读 >>

Delphi 检测鼠标键盘多久没有活动

Delphi 10.3新特性 内联变量

Delphi使用tnethttpclient：重定向后如何给出最终的url？

Delphi如何实现浏览文件夹

Delphi 远程屏幕抓取的源代码

Delphi 2009 新增单元 character[1]: toupper、tolower - 字符与字符串的大小写转换

Delphi ide 默认保存路径设置

Delphi xe listview导出excel

Delphi 安卓app在线升级

Delphi 将汉字翻译成拼音缩写的函数

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

转载请注明出处：木庄网络博客 » delphi快速地删除一个目录