Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.01.2010, 21:53   #1
Kukkk
Форумчанин
 
Регистрация: 28.06.2007
Сообщений: 123
По умолчанию нажать на форму программно по координатам

Возможно ли нажать на форму программно по координатам? Я пришу сейчас программу- кликер, в которой можно записывать скрипты, а потом она по ним прокликивает в встроенном веббраузере по координатам. Проблема в том, что если кликать программно мышкой то компьютер парализуется, а можно ли как-нибудь сделать так, чтобы она сама на своей форме тыкала по координатам даже в фоновом состоянии?
Kukkk вне форума Ответить с цитированием
Старый 20.01.2010, 22:19   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
если кликать программно мышкой то компьютер парализуется
Бред какой-то пишете...
Приведите код, как вы это делаете.
mihali4 вне форума Ответить с цитированием
Старый 20.01.2010, 22:47   #3
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

вопросы пошли опять что-то однотипные
...чёт подозреваю TC использует keybd_event или у меня миелофон сломался ...проведите-ка ТС раскопки в кнопочке поиск по sendmessage/
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 20.01.2010, 23:40   #4
Kukkk
Форумчанин
 
Регистрация: 28.06.2007
Сообщений: 123
По умолчанию

Я таким методом тыкаю по своей форме:
Код:
  SetCursorPos(pt.x, pt.y);
   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN,Pt.x, Pt.y, 0,0);
   Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP,Pt.x,Pt.y,0,0);
Вследствие чего компьютер может заниматься только моей программой, а хотелось бы ее свернуть и заниматься своими делами. Спасибо за совет, сейчас пойду копать sendmessage.
Kukkk вне форума Ответить с цитированием
Старый 20.01.2010, 23:46   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Вот это вам поможет:
Клик по кнопке пуск

Код:
var
pPoint: TPoint;
hPointWnd: HWnd;
begin
pPoint.X := 15;
pPoint.Y := Screen.Height-20;
SetCursorPos(pPoint.X, pPoint.Y);
hPointWnd := WindowFromPoint(pPoint);
SendMessage(hPointWnd, WM_LBUTTONDOWN, MK_LBUTTON, MAKELONG(1, 1));
SendMessage(hPointWnd, WM_LBUTTONUP, 0, MAKELONG(0, 0));
end;
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно нажать Enter, зная Handle? MURDERER Общие вопросы Delphi 1 15.09.2008 00:00
Программно нажать кнопку DeDoK Общие вопросы Delphi 2 04.05.2008 21:46
Как программно нажать Ctrl + V ffo Win Api 11 29.07.2007 17:58
Как программно нажать клавишу в чужом процессе? Sere0ga Win Api 2 27.03.2007 18:43