您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi调用ShellAPI删除整个目录

时间:2011/9/3 15:20:50 点击:

  核心提示:varS: string;T: TSHFileOpStruct; beginS := '目录名';with T dobeginWnd := 0;wFunc := FO_DELETE;pFrom :=...
var
  S: string;
  T: TSHFileOpStruct;
begin
   S := '目录名';
   with T do
   begin
   Wnd := 0;
   wFunc := FO_DELETE;
   pFrom := PChar(S);
   pTo := nil;
   fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_NOERRORUI;
   //标志表明允许恢复,无须确认并不显示出错信息
   hNameMappings := nil;
   lpszProgressTitle := '正在删除文件夹';
   fAnyOperationsAborted := False;
   end;
   SHFileOperation(T);
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号