Delphi 支持通配符删除文件

本文整理自网络，侵删。

 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; 

相关阅读 >>

Delphi日期和时间

Delphi 判断进程名是否存在，如果存在则结束进程

Delphi trunc转换函数

Delphi从路径取得文件名的简易方法

Delphi strutils.leftstr、strutils.rightstr - 提取左右字符串

Delphi动态建立panel无法更改颜色?

Delphi根据网络链接截取域名

Delphi开发linux的动态库

Delphi 图像自动调整显示

Delphi richedit控件中插入gif动画表情

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 支持通配符删除文件