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

Delphi中用TSHFILEOPSTRUCT删除整个目录

时间:2011/9/3 15:19:49 点击:

  核心提示:function SHMyDelDirectory(const Source: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo,...
function SHMyDelDirectory(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;

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