Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Вниз
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. Фаронов рулит.
← →
MBo © (2005-02-17 09:37) [3]прилинковать egavga.bgi можно.
Для этого binobj делаешь объектник, {$L EGAVGA.OBJ} и RegisterBGIDriver
Это описано в хелпе BP
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c