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

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

[解决办法]
检测大写键的状态：

C/C++ code

BYTE btKeyState[256];GetKeyboardState(btKeyState);bool b = btKeyState[VK_CAPITAL] & 1;ShowMessage(b? "按下状态": "没有按下");