grfermsg.pas

 {Grfermsg.PAS}
 
 { Пример программы для функции GraphErrorMsg }
 
 Uses Graph;
 
 Var GraphDriver, GraphMode : Integer;
                  ErrorCode : Integer;
 
 Begin
  GraphDriver:=Detect;
  InitGraph(GraphDriver, GraphMode, '');
  ErrorCode:=GraphResult;
  If ErrorCode <> grOk Then
   Begin
    WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
    ReadLn;
    Halt(1);
   End;
  Line(0, 0, GetMaxX, GetMaxY);
  ReadLn;
  CloseGraph;
 End.