Эмуляция действий мыши в свернутом окне

[senia]

Как можно реализовать перемещение и нажатие клавиш мышки в свернутом окне.

[DomiNick]

//Послать нажатие клавиш в программу Блокнот
procedure TForm1.Button1Click(Sender: TObject);
var wnd: HWND; i: Integer; s: string;
begin
wnd:=FindWindow('notepad', nil);
if wnd<>0 then
	begin
	wnd:=FindWindowEx(wnd, 0, 'Edit', nil);
	s:='Hello';
	for i:=1 to Length(s) do
		SendMessage(wnd, WM_CHAR, Word(s[i]), 0);
	// Simulate Return Key.
	PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
	// Simulate Space.
	PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
	end;
end;

Ваше сообщение слишком короткое. Оно должно быть не менее 10 символов

[senia]

Ну тут все понятно, а как насчет эмуляции кликов мышки в заданных координатах в пределах окна (свернутого)

[psycho-coder]

Получить дескриптор кнопки (или что там у Вас) и

  // hBtn - дескриптор кнопки
  SendMessage(hBtn, WM_LBUTTONDOWN, 0, 0);
  SendMessage(hBtn, WM_LBUTTONUP, 0, 0);

Клик мышью, просто клик мышью

mouse_event(MOUSEEVENTF_LEFTDOWN or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

Кликнет, там где стоит курсор.

[senia]

тут то все понятно, непонятно как заставить курсор кликать в том окне в котором мне нужно.

postmessage(H,WM_LBUTTONDOWN,0,(pt. x shl 16)+ pt.y);
postmessage(H,WM_LBUTTONUP,0,(pt.x shl 16)+ pt.y);

почему то не получаетсо

[raxp]

H - проверьте для начала, нашли-ли вы главное окно через findwidow или enumwindows.
...приведенный код с postmessage рабочий.

[senia]

procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
Pt:TPoint;

begin

pt.x:=300;
pt.y:=200;
H := findwindow ('notepad',nil);
if H <>0 then begin

postmessage(H,WM_LBUTTONDOWN,0,(pt. x shl 16)+ pt.y);
postmessage(H,WM_LBUTTONUP,0,(pt.x shl 16)+ pt.y);

end;
end;

В нотпаде все забито буквами, чтоб видеть, куда курсор прыгнул.
Но не роботает.
Окно находит.

[raxp]

хм... а кто фокус давать дочернему окну edit будет? если уж посылать, так хэндлу его посылать нужно... да, это тоже окно...

 postmessage(FindWindowEx(FindWindow('notepad', nil), 0, 'Edit', nil),WM_LBUTTONDOWN,0,(x shl 16)+ y);
 postmessage(FindWindowEx(FindWindow('notepad', nil), 0, 'Edit', nil),WM_LBUTTONUP,0, (x shl 16)+ y);

[Nub]

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

хм... а кто фокус давать дочернему окну edit будет? если уж посылать, так хэндлу его посылать нужно... да, это тоже окно...

 postmessage(FindWindowEx(FindWindow('notepad', nil), 0, 'Edit', nil),WM_LBUTTONDOWN,0,(x shl 16)+ y);
 postmessage(FindWindowEx(FindWindow('notepad', nil), 0, 'Edit', nil),WM_LBUTTONUP,0, (x shl 16)+ y);

Помогите, пожалуйста, разобраться с FindWindowEx и FindWindow. Задача та же. Клик мышкой в свёрнутом окне. На форме (ТfrmMain) компонент TPageControl, в первой вкладке TtabSheet ("Браузер и запуск") WebBrowser. В нём загружена флеш игра. Нужно кликнуть по заданным координатам на игрушке. Такой вариант работать отказывается.

procedure TfrmMain.Button3Click(Sender: TObject);
var
  Pt: TPoint;
  left, top:integer;

  begin
  left:=strtoint(Edit31.Text);
  top:=strtoint(Edit32.Text);
  {Позволим кнопке перерисоваться}
  Application.ProcessMessages;
  {Найдем координаты центра button 1}
  Pt.x := WebBrowser1.Left + left;
  Pt.y := WebBrowser1.Top + top + 25; //костыль в 25 от верхней границы

    {Преобразуем 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);

Насколько я понимаю, как раз из-за того, что не указано дочернее окно. Подскажите, как должно выглядеть клик мышкой в свёрнутом окне в моём случае. Вооружился WinSpy++.
Фактически путь выглядит таким образом:
ТfrmMain->TPageControl->TtabSheet->ShellEmbedding->Shell DocObject View->Internet Explorer_Server->MacromediaFlashPlayerActiveX
Вот что есть на самом деле:

[Nub]

Господа, ну вот вроде так должно работать - но не хочет. Посмотрите, пожалуйста.

procedure TfrmMain.Button3Click(Sender: TObject);
var
  Pt: TPoint;
  left, top:integer;
  Wnd:HWnd;

  begin
  left:=strtoint(Edit31.Text);
  top:=strtoint(Edit32.Text);
  {Позволим кнопке перерисоваться}
  Application.ProcessMessages;
  {Найдем координаты центра button 1}
  Pt.x := WebBrowser1.Left + left;
  Pt.y := WebBrowser1.Top + top + 25; //костыль в 25 от верхней границы

  Pt := ClientToScreen(Pt);
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));


Wnd:=FindWindow('TfrmMain',nil);
Wnd:=FindWindowEx(Wnd,0,'TPageContol',nil);
Wnd:=FindWindowEx(Wnd,0,'Shell Embedding',nil);
Wnd:=FindWindowEx(Wnd,0,'Shell DocObject View',nil);
Wnd:=FindWindowEx(Wnd,0,'Internet Explorer_Server',nil);
Wnd:=FindWindowEx(Wnd,0,'MacromediaFlashPlayerActiveX',nil);


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);

end;

Меня смущает TPageContol - там вкладки две. Как на нужную вывести?