Правила форума
Getdrvnm.PASЯзык:
Русский
English
{ Пример программы для функции GetDriverName }
uses Graph;
var
Driver, Mode : Integer;
begin
Driver := Detect; { Инициализируем графику }
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
OutText('Using driver ' + GetDriverName);
ReadLn;
CloseGraph;
end.
var
Driver, Mode : Integer;
begin
Driver := Detect; { Инициализируем графику }
InitGraph(Driver, Mode, 'X:\BP');
if GraphResult < 0 then
Halt(1);
OutText('Using driver ' + GetDriverName);
ReadLn;
CloseGraph;
end.
::
::
::
