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;
;