Exception in Anwendung ohne Form

[blablab]

Ich habs durch Zufall gefunden! 1:1 dieselbe Meldung die ich nach der Windows-Fehlermeldung bekomme, bekomme ich auch mit:

Delphi-Quellcode:

program ExceptionTest;

uses
   SysUtils,
   Windows;

type
   EMyException = class(Exception);

begin
   try
     { TODO -oUser -cConsole Main : Code hier einfügen }
     raise EMyException.Create('Alles kaputt hier');
   except
     on e: Exception do SysUtils.ShowException(e, nil);
   end;
end.

nur leider weiß ich nicht woher ich die Adresse bekommen soll...

(Ich hab eine eigene Methode mit dem Namen ShowException geschrieben und dann ist mir aufgefallen, dass es das ja schon in SysUtils gibt )


Edit:

Ich habs! Die ultimative Lösung ist :

Delphi-Quellcode:

program ExceptionTest;

uses
   SysUtils,
   Windows;

type
   EMyException = class(Exception);

begin
   try
     { TODO -oUser -cConsole Main : Code hier einfügen }
     raise EMyException.Create('Alles kaputt hier');
   except
     on e: Exception do SysUtils.ShowException(e, ExceptAddr);
   end;
end.