SendKeys и иже с ними. HELP ME

← →
Kreo (2003-06-05 21:41) [0]

Задача: управление произвольной программой из своей dll либо формы.

Уважаемые мастера, объясните как передать (эмулировать) нажатие клавиш в чужое окно.
Копал функции keyb_event, TranslateMessage, SendMessage, Set.. Get..
Top(Foreground) Window и т.д. но видимо подвело незнание
английского... Нажатие клавиш передается только верхнему окну...
В принципе это не проблема, но хотелось бы иметь возможность отсылать сообщения
о нажатии клавиш и в минимизированные окна. (Я хочу сделать программу принимающую
сигнал с ПДУ через СОМ порт и управляющую другими приложениями.
С приемом и расшифровкой IR сигнала нет проблем, а вот передать Проигывателю
Windows Media например последовательность клавиш Ctrl+1 - заморочки ->
клавиши передаются, но окно (если было минимизировано) восстанавливает размеры
и активизируется :( ) Как я понял из справки, сообщения о соостоянии клавиш
передаются ТОЛЬКО тому окну, которое имеет фокус ввода. (мучал функцию SetFocus,
но нужного результата не получил :( )
Помогите решить задачку, pls... :)
(Как всегда, попошу кусочек работающего кода, но не потому что мне нужен готовый результат,
а потому что слушать обяснения - это одно, а оттрассировать и ПОНЯТЬ что делается - это совсем другое)

P.S. Для передачи сообщения использовал свои процедуры, модуль SendKeys32 (Королевство
Дельфи) и др. Везде один и тот же подход. Тем не менее проблеме решаема, т.к.
сушествуют плагины (напр. для WinAMP - gen_ir.dll) выполняющие эту задачу.
Могу показать код, но думаю что в этом нет смысла, т.к. застрял собственно в
самом начале - передача окну сообщения о нажатии клавиш (для приема и анлиза данных
использую портированную на дельфи, и измененную мной WinLIRC)

Персоналии.
Очень расчитываю на ответ Юрия Зотова

Заранее спасибо.

← →
Song (2003-06-05 22:01) [1]

Действительно, передавать надо не головному окну, а тому, которое должно обработать это сообщение. Автоматически найти это окно невозможно, т.к. строение разных приложений - разное. Поэтому можно посмотреть структуру приложения, например, через WinSight, а потом найти нужное окно в иерархии через FindWindowEx() и/или GetWindow() и послать ему WM_KEYDOWN/UP или WM_CHAR

← →
Spawn (2003-06-05 22:04) [2]

Полсылать нажатия кнопок можно при помощи SendMessge(), тогда окна будут их воспринимать в любом состоянии - хоть в свернутом, хоть в активном и т.д. Но здесь есть маленькая загвоздка)) необходимо правильно указать скен код кнопки и сам ее код. Вот тебе примерчик на эмуляцию нажатия (долго я в свое время это искал):

procedure KeyDown(Wnd:HWND; Key:Word);
var
ScanCode, LParam:LongInt;
begin
ScanCode:=MapVirtualKey(Key,0);
lParam := ScanCode shl 16 or 1;
SendMessage(Wnd,WM_KEYDOWN,Key,lParam);
end;

← →
Kreo (2003-06-06 08:38) [3]

Большое спасибо за ответы. Будем копать далее.

← →
Kreo (2003-06-06 16:23) [4]

Как я понял, WM_CHAR = WM_KEYDOWN + WM_KEYUP
Но почему тогда WM_CHAR обрабатывается Блокнотом, а WM_KEYDOWN
и WM_KEYUP - нет?

Как мне отослать комбинацию клавиш - с Ctrl, Alt или Shift
напр. Ctrl+F или Shift+p, ведь WM_CHAR "отпускает" клавищу?

← →
Kreo (2003-06-06 16:26) [5]

Сорри. Вот код.
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; mHandle : HWND; implementation {$R *.DFM} function vFindHandle(): HWND; begin Result := FindWindow("Notepad", nil); if Result <> 0 then Result := GetWindow(Result, GW_CHILD) // class Edit else ShowMessage("Блокнот не запущен"); end; function vKeyDown(Wnd:HWND; Key:Word): integer; var ScanCode, LParam : LongInt; begin ScanCode := MapVirtualKey(Key, 0); lParam := ScanCode shl 16 or 1; Result := SendMessage(Wnd, WM_KEYDOWN, Key, lParam); end; function vKeyUp(Wnd:HWND; Key:Word): integer; var ScanCode, LParam : LongInt; begin ScanCode := MapVirtualKey(Key,0); lParam := ScanCode shl 16 or 1; Result := SendMessage(Wnd, WM_KEYUP, Key, lParam); end; function vChar(Wnd:HWND; Key:Word): integer; var ScanCode, LParam : LongInt; begin ScanCode := MapVirtualKey(Key,0); lParam := ScanCode shl 16 or 1; Result := SendMessage(Wnd, WM_CHAR, Key, lParam); end; procedure TForm1.Button1Click(Sender: TObject); begin mHandle := vFindHandle; if mHandle <> 0 then vChar(mHandle, Ord("x")); // работает end; procedure TForm1.Button3Click(Sender: TObject); begin mHandle := vFindHandle; if mHandle <> 0 then begin vKeyDown(mHandle, VK_SHIFT); //- vChar(mHandle, Ord("x")); // KeyDown & KeyUP не работают vKeyUp(mHandle, VK_SHIFT); //- end; end; procedure TForm1.Button4Click(Sender: TObject); begin mHandle := vFindHandle; // if mHandle <> 0 then begin // vKeyDown(mHandle, VK_SHIFT); // не работает :( vKeyDown(mHandle, Ord("x")); // vKeyUp(mHandle, Ord("x")); // а почему? vKeyUp(mHandle, VK_SHIFT); // end; end; end.

← →
Spawn (2003-06-06 20:08) [6]

Посмотри GetKeyboardState и SetKeyBoardState для задания состояния Alt, Ctrl и Shift (если я правильно помню)

SendKeys и иже с ними. HELP ME Найти похожие ветки