Api的问题，请高手指教！

[clsfox]

在DELPHI中如何使用SetKeyBoardState设置Caps的开关状态？如何用GetKeyboardState捕获Cpas是否被按下，请各位高手帮忙！，希望能给出详细代码！

[Drate]

检查功能键状态
在很多软件中都有功能键的状态显示。如小键盘数字锁定，大小写锁定等等，可以调用函数 GetKeyState() 取得功能键状态信息。
function IsTheKeyOn(i:integer) : Boolean;
begin
Result := 0 <> (GetKeyState(i) and $01);
end;
调用自定义函数 IsTheKeyOn() 的例程如下：
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
//检查NumLock
if IsTheKeyOn(vk_numlock) then
showmessage('NumLock ON')
else
showmessage('NumLock OFF');
//检查CapsLock
if IsTheKeyOn(vk_capital) then
showmessage('CapsLock ON')
else
showmessage('CapsLock OFF');
//检查ScrollLock
if IsTheKeyOn(vk_scroll) then
showmessage('ScrollLock ON')
else
showmessage('ScrollLock OFF')；
end;


这是我用GOOGLE搜索来的，你看一看，以后如果有问题，请注意搜索!

[clsfox]

如何使用SetKeyBoardState设置Caps的开关状态？