delphi 控制台应用程序控制文本颜色

SetConsoleTextAttribute中定义的函数WinAPI.Windows。

通过这个简单的程序（可扩展）：

/// <summary> Cambiar el color de la salida de consola </summary>

/// <summary> Change the color of console output</summary>

procedure SetColorConsole(AColor:TColor);

begin

  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE);

  case AColor of

    clWhite:  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE);

    clRed:    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_INTENSITY);

    clGreen:  SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN or FOREGROUND_INTENSITY);

    clBlue:   SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_BLUE or FOREGROUND_INTENSITY);

    clMaroon: SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN or FOREGROUND_RED or FOREGROUND_INTENSITY);

    clPurple: SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_RED or FOREGROUND_BLUE or FOREGROUND_INTENSITY);

    clAqua: SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_INTENSITY);

  end;

end;

你可以使用这样的东西：

  WriteLn(' ');

  SetColorConsole(clWhite);

  WriteLn('clWhite');

  SetColorConsole(clRed);

  WriteLn('clRed');

  SetColorConsole(clGreen);

  WriteLn('clGreen');

  SetColorConsole(clBlue);

  WriteLn('clBlue');

  SetColorConsole(clMaroon);

  WriteLn('clYellow');

  SetColorConsole(clPurple);

  WriteLn('clPurple');

  SetColorConsole(clAqua);

  WriteLn('clAqua');