Текущий архив: 2006.03.05;
Скачать: CL | DM;

Вниз

эмуляция щелчка мыши   Найти похожие ветки 

← →
Azeem ©   (2006-02-18 15:45) [0]

Здравствуйте, мастера ! Подскажите как виртуально кликнуть мышью по компоненту чужого приложения (известны дескриптор окна и координаты компонента) ?

---

← →
HF-Trade ©   (2006-02-18 16:08) [1]

Var
MousePoint: TPoint;
Coord:Integer;
App:HWnd;
Begin
App:=FindWindow("Искомое окно",nil); //Ищем окно
GetCursorPos(MousePoint); //Получаем координаты курсора
Windows.ScreenToClient(UO,MousePoint); //Координаты курсора относительно окна
Coord:=MakeLong(MousePoint.X,MousePoint.Y);

PostMessage(UO,WM_LBUTTONDOWN,0,Coord); //Нажмаем левую кнопку  мыши
PostMessage(UO,WM_LBUTTONUP,0,Coord); //Отпускаем

---

Страницы: 1 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.036 c