|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Send (post) message
День добрый, требуется ваша помощь. Требуется послать клик на кнопку, но его нет. В чем проблема? Хендл находит верный
Код:
procedure TForm1.Button1Click(Sender: TObject); var h: HWND; begin h := FindWindow(nil,'Текст' ); h := FindWindowEx(h, 0, 'ButtonClass', nil); ShowMessage(IntToStr(h)); PostMessage(h, BM_CLICK,0,0); end; |
#2
|
||||
|
||||
Судя по названию класса 'ButtonClass', это что-то от Мелкомягких. И заметьте, на BM_CLICK обязан реагировать класс 'BUTTON'. Про 'ButtonClass' это с уверенностью сказать нельзя. Можно попытаться послать WM_LBUTTONDOWN, WM_LBUTTONUP.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
nixon232 (27.10.2014)
|
#3
|
||||
|
||||
Цитата:
Код:
... h:= FindWindowEx(FindWindow(nil, 'Текст'), 0, nil, 'Надпись на кнопке'); PostMessage(h, WM_LButtonDown, 1, 1); PostMessage(h, WM_LButtonUP, 1, 1); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
nixon232 (27.10.2014)
|
#4
|
|||
|
|||
Цитата:
|
#5
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#6
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
так я че-то с кликами и не понял, смог добиться клика только с физическим перемещением мыши
Код:
SetCursorPos( pt.X, pt.Y ); Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, 0, 0, 0, 0 ); Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 ); Код:
Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, pt.X, pt.Y, 0, 0 ); Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0 ); |
#8
|
||||
|
||||
Mouse_event отрабатывает относительные координаты, поэтому предварительно ставить курсор куда надо посредством SetCursorPos() обязательно. Его можно сначало запомнить через GetCursorPos(), обработать клик, а потом вернуть обратно координаты указателя. Или тогда попробовать сделать так
Код:
... // Вгоняем в поинт точку жима pt.X := 300; pt.Y := 300; // Преобразуем её к координатам на экране pt := ClientToScreen(pt); // 65535 - это ширина экрана pt.X := Round(pt.X * (65535 / Screen.Width)); pt.Y := Round(pt.Y * (65535 / Screen.Height)); // И лишь затем сам жим Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LeftDOWN, pt.X, pt.Y, 0, 0 ); Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, pt.X, pt.Y, 0, 0 ); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
nixon232 (08.11.2014)
|