Cambiar el color del texto en delphi (aplicación de consola)

Presta atención porque en esta noticia hallarás el resultado que buscas.Esta reseña fue probado por nuestros expertos para garantizar la calidad y exactitud de nuestro contenido.

Solución:

Puedes usar SetConsoleTextAttribute como ya se comentó a la pregunta. Ejemplo:

program Project1;

$APPTYPE CONSOLE

$R *.res

uses
  System.SysUtils, winapi.windows;

var
  ConOut: THandle;
  BufInfo: TConsoleScreenBufferInfo;
begin
    writeln('yes just give me a minute, i need to talk to the manager');

    // get console screen buffer handle
    ConOut := TTextRec(Output).Handle;  // or GetStdHandle(STD_OUTPUT_HANDLE)

    // save current text attributes
    GetConsoleScreenBufferInfo(ConOut, BufInfo);

    // set foreground color to red
    SetConsoleTextAttribute(TTextRec(Output).Handle, FOREGROUND_INTENSITY or FOREGROUND_RED);

    writeln('Oi Dave we got another thick one shall i just pass him through as self employed');

    // reset to defaults
    SetConsoleTextAttribute(ConOut, BufInfo.wAttributes);

    writeln('Dont worry u dont have to complete this one');
    readln;
end.

Lectura mínima requerida: SetConsoleTextAttribute y carácter attributes.

No olvide agregar el manejo de errores.

Valoraciones y comentarios

Nos puedes amparar nuestro estudio poniendo un comentario y valorándolo te damos la bienvenida.

---

---

Utiliza Nuestro Buscador