Скачать: CL | DM;

Нажать кнопку мыши в окне чужого приложения   Найти похожие ветки 

← →
alex732   (2004-01-31 16:15) [0]

Добрый день...  Возникла насущная проблема проэмулировать нажатие левой кнопки мыши в окне чужого приложения...
Пишу:
procedure TForm1.Timer1Timer(Sender: TObject);
var
 Wnd: THandle;
begin
 Wnd := findWindow(0,"C:\FriendProg.exe");
 if Wnd = 0 then
   MessageBox(Application.handle,"Окно не найдено","Ошибка",MB_OK)
 else
   begin
       PostMessage(Wnd, WM_RButtonDown,1,1);
       PostMessage(Wnd, WM_RButtonUP,1,1);
   end;
end;

Подразумеваю, что мышь нажимается где-то не там, т.е. не правильно передаются координаты....  но как их передать праильно не знаю....  Или в чем то другом моя ошибка?...  Подскажите!!!

---

← →
alex732   (2004-01-31 16:43) [1]

Ай... Ошибся... Это я эксперементировал, думал, мож правая кнопка нажмется :-))  и в тексте потом не изменил...  Читать WM_RButtonDown
WM_RButtonUP

Извиняюсь :-)

---

← →
alex732   (2004-02-02 10:05) [2]

Помогите нажать кнопку мыши!!! :-)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c