Mouse_Event vs PostMessage

[Nub]

Собираю сейчас бота для игры на флеше. Ниже, в частности процедура клика мышкой по заданным координатам WebBrowser.

procedure TfrmMain.ClickToPage(const left: integer; const top: integer);
var
  Pt: TPoint;
  begin
  {Позволим кнопке перерисоваться}
  Application.ProcessMessages;
  {Найдем координаты центра button 1}
  Pt.x := WebBrowser1.Left + left;
  Pt.y := WebBrowser1.Top + top; 
  {Преобразуем Pt к координатам экрана}
  Pt := ClientToScreen(Pt);
  {Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  {Переместим курсор мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
  {Имитируем нажатие левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
  {Имитируем отпускание левой кнопки мыши}
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);

end;

Меня сильно напрягает то, что окно программы должно быть развёрнуто. При попытке свернуть в трей - мышка бегает где угодно, но не на моём WebBrowser'e. Как заставить эту процедуру работать и при свёрнутом приложении?

Слышал про PostMessage. Вероятно, тогда мышь дёргаться не должна. Но как его использовать в данной ситуации не знаю. Помогите, пожалуйста.

[TwiX]

Работа с FindWindow и FindWindowEx. Но не думаю, что с помощью неё можно отправить клик на флэш гаму.

[Nub]

Сообщение от TwiX

Работа с FindWindow и FindWindowEx. Но не думаю, что с помощью неё можно отправить клик на флэш гаму.

Фактически PostMessage посылает сигнал о положении мыши, а не эмулирует его. Наверное. Так что это именно то, что мне нужно. Только я пока туплю, и не могу разобраться с этой функцией

[Nub]

А так можно?

procedure TfrmMain.ClickToPage(const left: integer; const top: integer);
var
  Pt: TPoint;
  begin
  {Позволим кнопке перерисоваться}
  Application.ProcessMessages;
  {Найдем координаты центра button 1}
  Pt.x := WebBrowser1.Left + left;
  Pt.y := WebBrowser1.Top + top; 
  {Преобразуем Pt к координатам экрана}
  Pt := ClientToScreen(Pt);
  {Преобразуем Pt к "mickeys" (аболютным координатам курсора мышки}
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));

postmessage(frmMain.WebBrowser1.Handle,WM_MOVE,0,(Pt. x shl 16)+ Pt.y);
postmessage(frmMain.WebBrowser1.Handle,WM_LBUTTONDOWN,0,(Pt. x shl 16)+ Pt.y);
postmessage(frmMain.WebBrowser1.Handle,WM_LBUTTONUP,0,(Pt.x shl 16)+ Pt.y);

end;