Правила форума
Instudrv.PASЯзык:
Русский
English
{ Пример программы для функции InstallUserDriver }
uses Graph;
var
Driver, Mode, TestDriver, ErrCode : Integer;
{$F+}
function TestDetect : Integer;
{ Функция автоопределения: Считаем, что нужная нам видеокарта
присутствует; возвращаемое значение = рекомендуемый режим }
begin
TestDetect := 1; { Режим = 1 }
end;
{$F-}
begin
{ Пытаемся установить драйвер }
TestDriver := InstallUserDriver('TEST', @TestDetect);
if GraphResult <> grOk then
begin
WriteLn('Ошибка установки драйвера.');
Halt(1);
end;
{ Инициализируем графику }
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
ErrCode := GraphResult;
if ErrCode <> grOk then
begin
WriteLn('Ошибка установки драйвера: ', ErrCode);
Halt(2);
end;
OutText('Installable drivers supported...');
ReadLn;
CloseGraph;
end.
var
Driver, Mode, TestDriver, ErrCode : Integer;
{$F+}
function TestDetect : Integer;
{ Функция автоопределения: Считаем, что нужная нам видеокарта
присутствует; возвращаемое значение = рекомендуемый режим }
begin
TestDetect := 1; { Режим = 1 }
end;
{$F-}
begin
{ Пытаемся установить драйвер }
TestDriver := InstallUserDriver('TEST', @TestDetect);
if GraphResult <> grOk then
begin
WriteLn('Ошибка установки драйвера.');
Halt(1);
end;
{ Инициализируем графику }
Driver := Detect;
InitGraph(Driver, Mode, 'X:\BP');
ErrCode := GraphResult;
if ErrCode <> grOk then
begin
WriteLn('Ошибка установки драйвера: ', ErrCode);
Halt(2);
end;
OutText('Installable drivers supported...');
ReadLn;
CloseGraph;
end.
::
::
::
