From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,501f57fc0d7fea05
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!postnews.google.com!g47g2000cwa.googlegroups.com!not-for-mail
From: "Gutek" <gut@op.pl>
Newsgroups: comp.lang.ada
Subject: Re: simulate mouse click - windows
Date: 23 Dec 2005 17:54:47 -0800
Organization: http://groups.google.com
Message-ID: <1135389287.139845.57280@g47g2000cwa.googlegroups.com>
References: <1135302476.367605.172030@g14g2000cwa.googlegroups.com>
NNTP-Posting-Host: 82.177.41.3
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
X-Trace: posting.google.com 1135389293 4253 127.0.0.1 (24 Dec 2005 01:54:53
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sat, 24 Dec 2005 01:54:53 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
 rv:1.8) Gecko/20051111 Firefox/1.5,gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: g47g2000cwa.googlegroups.com; posting-host=82.177.41.3;
   posting-account=4YGv5A0AAAD4EQ1HDmfnrZTt9gslezrJ
Xref: g2news1.google.com comp.lang.ada:7000
Date: 2005-12-23T17:54:47-08:00
List-Id: <comp.lang.ada>

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);

---:/~