本文整理自网络，侵删。
以往删除目录时，都需要先用递归删干净目录下的文件和子文件夹，这样做的时候，如果文件数量大，那么删除会非常慢，于是找了个方便一点的方法，直接使用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 fdconnection1.gettablenames 查看所有表包含用户表和系统表
更多相关阅读请进入《Delphi》频道 >>
