Посмотрел в интернете, т.к. ничего уже не помню.
Всё, что написано выше должно работать.
1. Ставишь всем egavga.bgi атрибут "только для чтения".
2. Обжимаешь из командной строки "binobj egavga.bgi egavga.obj egavgaDriverProc"
3. Дкларируешь в начале программы {$L EGAVGA.OBJ} Procedure EGAVGADriverProc; External;
4. Далее:
...
Var grDriver, grMode, ErrCode: Integer;
...
Begin
If RegisterBGIDriver(@EGAVGADriverProc) < 0 Then Begin
WriteLn('Error registering driver : ', GraphErrorMsg(GraphResult)); Halt(100)
End;
grDriver := VGA;
grMode := VGAHi;
InitGraph(grDriver, grMode, '');
ErrCode := GraphResult;
If ErrCode <> grOk Then Begin
WriteLn('Graphics error : ', GraphErrorMsg(ErrCode)); Halt(100)
End;
...
End.
Взял отсюда:
http://volvo1971.nm.ru/home/faq.htm.
Ошибка 51 может появляться, если ты неправильно точку входа опубликовал при "binobj egavga.bgi egavga.obj egavgaDriverProc". Собственно
egavgaDriverProc.