GESCHLOSSENE .exe löschen

[icqgoofy]

Hallo zusammen,

also:
Ich möchte eine geschlossene .exe-Datei von meinem Programm aus löschen.
Ich habe es folgendermaßen probiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteFile('C:\Eigene Dateien\Test.exe');
  Close;
end;

Statt dem Test.exe habe ich es auch mal mit .txt-Dateien probiert,
da hat es problemlos funktioniert.

Kann mir da jemand weiterhelfen?
Das andere Programm ist wie oben genannt geschlossen, also dürftet
ich dafür ja eigentlich keine DLL oder BAT brauchen, oder?

Gruß icqgoofy

[reepo2k]

Das hier dürft dir helfen:
http://www.delphipraxis.net/internal...ect.php?t=2275

MfG: reepo2k

[Neotracer64]

Zitat:

MSDN
If the function fails, the return value is 0 (zero). To get extended error information, call GetLastError.

Also nach dem Deletfile:

Delphi-Quellcode:

ShowMessage(SysErrorMessage(GetLastError));

...und gucken was für ein Fehler kommt.

[icqgoofy]

Zitat:

Also nach dem Deletfile:

Delphi-Quellcode:

ShowMessage(SysErrorMessage(GetLastError));

So habe ich es gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteFile('C:\Eigene Dateien\Test.exe');
  ShowMessage(SysErrorMessage(GetLastError));
  Close;
end;

Aber es wird kein Fehler angezeigt, das Programm beendet sich einfach,
ohne irgendetwas anzuzeigen.

Gruß icqgoofy

[3_of_8]

Probiers mal mit RaiseLastOSError.

[icqgoofy]

Da kommt auch nichts!
Hat es vllt etwas damit zu tun, dass ich WIN 98 SE habe?

Gruß icqgoofy

[3_of_8]

Da könnte man es probieren mit RaiseLastWin32Error.

[icqgoofy]

Wenn ich es so eingebe:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteFile('C:\Eigene Dateien\Test.exe');
  RaiseLastWin32Error;
  Close;
end;

Dann kommt folgendes:

[Warning] Unit1.pas(33): Symbol 'RaiseLastWin32Error' is deprecated

Gruß icqgoofy

[SirThornberry]

das ist nur die compilermeldung, was passiert dann beim ausführen?

[icqgoofy]

Ja, da kam nichts.

Aber ich habe es jetzt nocheinmal in einem neuen Projekt ausporbiert.
Jetzt hat das "DeleteFile" geklappt, der
hat anscheinend irgendetwas überschrieben.

Also dann, vielen Dank an alle!

Gruß icqgoofy