0
点赞
收藏
分享

微信扫一扫

DelTree(删除到回收站)

uses
ShellApi
Function DelTree(DirName : string): Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
DirBuf        : array [0..255] of char;
begin
try
    Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0);
    FillChar(DirBuf, Sizeof(DirBuf), 0 );
    StrPCopy(DirBuf, DirName);
    with SHFileOpStruct do begin
    Wnd    := 0;
    pFrom := @DirBuf;
    wFunc := FO_DELETE;
    fFlags := FOF_ALLOWUNDO;
    fFlags := fFlags or FOF_NOCONFIRMATION;
    fFlags := fFlags or FOF_SILENT;
    end;
    Result := (SHFileOperation(SHFileOpStruct) = 0);
    except
    Result := False;
end;
end;

举报

相关推荐

0 条评论