In Konsole Farbe haben

[turboPASCAL]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, windows;

begin
   //Textfarbe
   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 1);
   writeln('Hallo');

   //Hintergrundfarbe  ( Hintergr.Farbe  +  Textfarbe )
   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), 64  +   15);
   writeln('Hallo');

   readln;
end.