IPB

> Instudrv.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Language:
Русский
English

  {Instudrv.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the InstallUserDriver function.}

  uses Graph;

 var
   Driver, Mode,
   TestDriver,
   ErrCode: Integer;
 {$F+}
  function TestDetect: Integer;
 { Autodetect function: assume hardware is always present; return value =
    recommended default mode }
 begin
   TestDetect := 1;   { Default mode = 1 }
  end;
 {$F-}
 begin
   { Install the driver }
   TestDriver := InstallUserDriver('TEST', @@TestDetect);
   if GraphResult <> grOk then
   begin
     Writeln('Error installing TestDriver');
     Halt(1);
   end;
   Driver := Detect;   { Put in graphics mode }
   InitGraph(Driver, Mode, '');
   ErrCode := GraphResult;
   if ErrCode <> grOk then
   begin
     Writeln('Error during Init: ',ef ErrCode);
     Halt(1);
   end;
   OutText('Installable drivers supported...');
   Readln;
   CloseGraph;
 end.

 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"