| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Turbo Pascal

zsv ©   (2005-02-17 08:26:00) 

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

---

MBo   (2005-02-17 09:37:00) [1]

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

---

begin...end   (2005-02-17 09:34:00) [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. Фаронов рулит.

---

Digitman   (2005-02-17 09:19:00) [3]

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


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


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


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

---

Наверх