Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c