Delphi 支持通配符删除文件！

最新推荐文章于 2020-05-31 17:04:13 发布

easyboot

最新推荐文章于 2020-05-31 17:04:13 发布

阅读量2.4k

点赞数

分类专栏： Delphi 文章标签： delphi string delete c

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

版权

Delphi 专栏收录该内容

54 篇文章

订阅专栏

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

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

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;