Кликв чужом приложении

[alfikss]

Приветствую обитателей!
Вопрос такой. Пытаюсь отправить клик в стороннее приложение, но чего-то не слушается меня код =(
На примере пэйнта:

h:=findwindow(nil, PChar('Безымянный - Paint'));
if h<>0 then showmessage('+') else showmessage('-');
//SetForegroundWindow(h);
sendmessage(H, WM_LBUTTONDOWN, MK_LBUTTON, 400 + 400 shl 16);
sleep(1000);
sendmessage(H, WM_LBUTTONUP, MK_LBUTTON, 400 + 400 shl 16);

[ClMlD]

Видимо у самого поля для рисования другой хендл вот так работает норм

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Pos: TPoint;
  Wnd: HWND;
begin
GetCursorPos( Pos );
Wnd := WindowFromPoint( Pos );
if (GetKeyState(VK_SHIFT) and 128) = 128 then
begin
Lwnd1.Caption:=IntToStr(wnd);
Timer1.Enabled:=False;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
sendmessage(StrToInt(Lwnd1.Caption), WM_LBUTTONDOWN, MK_LBUTTON, (400 shl 16) + 400);
sleep(1000);
sendmessage(StrToInt(Lwnd1.Caption), WM_LBUTTONUP, MK_LBUTTON, (400 shl 16) + 400);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

Курсор наведите на поле ввода Shift потом уже можно клик посылать
Или через WinSight или Spy++ узнавай нужный HWND

[alfikss]

Что есть Lwnd1?

[alfikss]

Понял. Спасибо, работает