Показать сообщение отдельно
  #2  
Старый 27.05.2011, 16:02
ИльяК ИльяК вне форума
Прохожий
 
Регистрация: 04.05.2011
Адрес: Краснодар
Сообщения: 11
Репутация: 10
По умолчанию

Немного продвинулся в своей разработке.

Код:
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, 0,(Pt.x shl 16)+ Pt.y);
postmessage(wnd,WM_LBUTTONUP, 0,(Pt.x shl 16)+ Pt.y);
Application.ProcessMessages;
end;

С этим кодом проверил - клик в нужное место в веббраузер передаёт.
Но во флешь игру передавать клик всё равно отказывается (пробовал найти хендл именно флешь игры, нашёл, но всё равно в неё клик не передаёт). Посему вопрос к опытным программерам - может ли игра иметь какую-либо защиту от кликов через postmessage? Или всё же получается я ещё что-то не так делаю..
Ответить с цитированием