Exception in Anwendung ohne Form

[DeddyH]

Das kann ich nicht nachvollziehen:

Delphi-Quellcode:

program ExceptionTest;

uses
  SysUtils, Windows;

begin
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    raise Exception.Create('Alles kaputt hier');
  except
    on E: Exception do
      MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
  end;
end.