Delphi 删除文件目录！

最新推荐文章于 2023-11-28 18:34:00 发布

easyboot

最新推荐文章于 2023-11-28 18:34:00 发布

阅读量803

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/easyboot/article/details/8819453

版权

Delphi 专栏收录该内容

54 篇文章 2 订阅

订阅专栏

删除目录下子目录以及子目录下的文件
需要 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;