1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| program Graph_01;
{$APPTYPE CONSOLE}
{$MODE DELPHI}
uses
Crt,Graph,WinCrt;
var
Gd, Gm: smallInt;
begin
WriteLn('Passage au mode graphique dans 3 secondes.');
Delay(3000);
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult = grOk then
begin
SetColor(LightGray);
OutText('Retour au mode texte dans 3 secondes.');
Delay(3000);
CloseGraph;
end;
clrscr;
GotoXY(1,20); WriteLn('Fin du programme dans 3 secondes.');
WriteLn('Fin du programme dans 3 secondes.');
Delay(3000);
end. |
Partager