程序不是焦点的情况下判断Caps lock是否打开 ( 积分: 200 )

procedure TForm1.Timer1Timer(Sender: TObject);
var ks:tkeyboardstate;
begin
getkeyboardstate(ks);
if odd(ks[VK_CAPITAL]) then
begin
ShowMessage(' 大写锁定键已经打开!');
end
end;
end.

procedure TForm1.Timer1Timer(Sender: TObject);
var ks:tkeyboardstate;
begin
getkeyboardstate(ks);
if odd(ks[VK_CAPITAL]) then
begin
ShowMessage(' 大写锁定键已经打开!');
end
end;
end.

什么意思，想翻译成BCB？
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
BYTE btKeyState[256];
GetKeyboardState((LPBYTE)&btKeyState);
if(btKeyState[VK_CAPITAL] &
1)
{
ShowMessage("大写锁定键已经打开!"
}
}