Löschen von Dateien

[C.Schoch]

Des weiteren kannst du noch nicht davon ausgehen, dass die Datei wirklich gelöscht wurde!
Ich würd noch den Rückgabewert von DeleteFile abfragen

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.FileName <> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        if DeleteFile( FileListBox1.FileName) then // <- Hier geändert
        begin
          ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
          FileListbox1.Update; // Das Updaten auch sparen wenn nichts gelöscht
        end;
      end;
     end// hier gehört es hin
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
end;