张志峰的博客

水滴石川，积少成多。

导航

delphi GetKeyState

Posted on 2017-12-12 13:33  ╰★张志峰★╮  阅读(876)  评论(0)  编辑  收藏  举报

GetKeyState(VK_CAPITAL) & 0x0001

0x8000 是键有否按下
0x0001 是键的翻转状态

 

 

var
bF1Down: Boolean;
begin
bF1Down := (GetKeyState(VK_SPACE) and $8000 > 0);