Процедура GetDriverName

Модуль GRAPH

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

Объявление:

Function GetDriverName : String;

Режим:

Real, Protected

Замечание:

После обращения к InitGraph, функция GetDriverName возвращает имя активного драйвера.

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для функции 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.