Fehler in Konsole umleiten

[himitsu]

Wenn du da keine GUI nutzt, warum initialisierst du siese denn erst? (mit Application.Initialize)
Nja egal.

Du könntest einen Eigenen Exception-Handler registrieren,
{System.}ExceptProc := @ConsoleExceptHandler; oder nachträglich versuchen den GUI-Mode etwas rückgängig zu machen.
IsConsole := False;

Delphi-Quellcode:

procedure ConsoleExceptHandler(ExceptObject: TObject; ExceptAddr: Pointer); far;
var
  Title: array[0..63] of Char;
  Buffer: array[0..1023] of Char;
  OemBuffer: array[0..2047] of AnsiChar;
  Dummy: Cardinal;
begin
  ExceptionErrorMessage(ExceptObject, ExceptAddr, Buffer, SizeOf(Buffer));
  Flush(Output);
  CharToOem(Buffer, OemBuffer);
  WriteFile(GetStdHandle(STD_ERROR_HANDLE), OemBuffer, StrLen(OemBuffer), Dummy, nil);
  WriteFile(GetStdHandle(STD_ERROR_HANDLE), sLineBreak, 2, Dummy, nil);
  Halt(1);
end;

;