Отправка клавиш в неактив окно

[onefinal]

вот к чему я пришел, научился отправлять клавиши в неактив окно

PHP код:

if GetAsyncKeyState(VK_F1) <> 0 then
      PostMessage(FindWindow(nil, 'Aion Client'), WM_IME_KEYDOWN,VK_F1,0 ); 


вот так я ищу hWnd окна и ему отправляю F1 но если таких окон будет 2, то ни в одно не отправляеться команда, сделал список с процессами

PHP код:

procedure TForm1.GetProcessList;
var
  Wnd: HWND;
  buff: array [0..127] of Char;
begin
  form1.combobox1.Items.Clear; // Î÷èùàåì ñïèñîê ïðîöåññîâ â ôîðìå
  Wnd := GetWindow(Handle, GW_HWNDFIRST);
  while Wnd <> 0 do
  begin
    // Íåêîòîðûå îêíà ïîêàçûâàòü íåíóæíî
    if (Wnd <> Application.Handle) and // Ñîáñòâåííîå îêíî
      (GetWindowText(Wnd, buff, SizeOf(buff)) <> 0) // Îêíà áåç çàãîëîâêîâ
      then
    begin
      GetWindowText(Wnd, buff, SizeOf(buff));
     form1.combobox1.Items.Add(StrPas(buff)); // Äîáàâëåíèå çàïèñè â ñïèñîê
    end;
    Wnd := GetWindow(Wnd, GW_HWNDNEXT);
  end;
end;

procedure TForm1.btRefreshClick(Sender: TObject);
begin
  GetProcessList;



end; 


и стал в ступор, нужно из этого списка выбрать программу потом получить её hWnd и отправлять, подкиньте идею пожалуйста

[Larboss]

Получай Handle не по окну.

http://programmersforum.ru/showthread.php?t=5551

[onefinal]

там не понял, сделал то что по теме, теперь вопрос
почему срабатывает не с первого раза этот код ?

procedure TForm1.ListBox1Click(Sender: TObject);

begin
      //PostMessage(FindWindow(nil, 'ComboBox1.Items[ComboBox1.ItemIndex]'), WM_IME_KEYDOWN,VK_F1,0 );
     Wnd :=  FindWindow(nil, PChar(combobox1.Items[combobox1.ItemIndex]));
      if combobox1.ItemIndex>=0
  then Label1.Caption:=combobox1.Items[combobox1.ItemIndex]
  else Label1.Caption:='Íè÷åãî íå âûáðàíî';

//PostMessage(Wnd, WM_IME_KEYDOWN,VK_F1,0 );

end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetAsyncKeyState(VK_F1) <> 0 then
     sendMessage(Wnd, WM_IME_KEYDOWN,VK_F1,0 );

     if GetAsyncKeyState(VK_F2) <> 0 then
     sendMessage(Wnd, WM_IME_KEYDOWN,VK_F2,0 );

     if GetAsyncKeyState(VK_F3) <> 0 then
     sendMessage(Wnd, WM_IME_KEYDOWN,VK_F3,0 );

     if GetAsyncKeyState(VK_F4) <> 0 then
     sendMessage(Wnd, WM_IME_KEYDOWN,VK_F4,0 );

     if GetAsyncKeyState(VK_F5) <> 0 then
     sendMessage(Wnd, WM_IME_KEYDOWN,VK_F5,0 );

end;

end.