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 bintohex和hextobin

Delphi从网上获取北京时间

Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

Delphi 内存流方式获取页面验证码图片

Delphi 一个整数转其二进制表示的小函数

Delphi xe datasnap服务器获取客户端ip地址

Delphi http协议验证访问datasnap rest 服务器

Delphi在设计时设置tstringgrid控件各列的列宽

Delphi 用 gdi+ 给图片添加花边的例子

Delphi10.2.3实现http异步下载

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

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