Delphi 删除文件目录！

最新推荐文章于 2024-12-16 12:51:33 发布

原创最新推荐文章于 2024-12-16 12:51:33 发布 · 840 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一个使用Delphi中的SHFileOperation函数来删除指定目录及其所有子目录和文件的方法。该方法通过定义TSHFileOpStruct结构体并设置其成员来实现递归删除的功能。

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