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;