Consolenanwendung mit Farbe

[Olli]

Das sind übrigens die beiden fraglichen Funktionen aus meiner Unit:

Delphi-Quellcode:

function TextAttribute(): Word;
var
  csbi: _CONSOLE_SCREEN_BUFFER_INFO;
begin
  if GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), csbi) then
    result := csbi.wAttributes
  else
    result := 0;
end;

procedure SetTextAttribute(attr: Word);
begin
  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE), attr);
end;

SetConsoleAttribute() existiert nicht - heißt SetConsoleTextAttribute().

EDIT: Bah, was habe ich einstmals für häßliche Formatierungen benutzt ... *brrr*