| [13008] キー押下のエミュレート | 返信 削除 |
| 2019/7/29 (月) 20:31:30 Mr.XRAY |
|
[ 仮想キーコードの送信方法 ] >エンターキーは送信されません。 キーコードは送信されています． Enter キーの押下としては機能していないだけです． 以下で確認できます． //============================================================================= // SendMessage でキーコードを送る //============================================================================= procedure TReceivForm.Button1Click(Sender: TObject); begin Memo1.Clear; SendMessage(Memo1.Handle, WM_KEYDOWN, VK_RETURN, 0); SendMessage(Memo1.Handle, WM_KEYUP, VK_RETURN, 0); SendMessage(Memo1.Handle, WM_KEYDOWN, VK_Shift, 0); SendMessage(Memo1.Handle, WM_KeyDown, VK_LEFT, 0); SendMessage(Memo1.Handle, WM_KEYUP, VK_LEFT, 0); SendMessage(Memo1.Handle, WM_KEYUP, VK_Shift, 0); end; //============================================================================= // PostMessage でキーコードを送る // PostMessage はメッセージキューにポストする // この場合はキーの情報をポストする //============================================================================= procedure TReceivForm.Button2Click(Sender: TObject); begin Memo1.Clear; PostMessage(Memo1.Handle, WM_KEYDOWN, VK_RETURN, 0); PostMessage(Memo1.Handle, WM_KEYUP, VK_RETURN, 0); PostMessage(Memo1.Handle, WM_KEYDOWN, VK_Shift, 0); PostMessage(Memo1.Handle, WM_KeyDown, VK_LEFT, 0); PostMessage(Memo1.Handle, WM_KEYUP, VK_LEFT, 0); PostMessage(Memo1.Handle, WM_KEYUP, VK_Shift, 0); end; //============================================================================= // Memo1 の OnKeyDown イベント処理 //============================================================================= procedure TReceivForm.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Memo1.Lines.Add('OnKeyDown $' + IntToHex(Key, 4)); end; //============================================================================= // Memo1 の OnKeyup イベント処理 //============================================================================= procedure TReceivForm.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Memo1.Lines.Add('OnKeyUp $' + IntToHex(Key, 4)); end; //============================================================================= // ApplicationEvents1 の OnMessage イベント処理 // WM_KEYDOWN, WM_KEYUP 等はメッセージキューにポストされた値を取得する // メッセージキューにポストするには PostMessage を使用する // SendMessage はメッセージキューにはポストしない //============================================================================= procedure TReceivForm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var Ltext : string; begin if Msg.hwnd = Memo1.Handle then begin if Msg.message = WM_KEYDOWN then begin Ltext := 'WM_KEYDON $' + IntToHex(Msg.wParam, 4) + ' $' + IntToHex(Msg.lParam, 4);; Memo1.Lines.Add(Ltext); end else if Msg.message = WM_KEYUP then begin Ltext := 'WM_KEYUP $' + IntToHex(Msg.wParam, 4) + ' $' + IntToHex(Msg.lParam, 4);; Memo1.Lines.Add(Ltext); end; end; end;  |