Решено: Вопрос по Delphi

Модератор: Модераторы разделов

stampoon
Сообщения: 702
ОС: Mandrake/Mandriva Cooker

Решено: Вопрос по Delphi

Сообщение stampoon »

Вообщем надо "навести" мышку в заданную координатами точку и кликнуть левой кнопочкой. Как это сделать?
PS не ругайте, дельфя под вином))
Интеллект — это способность избегать выполнения работы, но так, чтобы она при этом была сделана.
Спасибо сказали:
Аватара пользователя
dunin
Сообщения: 46
ОС: GRUB |SUSE 11 | WinXP

Re: Решено: Вопрос по Delphi

Сообщение dunin »

stampoon писал(а):
11.01.2008 11:56
Вообщем надо "навести" мышку в заданную координатами точку и кликнуть левой кнопочкой. Как это сделать?
PS не ругайте, дельфя под вином))

Код:

uses ... Controls; ... var P: tPoint; begin P.X:= Mouse.CursorPos.X - 20; // Смещение на 20 пикселей P.Y:= Mouse.CursorPos.Y - 20; Mouse.CursorPos:= P; // Дальше кликаем... {ps Не понял что значит "кликнуть"? В пределах приложения или в чужом окне? Если в чужом, то так:} mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); ...
DualCore AMD Athlon 64 X2, 2300 MHz (11.5 x 200) 4400+ Asus M3A (AMD 770, AMD Hammer) 2048 Мб (DDR2-800 DDR2 SDRAM) NVIDIA GeForce 8800 GTS (320 Мб) [17" LCD (Digital)] ST3320620AS (320 Гб, 7200 RPM, SATA-II) _NEC DVD_RW (ND-4550A)
Спасибо сказали:
stampoon
Сообщения: 702
ОС: Mandrake/Mandriva Cooker

Re: Решено: Вопрос по Delphi

Сообщение stampoon »

dunin
огромное спасибо.
Интеллект — это способность избегать выполнения работы, но так, чтобы она при этом была сделана.
Спасибо сказали: