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 调用shellexecute打开txt文本

Delphi idhttp1post上传图片

Delphi xe2支持zip压缩文件的操作了

Delphi 感染u盘

Delphi 端口扫描器原理

Delphi api 函数中使用 pchar 参数的几种方法

Delphi的四舍五入函数

Delphi winapi: getmodulefilename、getmodulehandle

Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子

Delphi firemonkey应用程序中显示时隐藏虚拟键盘

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

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