Мышка Этот моудль "Мышь", как вы видите, написан с использованием ASM вставок. Должно работать.
Скачать pas_Mouse.zip(449 байт)

Unit MouseLib;

Interface

Procedure InitMouse(minx, miny, maxx, maxy : Word);
Procedure SetMouseXY(X, Y : Integer);
Function GetMouseX : integer;
Function GetMouseY : Integer;
Procedure DefaultMouseOn;
Procedure DefaultMouseOff;
Function Mouseloaded : Boolean;
Function GetMouseKey : Word;

Implementation

function mouseloaded;assembler;
asm
mov ax,0
mov bx,0
int 33h
end;

procedure initmouse;assembler;
asm
mov ax,0
int 33h
mov ax,7
mov cx,minx
mov dx,maxx
int 33h
mov ax,8
mov cx,miny
mov dx,maxy
int 33h
end;

procedure setmousexy;assembler;
asm
mov ax,4
mov cx,x
mov dx,y
int 33h
end;

function getmousex;assembler;
asm
mov ax,0003h
int 33h
mov ax,cx
end;

function getmousey;assembler;
asm
mov ax,0003h
int 33h
mov ax,dx
end;

function getmousekey;assembler;
asm
mov ax,0003h
int 33h
mov ax,bx
end;

procedure defaultmouseon;assembler;
asm
mov ax,1
int 33h
end;

procedure defaultmouseoff;assembler;
asm
mov ax,2
int 33h
end;

begin
end.


Всё! На главную