Delphi 按键和 keybd_event

Question

我有 2 个组件。在第一个中我写了一个键盘字符，我关注第二个然后我使用keybd_event 发送键盘按下（键向下和向上键）。但是如果我按“o”，我有ord(Key)，它是 111（对于 ascii 表来说可以）。但是keybd_event 打印出/

procedure TAutoComplete.AutoCompleteKeyPress(Sender: TObject; var Key: Char);
var
    iKeyValue: integer;
begin
    FXEdit.SetFocus;

    iKeyValue := ord(Key);

    keybd_event(iKeyValue, MapvirtualKey(iKeyValue, 0), 0, 0);
    keybd_event(iKeyValue, MapvirtualKey(iKeyValue, 0), KEYEVENTF_KEYUP, 0);
end;

如何将“密钥”转换为keybd_event 的字节？

Answer 1

这是意料之中的。 keybd_event 函数不接受 ASCII 代码。它接受virtual key codes。而111对应VK_DIVIDE。

keybd_event 的文档中明确说明了此信息。我怀疑您没有仔细阅读此文档。现在是纠正这个遗漏的时候了。

如果你想伪造一个小写的O，你需要确保CAPS LOCK是关闭的，然后伪造输入的虚拟键码$4F恰好是@987654332 @。

最后，您将从keybd_event 的文档中收集到的其他有用信息是您根本不应该调用它。相反，您应该致电SendInput。

Answer 2

谢谢大卫。抱歉文档，英语不是我的第一语言，我也不懂。

所以这段代码可以正常工作：

procedure TAutoComplete.AutoCompleteKeyPress(Sender: TObject; var Key: Char);
var
    Input    : TInput;
    InputList: TList<TInput>;
begin
    FXEdit.SetFocus;

    InputList := TList<TInput>.Create;
    try
        Input            := Default (TInput);
        Input.Itype      := INPUT_KEYBOARD;
        Input.ki.dwFlags := KEYEVENTF_UNICODE;
        Input.ki.wScan   := ord(Key);
        InputList.Add(Input);
        Input.ki.dwFlags := KEYEVENTF_UNICODE or KEYEVENTF_KEYUP;
        InputList.Add(Input);

        SendInput(InputList.Count, InputList.List[0], SizeOf(TInput));
    finally
        InputList.Free;
    end;
end;