RgBGIdrv.PAS

Язык:
Русский
English


 { Пример программы для функции RegisterBGIDriver }

uses Graph;

var
  Driver, Mode : Integer;
  DriverF      : File;
  DriverP      : Pointer;
begin
 { Загружаем и регистрируем файл драйвера }
  Assign(DriverF, 'CGA.BGI');
 Reset(DriverF, 1);
 GetMem(DriverP, FileSize(DriverF));
 BlockRead(DriverF, DriverP^, FileSize(DriverF));
 if RegisterBGIDriver(DriverP) < 0 then
 begin
   WriteLn('Ошибка регистрации драйвера: ', GraphErrorMsg(GraphResult));
   Halt(1);
 end;
 { Инициализируем графику }
  Driver := CGA;
  Mode := CGAHi;
  InitGraph(Driver, Mode, '');
 if GraphResult < 0 then
   Halt(1);
  OutTextXY(GetMaxX div 2, GetMaxY div 2, 'Driver loaded successfully');
 ReadLn;
  CloseGraph;
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //