Turbo Pascal Documentation

Функция GetDriverName

Модуль Graph

     Функция: Возвращает  строку,  содержащую  имя  текущего
драйвера.
     Описание: GetDriverName
     Тип результата: Строковый (string).
     Примечания: После обращения к InitGraph данная  функция
возвращает имя активного драйвера.
     Аналогчная функция имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также функцию InitGraph.
     Пример:

  uses Graph;
  var
    Driver, Mode : integer;
  begin
    Driver := Detect;  { перевести в графический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult < 0 then
       Halt(1);
    OutText('Используется драйвер ' + GetDriverName);
    ReadLn;
    CloseGraph;
  end.