Delphi调用ShellAPI删除整个目录

最新推荐文章于 2025-02-26 16:32:25 发布

转载最新推荐文章于 2025-02-26 16:32:25 发布 · 804 阅读

文章标签：

#delphi #delete #string

技术类杂烩专栏收录该内容

4 篇文章

订阅专栏

本文提供了一个使用Delphi进行文件夹删除操作的代码示例。通过设置SHFileOpStruct结构体，演示了如何无需确认且不显示错误信息地删除指定的文件夹。

var
S: string;
T: TSHFileOpStruct;
begin
   S := '目录名';
   with T do
   begin
   Wnd := 0;
   wFunc := FO_DELETE;
   pFrom := PChar(S);
   pTo := nil;
   fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_NOERRORUI;
   //标志表明允许恢复，无须确认并不显示出错信息
   hNameMappings := nil;
   lpszProgressTitle := '正在删除文件夹';
   fAnyOperationsAborted := False;
   end;
   SHFileOperation(T);
end;