Turbo Pascal

← →
zsv (2005-02-17 08:26) [0]

Ребята, кто знает, как можно скомпилировать графический драйвер с программой в Turbo Pascal?

← →
Digitman © (2005-02-17 09:19) [1]

> скомпилировать ..с программой

как это ?
скомпилировать можно некую конкретную программу, но скомпилировать что-то С программой - это нонсенс

> графический драйвер

что такое "графический драйвер" ?

← →
begin...end © (2005-02-17 09:34) [2]

> zsv (17.02.05 8:26)

В каталоге с Турбо Паскалем имеется утилита BinObj. Вначале нужно с её помощью сделать объектный файл:

binobj egavga.bgi egavga mydriver

Здесь egavga - это имя нужного файла с драйвером.

После этого в каталоге появится файл egavga.obj. Теперь остаётся загрузить драйвер в программе:

uses Graph; procedure MYDRIVER; external; {$L EGAVGA.OBJ} var Driver, Mode, Error: Integer; begin if RegisterBGIDriver(@MYDRIVER) < 0 then // Ошибка else begin Driver := VGA; Mode := VGAHi; InitGraph(Driver, Mode, ""); Error := GraphResult; ... end end.

P.S. Фаронов рулит.

прилинковать egavga.bgi можно.
Для этого binobj делаешь объектник, {$L EGAVGA.OBJ} и RegisterBGIDriver
Это описано в хелпе BP

Turbo Pascal Найти похожие ветки