Farbiger Text in einer Konsolenanwendung

[cruso]

Hi!

Wisst ihr wie man einzelne Textzeilen in einer Konsolenanwendung einfärben kann? Also die Textausgabe soll dann in einer bestimmten Farbe erfolgen (z.B. Rot oder Grün...).


MfG
Cruso

[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...

[Klaus01]

oder mit der crt32.pas

Grüße
Klaus