Anwendung todsicher beenden, aber wie??

[RavenIV]

Also ich mach das meistens so:
Wenn in einer Funktion etwas unerwartetes passiert, schmeisse ich eine eigene Exception.
raise MyException.Create('Ini-File "' + IniFileName +'" nicht gefunden');
Dann setzte ich einen eigenen Exception-Handler mit
Application.OnException := HandleException;
Die Funktion sieht dann so aus:

Delphi-Quellcode:

procedure TFoMain.HandleException(Sender: TObject; E: Exception);
begin
  Application.MessageBox(PChar(E.Message + '.' + #10#13 + 'Anwendung wird geschlossen.'), 'Anwendungsfehler', MB_OK);
  Application.Terminate;
end;

P.S. Das mit den Delphi-Codetags werde ich vermutlich nie kapieren...