Delphi 删除或清空一个目录(包含多级)

本文整理自网络，侵删。

 
//use ShellApi;
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
   if DelDirectory('c:/1') then
   begin
      ForceDirectories('c:/1');
      ShowMessage('Success. ');
   end;
end;
 

相关阅读 >>

Delphi idhttp友好错误信息的捕获

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi getprocessisadmin()判断exe是否以管理员身份启动

Delphi自带的indy控件实现md5加密

Delphi中如何判断是否有程序全屏

Delphi xe5 json与Delphi object的互换

Delphi的format使用总结

Delphi 为richedit设置行号

idftp无法设置transfertype属性

Delphi 取到系统临时文件夹路径

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

转载请注明出处：木庄网络博客 » Delphi 删除或清空一个目录(包含多级)