var vk:byte; sk:word; dwExtraInfo:LongInt; begin vk:=vkKeyScan(char(Byte(VK_next))); sk:=MapVirtualKey(vk,0); dwExtraInfo:=(sk shl 8) + 1; Keybd_Event(VK_next,sk,0,dwExtraInfo); //按下了 f Keybd_Event(VK_next,sk,KEYEVENTF_KEYUP,dwExtraInfo); //释放 f end;
vk:byte;
sk:word;
dwExtraInfo:LongInt;
begin
vk:=vkKeyScan(char(Byte(VK_next)));
sk:=MapVirtualKey(vk,0);
dwExtraInfo:=(sk shl 8) + 1;
Keybd_Event(VK_next,sk,0,dwExtraInfo); //按下了 f
Keybd_Event(VK_next,sk,KEYEVENTF_KEYUP,dwExtraInfo); //释放 f
end;