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求解一元二次方程

winapi 字符及字符串函数(3): charupper - 字符或字符串转大写

Delphi 申请管理员权限级别

Delphi 如何将memo或richedit保存为utf 8文本文件？

Delphi 汉字转十六进制的函数，可以互转不乱码

Delphi 拷贝文件夹内所有内容

Delphi 怎么计算一个memo中输入的汉字数目

Delphi安全结束线程

Delphi 数据集转换json对象

Delphi windows 编程[12] - 菜单与菜单资源(1-3)

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

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