Auf programmweite Exceptions reagieren

[Dax]

Was spricht denn gegen eine Klasse TExceptionLogger, die einzig auf das OnException-Event reagiert? Wenn du das Ding in eine eigene Unit tust an deren Ende so was anfügst, sollt es tun was du willst.

Delphi-Quellcode:

unit ExceptionLogger;

{...}

implementation

{...}

var
  Logger: TExceptionLogger;

initialization

  Logger := TExceptionLogger.Create;
  Application.OnException := Logger.LogException;

finalization
  
  Logger.Free;

end.

Da es im Programm ja eh nur eine Instanz von Application geben kann, führt das auch zu keinen Problemen