эмуляция щелчка мыши [D6]
Azeem © (2006-02-18 15:45:00)
Здравствуйте, мастера ! Подскажите как виртуально кликнуть
мышью по компоненту чужого приложения (известны дескриптор окна и
координаты компонента) ?
HF-Trade (2006-02-18 16:08:00) [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); //Отпускаем
Наверх 
ЧАТ |
Орешник |
|
