麻烦帮忙看一下关于api函数getketstate的问题，求助大佬！

Question

procedure CapLock(bLockIt: boolean);
Var
// Level : Integer;
KeyState : TKeyBoardState;

begin
// Level := GetKeyState(VK_CAPITAL);
GetKeyState(VK_CAPITAL);
GetKeyboardState(KeyState);
if bLockIt then
KeyState[VK_CAPITAL] := 1
else
KeyState[VK_CAPITAL] := 0;
setKeyboardState(KeyState);
end;
希望给点详细说明 这几个API 是干吗的。。 这个过程实现什么样的效果啊

Answer 1

GetKeyState:用来返回指定虚拟键的状态返回值 ：如果最高位为1表示按下，0 抬起，如果最低位是1，按键被触发。一个按键，例如 CAPS LOCK键，如果打开就被触发。0不触发，该键被关闭，触发键是键盘上有指示的键GetKeyboardState将256个虚拟键的状态拷贝到指点的buffer中setKeyboardState 通过buffer中的指设置每个虚拟键的状态，windows用虚拟键来代表键盘上的按键