Ausgabe an Konsole, von der GUI gestartet wurde

[KodeZwerg]

Delphi-Quellcode:

 {$APPTYPE CONSOLE}
  hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
  SetConsoleTextAttribute(hStdOut, FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_RED or FOREGROUND_INTENSITY);
  WriteLn('Weißer Text');
  FreeConsole; // das sollte Console zumachen