Процедура GetDriverName

Модуль Graph

Возвращает строку, содержащую имя текущего драйвера.

Объявление:

 Function GetDriverName : String;

Режим: 

Замечания:
После обращения к InitGraph, функция GetDriverName возвращает имя активного драйвера. Нужно быть в графическом режиме.

Пример:

 
  Uses Graph;
 
  Var Driver, Mode : Integer;
 
  Begin
   Driver:=Detect;   { Инициализируем графику }
   InitGraph(Driver, Mode, '');
   If GraphResult < 0 Then Halt(1);
   OutText('Using driver ' + GetDriverName);
   ReadLn;
   CloseGraph;
  End.

См. также:  InitGraph