bcb中怎么 设置和检测 capslock 状态

bcb中如何 设置和检测 capslock 状态
我想通过一个按钮来控制和检测差CapsLock是否被按下,以及控制capslock的状态,但是,实在是找不到答案,希望能得到大家的帮助。

------解决方案--------------------
检测大写键的状态:
C/C++ code
BYTE btKeyState[256];
GetKeyboardState(btKeyState);
bool b = btKeyState[VK_CAPITAL] & 1;

ShowMessage(b? "按下状态": "没有按下");