delphi - 使用WinAPI在Delphi中模拟键盘输入

Question

我需要以编程方式将一个字符输入 Delphi 网格的单元格(在其他应用程序中)。

要手动执行此操作，需要执行以下步骤:

1. 按 F3 按钮。
2. 按向右箭头键 3 次。
3. 按空格键。
4. 在键盘上输入字母“E”。

5. 按向右箭头键。

    // Press F3 button         
    keybd_event(VK_F3, 0, 0, 0);         
    // Press right arrow key 3 times
    keybd_event(VK_RIGHT, 0, 0, 0);
    keybd_event(VK_RIGHT, 0, 0, 0);
    keybd_event(VK_RIGHT, 0, 0, 0);
   
    // Press the space button
    keybd_event(VK_SPACE, 0, 0, 0);
   
    // Type letter E
    keybd_event(Ord('E'), 0, 0, 0);
   
    // Move to the right
    keybd_event(VK_RIGHT, 0, 0, 0);
   

但是这不起作用。当我运行这段代码时，似乎什么也没有发生。

我应该如何修改此代码才能真正模拟用户输入？

Answer 1

每次按键都是按下一个键，然后按下一个键。因此，每次按键时您需要调用两次 keybd_event 。例如，按 F3:

keybd_event(VK_F3, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(VK_F3, 0, KEYEVENTF_KEYUP, 0);

请注意，KEYEVENTF_KEYDOWN 实际上并不是由 Windows 头文件或 Delphi 翻译定义的。将其定义为0。不过，它使明确写出的代码更加清晰。

当然，您不会通过对 keybd_event 的成对调用来乱扔代码。但相反，您可以将成对的调用包装到辅助函数中。

在某些情况下，您可能需要指定第二个参数，即扫描代码。但这通常是没有必要的。