getmxmd.pas

 {Getmxmd.PAS}
 
 { Пример программы для функции GetMaxMode }
 
 Uses Graph;
 
 Var Driver, Mode : Integer;
                I : Integer;
 Begin
  Driver:=Detect;
  { Инициализируем графику }
  InitGraph(Driver, Mode, '');
  If GraphResult < 0 Then Halt(1);
  { Выводим имена всех режимов }
  For I:=0 To GetMaxMode Do OutTextXY(10, 10*Succ(I), GetModeName(I));
  ReadLn;
  CloseGraph;
 End.