Мышь в Pascal

Ниже приведён код для инициализации мыши, после которого на экране монитора появится стандартный курсов мыши.

Procedure Mouse_Init;
Begin
reg.ax := $01;
intr($33,reg);
End;

Далее следует функция для получения координат мыши в "x" и "y", а сома функция возвращает код нажатой кнопки(1-Левая; 2-Правая; 3-Обе; 0-Не нажата). Чтобы отслеживать нажатие кнопок, надо эту функцию включить в 'бесконечный цикл', где и будет выполнятся основная программа.

Function Mouse_GetButtonPress(var x,y: Word): Byte;
Var regs: Registers;
Begin
regs.ax := $05;
intr($33, regs);
With regs do
Begin
  Mouse_GetButtonPress := Al;
  x := cx;
  y := dx;
End;
End;

Следующая процедура устанавливает регион действия мыши.

Procedure Mouse_Set_Region (x1,y1,x2,y2:Integer);
Var regs: Registers;
Begin
With regs do
Begin
  AX := $07;
  CX := x1;
  DX := x2;
End;
intr ($33,regs);
With regs do
Begin
  AX := $08;
  CX := y1;
  DX := y2;
End;
intr ($33,regs);
End;

Используются технологии uCoz