Hallo zusammen
Ich möchte eine globale Fehlerbehandlung realisieren. Dazu setze ich direkt im
dpr-File an:
Delphi-Quellcode:
program Project1;
uses
Forms, SysUtils, Dialogs,
Unit1
in '
Unit1.pas'
{Form1};
{$R *.res}
procedure GlobalExceptionHandler(Sender: TObject; E:
Exception);
begin
ShowMessage('
Globaler ExceptionHandler');
end;
begin
Application.Initialize;
@Application.OnException:= @GlobalExceptionHandler;
raise Exception.Create('
Irgendein Fehler halt');
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Doch der ExceptionHandler wird nie aufgerufen. Warum?
Gruss
Shaman