Farbiger Text in einer Konsolenanwendung

[turboPASCAL]

Delphi-Quellcode:

program Farbtest;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  hConsoleInput,
  hConsoleOutput: THandle; 

BEGIN
  hConsoleOutput := GetStdHandle(STD_OUTPUT_HANDLE);
  hConsoleInput := GetStdHandle(STD_INPUT_HANDLE);

 
  SetConsoleTextAttribute(hConsoleOutput, 5);
  Writeln('Hallo');
  SetConsoleTextAttribute(hConsoleOutput, 2);
  Writeln('Hallo nochmal');

  SetConsoleTextAttribute(hConsoleOutput, 15 + 5);
  writeln('Und noch mal hallo');

  SetConsoleTextAttribute(hConsoleOutput, 7);
  writeln('Entertaste zum beenden.');
  readln;
END.

SetConsoleTextAttribute SetConsoleTextAttribute

//Edit: zwei mal 'en Semikolon vergessen...