OK, jetzt weiß ich's wieder. Der Code sieht beispielhaft so aus:
Delphi-Quellcode:
uses
SysUtils, Borland_Crt;
var last_text_attr, text_color : byte;
{Text-Farbe sichern}
last_text_attr:= TextAttr;
{Text-Farbe setzen}
textcolor(text_color);
writeln('Text');
{Text-Farbe wiederherstellen}
TextAttr:= last_text_attr;
Dafür braucht es die
Unit Crt von Borland. Ich hab sie damals Borland_crt.pas genannt, in dieser steht aber "
unit crt;". Keine Ahnung, woher ich die hatte. Könnte die von Namenloser genannte
Unit sein. Die
Unit selbst sagt im Header "Copyright (c) 1988-2003 Borland Software Corporation". In der
Unit gibt es unter anderem eine procedure TextColor, die die Farbe für folgende Textausgaben setzt. Dieses damals kompilierte 32 Bit Programm funktioniert sogar auf einer 64 Bit CMD eines Win7 x64.
EDIT: Ist die von Namenloser genannte
Unit.
MfG Dalai