" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
Znalazłem takie coś:
******************************************************************************
unit myszka;
interface
uses crt,graph,dos;
procedure pokazmyszke;
procedure schowajmyszke;
procedure ustawmyszke(x1,y1,x2,y2:word);
procedure pobierzmyszke(var x,y,butt:word);
implementation
procedure pokazmyszke;
var
r:registers;
begin
r.ax:=$0001;
intr($33,r);
end;
procedure schowajmyszke;
var
r:registers;
begin
r.ax:=$0002;
intr($33,r);
end;
procedure ustawmyszke(x1,y1,x2,y2:word);
var
r:registers;
begin
r.ax:=$0007;
r.cx:=x1;
r.dx:=x2;
intr($33,r);
r.ax:=$0008;
r.cx:=y1;
r.dx:=y2;
intr($33,r);
end;
procedure pobierzmyszke(var x,y,butt:word);
var
r:registers;
begin
r.ax:=$0003;
intr($33,r);
x:=r.cx;
y:=r.dx;
butt:=r.bx;
end;
begin
******************************************************************************
Zobacz czy działa,
pozdrawiam