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 allocmem

Delphi copy 字符串函数

Delphi pi 精确计算返回圆周率

Delphi xe版本 运行cmd命令，并取得输出字符

Delphi extctrls.frame3d

Delphi api屏幕传输算法

Delphi 苹果系统弹出链接

Delphi tstringlist删除重复项

Delphi xe android 判断自己程序是否是前台程序

Delphi程序的exe和dll文件添加版本信息

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

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