detctgrf.pas

  {Detctgrf.PAS}
 
  { Пример программы для функции DetectGraph }
 
    Uses Graph;
 
    Var GraphDriver, GraphMode : Integer;
 
    Begin
    DetectGraph(GraphDriver, GraphMode);
   If (GraphDriver = EGA) Or (GraphDriver = EGA64) Then
   Begin
   GraphDriver:=CGA;
   GraphMode:=CGAHi;
  End;
   InitGraph(GraphDriver, GraphMode, 'C:\BP\BGI'); { Путь к BGI драйверам }
   If GraphResult <> grOk Then Halt(1);
   Line(0, 0, GetMaxX, GetMaxY);
   ReadLn;
  CloseGraph;
  End.