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

← →
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]

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

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