Клик крысой на экране

← →
maxistent © (2004-10-08 11:06) [0]

Приветствую всех! Кто может помочь с решением вопроса? Нужно написать прогу, которая 1) может перевести курсор крысы в (X;Y) и 2) нажать в этой точке экрана левую/правую кнопку. С (1) проблем нет, а вот (2) - надо решить. А КАК ЭТО СДЕЛАТЬ?

← →
pavel_guzhanov (2004-10-08 11:28) [1]

var
Pos:TSmallPoint;
begin
Pos := SmallPoint(15, 11);// координаты курсора
// Нажали кнопку мыши
SendMessage(TBHnd, WM_LBUTTONDOWN, 0, Integer(Pos));
// Отпустили кнопку мыши
SendMessage(TBHnd, WM_LBUTTONUP, 0, Integer(Pos));

end;

← →
maxistent © (2004-10-08 16:44) [2]

А что за <TBHnd>, если не секрет?

← →
Семен Сорокин © (2004-10-08 17:37) [3]

> maxistent © (08.10.04 16:44) [2]
> А что за <TBHnd>, если не секрет?

Это Handle получаемый использование например таких ф-ий:
WindowFromPoint,
ChildWindowFromPoint,
ControlAtPos (если твое приложение)

← →
maxistent © (2004-10-09 18:12) [4]

Типа, пасиба и всё такое...

← →
panov © (2004-10-09 19:52) [5]

>maxistent © (08.10.04 11:06)
В следующий раз ветка с подобным заголовком будет удалена.

Ну, пардоньте, пардоньте...

Полагаю, что лучше почитать описание функции mouse_event:

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Клик крысой на экране Найти похожие ветки