[ИльяК]

Не получается сэмулировать клик мыши с помощью postmessage в twebbrowser .

Использую следующий код:

Код:

procedure TForm1.btn52Click(Sender: TObject);
var
  Pt: TPoint;
  wnd: HWND;
begin
  Application.ProcessMessages;
  Pt.x := 92;
  Pt.y := 438;
  wnd:=form1.Wb1.Handle;
  wnd:=GetSubChild(wnd);
  wnd:=GetSubChild(wnd);
  //edt18.text:=IntToStr(wnd);
  
postmessage(wnd,WM_Move,0,(Pt.x shl 16)+ Pt.y);
postmessage(wnd,WM_LBUTTONDOWN, MK_LBUTTON,(Pt.x shl 16)+ Pt.y);
postmessage(wnd,WM_LBUTTONUP,MK_LBUTTON,(Pt.x shl 16)+ Pt.y);
Application.ProcessMessages;
end;

Планируется передать щелчёк мыши по заданным координатам в браузерной флешь-игрушке. Но ничего не происходит.

Пробовал использовать этот же код с небольшим изменением в команде postmessage, чтобы сэмулировать нажатие клавишь - получилось, но вот именно с эмуляцией действий мыши проблема .
Подскажите плз, в чём может быть проблема.