blob: 4cbc0bfeba02595d6fbf0768e063a9b29245834d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{example for SetMousePos}
Uses MsMouse, Crt;
Begin
If MouseFound Then
Begin
ShowMouse;
While KeyPressed do ReadKey;
Repeat
SetMousePos(Random(80*8), Random(25*8));
delay(100);
Until Keypressed;
HideMouse;
While KeyPressed do ReadKey;
End;
End.
|
