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.