Bunter text in console

[Bummi]

Delphi-Quellcode:

{$APPTYPE CONSOLE}
{$R *.res}

uses
  SysUtils, Windows;
begin
  try
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), BACKGROUND_RED or BACKGROUND_INTENSITY);
    Write('Roter Hintergrund');
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), FOREGROUND_GREEN);
    Write('Grüner Text');
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), BACKGROUND_BLUE or BACKGROUND_INTENSITY);
    Writeln('Blauer Hintergrund');
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.