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

减小字体 增大字体 作者:佚名  来源:不详  发布时间:2011-01-28 12:01:26

//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;

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B