[Turbo Pascal] Comment afficher un message en couleur

Comment afficher un message en couleur

Bonjour,

j'ai un projet de 3ème anné informatique, je veux afficher un message en couleur.
Exemple :

Code:

writeln('une msg en rouge')

:cry:

Bonjour et Bienvenu sur DVP

Si tu utilises TP ou BP pour DOS

Code:

1
2
3
4
5
6
Uses Crt;
Begin
   TextColor(Red);
   Write('Ce texte est affiché en ROUGE');
   ReadLn;
End.

Maintenant si tu es en train d'utiliser TPW ou BPW :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program WCRTText;
 
Uses Strings, WinTypes, WinProcs, WinCRT;
 
Var hFenetre : HWnd;
    DC : hDC;
    ColText : TColorRef;
    Chaine : Array [0..79] of Char;
 
Begin
  InitWinCRT;  {Si on supprime cette ligne, le texte sera imprimé sur sur cette même page ou toute autre fenêtre active et sur la fenêtre de sortie}
  hFenetre := GetFocus;                            {Handle de la fenêtre}
  DC := GetDC(hFenetre);                           {Contexte de périphérique}
  ColText := SetTextColor(DC,RGB(255,0,0));        {Couleur rouge pour le texte}
  StrCopy(Chaine,'Ce texte est affiché en ROUGE  ' + Chr(169));
  TextOut(DC,10,10,Chaine,StrLen(Chaine));         {Affichage du texte en rouge}
  ReleaseDC(hFenetre,DC);                          {Libération du DC}
  ReadLn;
  DoneWinCRT;
End.

Merciii

et pour le dev pascal stp

pour le dev pascal stp pask les bibliothèques sont invalides en dev pascal