Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Эмуляция клика


Дубинка ©   (2006-02-13 21:50:00) 

Подскажите пожалуйста, как можно программно сэмулировать клик мышью? Я написал так:

GetCursorPos(p);
SendMessage(WindowFromPoint(p), WM_LBUTTONDOWN, MK_LBUTTON, MAKEWORD(p.x, p.y);
SendMessage(WindowFromPoint(p), WM_LBUTTONUP, MK_LBUTTON, MAKEWORD(p.x, p.y);


В большинстве (но не во всех) случаях не работает....


begin...end   (2006-02-14 08:54:00) [1]

> Дубинка   (13.02.06 22:36) [2]

Потому что, во-первых, в качестве lParam для WM_LBUTTONDOWN/WM_LBUTTONUP должны передаваться не абсолютные координаты курсора, а клиентские. А во-вторых, параметр lParam -- 32-битный, и для его "конструирования" нужно использовать не MakeWord, а MakeLong (или MakeLParam).


Дубинка   (2006-02-13 22:36:00) [2]

Благодарю, а не объясните ли вы мне, почему не работает то что написал я?


Grief   (2006-02-13 21:54:00) [3]

Mouse_Event(MOUSEEVENTF_ABSOLUTE or  MOUSEEVENTF_LEFTDOWN, P.x, P.y,  0,  0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or  MOUSEEVENTF_LEFTUP,  P.x,  P.y,  0,  0);


Наверх

Титульная страница Поиск, карта сайта Написать письмо