xor ax,ax ; непосредственно иницилизация драйвера мыши
int 33h
mov ax,0001h ;отобразить курсор
int 33h
mov ax,000ch ;установка обработчика на событие
mov cx,00001010b ; формат этого параметра будет привиден ниже
push cs
pop es
mov dx,offset FUNC ;FUNС - это функция которая вызовется при событии закодировнаом в СХ
int 33h
}
}
Pascal_работа с мышью
Как сделать в паскале что бы работала там мышь
советую более подробно описать вашу проблему, или кто-то понимает что человеку надо?
Вот пример нужных функций, но не на паскале, а на ассемблере, можеш использывать ассемблерные вставки. Создай процедуры, а вних вставь этот код.
1. Иницилизация мыши
Код:
Формат СХ
Бит 0 - любое перемещение
Бит 1 - нажатие левой кнопки
Бит 2 - отпускание левой кнопки
Бит 3 - нажатие правой кнопки
Бит 5 - отпускание правой кнопки
Бит 6 - нажатие средней кнопки
Бит 7 - отпускание средней кнопки
Проедура обработки должна быть оформлена как дальняя.
в этом примере процедура FUNC вызовится при нажатии левой или правой кнопки.
2. Отобразить курсор
Код:
mov ax,0001h
int 33h
int 33h
3. Спрятать курсор
Код:
mov ax,0002h
int 33h
int 33h
4. Деиницилизация мыши
Код:
mov ax,000Ch
mov cx,0000h
int 33h
mov cx,0000h
int 33h
5. Состояние мыши
Код:
mov ax,0003h
int 33h
int 33h
Результат выставится в регистр BX,СХ,DX.
BX - состояние кнопок
бит 0 - нажата левая кнопка
бит 1 - нажата правая кнопка
бит 2 - нажата средняя кнопка
СХ - Х-координата мыши
DX - У-координата (если используеш в текстовом режиме, то координаты нужно поделить на 8. В граффическом проверь, возможно Х- координату прийдется делтить на 2)
вот например