Delphi 删除文件目录！

easyboot

于 2013-04-18 15:57:26 发布

阅读量828

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/8819453

Delphi 专栏收录该内容

54 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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