Нажатие Клавиш В Выбранном Окне

Тема в разделе "Delphi - Система", создана пользователем AD0, 21 фев 2013.

  1. AD0

    AD0 New Member

    Регистрация:
    26 май 2010
    Сообщения:
    1
    Симпатии:
    0
    Код (Delphi):
    procedure flood();
    begin
    wnd := form1.combobox1.ItemIndex;
    PostMessage(wnd,WM_SETFOCUS,0,0);
    setforegroundwindow(wnd);
    inp.Itype:=INPUT_KEYBOARD;
    inp.ki.wVk:= Ord(UpCase('F'));
    inp.ki.dwFlags:=0;
    for i := 1 to 10 do
    begin
    SendInput(70, inp, SizeOf(inp));
    end;
    showmessage('DONE');
    Application.ProcessMessages;
    end;

    procedure TForm1.Action1Execute(Sender: TObject);
    begin
    flood;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    combobox1.clear;
    wnd := GetWindow(handle, gw_hwndfirst);
    while wnd <> 0 do
    begin // Не показываем:
    if (wnd <> Application.Handle) // Собственное окно
    and IsWindowVisible(wnd) // Невидимые окна
    and (GetWindow(wnd, gw_owner) = 0) // Дочерние окна
    and (GetWindowText(wnd, buff, SizeOf(buff)) <> 0) then
    begin
    GetWindowText(wnd, buff, SizeOf(buff));
    combobox1.Items.Add(StrPas(buff));
    end;
    wnd := GetWindow(wnd, gw_hwndnext);
    end;
    combobox1.ItemIndex := 0;
    end;
    так клавиша не нажимается, уже как только не перепробывал...
     
  2. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    что это?
    а это?

    вощем все переписать, и рассказать что делаете
     
Загрузка...

Поделиться этой страницей