Exception in Anwendung ohne Form

[DeddyH]

Die Adresse? Das wäre mir neu, aber Du kannst mein Beispiel ja noch erweitern:

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
      MessageBox(0, PChar(Format('%s:%s%s', [E.ClassName, sLineBreak, E.Message])),
        nil, MB_OK or MB_ICONERROR);
  end;
end.