我正在使用 PostMessage 将 Windows 消息发送到应用程序。现在,此代码在发送除 ARROW 键(VK_RIGHT 或 VK_LEFT)之外的任何键时都可以正常工作。
procedure SendKey(key: Variant);
var
lParam: integer;
scancode: integer;
begin
if (VarType(key) = varUString) then
begin
scancode := MapVirtualKey(Ord(VarToStr(key)[1]), MAPVK_VK_TO_VSC);
lParam := scancode shl 16;
PostMessage(_hWindow, WM_KEYDOWN, scancode, lParam);
PostMessage(_hWindow, WM_KEYUP, scancode, lParam);
end else
begin
lParam := MapVirtualKey(key, MAPVK_VK_TO_VSC) shl 16;
PostMessage(_hWindow, WM_KEYDOWN, key, lParam);
PostMessage(_hWindow, WM_KEYUP, key, lParam);
end;
end;
我安装了一个键盘挂钩来监视 VK_LEFT/RIGHT 的 WM_KEYDOWN/UP 消息,以查看 lParam 的样子,我遇到了一些奇怪的值,这是按下右箭头键 (VK_RIGHT) 时的 DebugView 输出。
[2776] wParam: 39, lParam: 21823489
[2776] wParam: 39, lParam: -1051918335
如果我尝试使用硬编码的这些值发送消息,也没有任何反应,知道发生了什么吗?谢谢。