blob: 64dee1e5d94fb85447642ea7c2d4f3a3e7628565 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Program Example1;
{ Program to demonstrate the DetectMouse function. }
Uses mouse;
Var
Buttons : Byte;
begin
InitMouse;
Buttons:=DetectMouse;
If Buttons=0 then
Writeln('No mouse present.')
else
Writeln('Found mouse with ',Buttons,' buttons.');
DoneMouse;
end.
|
