Files löschen WENN sie existieren

[rhodan]

abend...ich bin sicher dieses thema wurde schonmal durchgekaut, konnte allerdings nichts zu meinem problem finden, hoffe es weiß jemand rat.

mit diesem code lösche ich auf knopfdruck festgelegte files, das funktioniert auch sehr gut:

Delphi-Quellcode:

uses
shellapi


function DeleteFile(const AFile: string): boolean;
var
sh: SHFileOpStruct;
begin
ZeroMemory(@sh, sizeof(sh));
with sh do
   begin
   Wnd := Application.Handle;
   wFunc := fo_Delete;
   pFrom := PChar(AFile +#0);
   fFlags := fof_Silent or fof_NoConfirmation;
   end;
result := SHFileOperation(sh) = 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DeleteFile('C:\test\beispiel\test\*.*');

DeleteFile('C:\test\beispiel\beispiel2.dat') ;
DeleteFile('C:\test\beispiel\beispiel1.dat') ;

DeleteFile('C:\test\beispiel\beispiel.doc') ;
end;

end.

mein problem ist, wenn die beispiel.doc nicht existiert (oder eine der anderen, es sind temporäre files die erst nach einer weile erstellt werden) hängt sich das programm auf, und es kommt ne fehlermeldung das die aktion nicht ausgeführt werden konnte...das problem ist die nachfolgenden proceduren funktionieren nicht mehr richtig.

wie müsste ich den code ändern so das er die files nur löscht WENN sie existieren, sonst normal weitermacht ohne ne meldung?

danke!!!