[?] Послать клавишу в чужое окно, не выводя окно на передний план.

[Moriarty]

Данный код выводит окно на передний план, и посылает 1 и Enter.

.......
  WND := FindWindow(Nil, 'ОКНО');

  If WND <> 0 Then
  Begin
    SetForegroundWindow(WND);
    Sleep(300);
    keybd_event(31, 0, 0, 0);
    keybd_event(VK_RETURN, 0, 0, 0);
  End;

Но, мне бы хотелось оставлять окно в свёрнутом состоянии, и отдавать ему команды, так сказать, на расстоянии.

Прошу помощи. Желательный ответ - исходный код.

[raxp]

 postmessage(WND, WM_LBUTTONDOWN,0 , (x shl 16)+ y);
 postmessage(WND, WM_LBUTTONUP,0 , (x shl 16)+ y);

смысл думаю ясен... также желательно вам поискать dfaq/

[Moriarty]

Спасибо. Смысл понятен, ага. Погуглил разные клавиши и посмотрел, что к чему. Сделал так:

Procedure EmulateKey(VKey: Integer);
Begin
PostMessage(FindWindow(Nil, 'ОКНО'), Wm_KeyDown, VKey, 1);
Sleep(200);
PostMessage(FindWindow(Nil, 'ОКНО'), Wm_KeyUp, VKey, 1);
Sleep(200);
End;

Всё это работает на ура. Но, я не могу разобраться как дочери окна передать команды. Если, допустим, хочу передать в вкладку браузера команду. Как правильно поступить?

Всё, я сам разобрался)

Okno := FindWindow(Nil, 'Окно1 - Mozilla Firefox');

Procedure EmulateKey(VKey: Integer);
Begin
Vkld := FindWindowEx(Okno, 0, 'MozillaWindowClass', Nil); //Берёт хендл текущей вкладки.
PostMessage(Vkld, Wm_KeyDown, VKey, 1);
Sleep(200);
PostMessage(Vkld, Wm_KeyUp, VKey, 1);
Sleep(200);
End;

Всем спасибо, хотя бы за просмотр темы)

[Z3rique]

Как вызвать эту процедуру по нажатию кнопки?

[ArtGrek]

Как вызвать эту процедуру по нажатию кнопки?

procedure TForm1.FormCreate(Sender: TObject);
begin
  EmulateKey(индекс клавиши, посматри в справочнике);
end;