ВАЖНО!
Включите в настройках компилятора :
Цитата
286 instructions
Где именно это сделать ?
Если ты про TP, то: Options -> Compiler -> вторая строка сверху...
забыл : free pascal
Добавлено через 5 мин.
Все сам нашел.
Я пытаюсь init мыш по faq но получаю ошибку 216
Добавлено через 6 мин.
Методом исключения у меня ошибка вот здесь
int $33
Из
Function InitMouse : boolean;
var
ResultRegAX : word;
begin
asm
mov ax, $00
int $33
mov ResultRegAX, ax
end ;
If ResultRegAX = $FFFF then begin writeln('test') ; InitMouse := true ; end else InitMouse := false ;
end;
Мог бы и не пробовать... В FPC другие средства для работы с мышью, в частности - модуль Mouse.
нееееееееет .
Теперь буду знать.