delphi删除文件夹

本文整理自网络，侵删。

 
删除空文件夹：
  RemoveDir
  RemoveDirectory

删除文件夹及文件及子文件夹
function TForm1.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 windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi xe5-android开发 目录结构

Delphi winapi: setwindowtext - 设置窗口标题

Delphi 改变进程优先级

Delphi 使电脑睡眠代码

Delphi 蠕虫下载者源代码

Delphi 快速删除非空文件夹

Delphi 跳出循环的几种方法

Delphi 按字符串长度对tstringlist的元素进行排序

Delphi idftp发送本机ip和外网ip

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

转载请注明出处：木庄网络博客 » delphi删除文件夹