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;