Re: simulate mouse click - windows

["Gutek" <gut@op.pl>]

Hi,
I have found the solution with your help:

Most of widnows API functions are implemented in win32-xxx.adb modules,
which were binded to GNAT.
Simulating mouse clicks and movement were very easy with them :)

-- (...)

with Win32.Winuser;

-- (...)
-- click:

Win32.Winuser.Mouse_Event(Win32.Winuser.Mouseeventf_Leftdown,0,0,0,0);
Win32.Winuser.Mouse_Event(Win32.Winuser.Mouseeventf_Leftup,0,0,0,0);

-- (...)
-- mouse movement:

Win32.Winuser.Mouse_Event(Win32.Winuser.Mouseeventf_Move,20,20,0,0);

---:/~