Delphi 支持通配符删除文件！

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

原创最新推荐文章于 2023-11-28 18:34:00 发布 · 2.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #string #delete #c

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文提供了一个使用Delphi进行文件删除操作的示例代码。该示例通过调用SHFileOperation函数实现文件的批量删除，并设置了不显示确认对话框的选项。

procedure DeleteFileEx(FileName:string);
var
    FileDir:string;
    FileStruct:TSHFileOpStruct;
begin
    FileDir   :=  FileName;// 'C:\temp\abc*.txt';
    FileStruct.Wnd   :=0;
    FileStruct.wFunc   :=FO_delete;
    FileStruct.pFrom:=Pchar(FileDir+#0);
    FileStruct.fFlags:=FOF_NOCONFIRMATION;
    FileStruct.pTo   := ' ';
   // if   SHFileOperation(FileStruct)=0   then
   //       showmessage( 'The   Files   Has   Been   Deleted! ');
end;