getdrvnm.pas

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