请问如何确定键盘上的Caps Lock灯的状态？ ( 积分: 50 )

C

chengang_1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #1

我就是想知道Caps Lock灯的状态，是亮的还是暗的，请问各位大虾这应该如何实现？<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 谢谢！

 

C

chengang_1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #2

我就是想知道Caps Lock灯的状态，是亮的还是暗的，请问各位大虾这应该如何实现？<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 谢谢！

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #3

function GetKeyLock(vcode: Integer):boolean; &nbsp;//获取或设置键盘状态<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;//VK_INSERT VK_CAPITAL VK_NUMLOCK VK_SCROLL<br>begin<br>result:=Odd(GetKeyState(vcode));<br>end;<br><br>Caps Lock使用VK_CAPITAL <br>灯亮返回true

 

P

pyc2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #4

procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;KeyNum: TKeyboardState;<br>begin<br> &nbsp;if not GetKeyboardState(KeyNum) then exit;<br> &nbsp; if KeyNum[VK_CAPITAL] = 1 then<br> &nbsp; &nbsp; Showmessage('CAPITAL &nbsp;ON')<br> &nbsp; else<br> &nbsp; &nbsp; ShowMessage('CAPITAL &nbsp;OFf');<br>end;

 

D

dawnsong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-27

• #5

procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;KeyBoardState :TKeyboardState;<br> &nbsp;isGrey :Byte;<br>begin<br> &nbsp;GetKeyboardState(keyBoardState);<br> &nbsp;isGrey :=KeyBoardState[VK_CAPITAL];<br> &nbsp;if isGrey&lt;&gt;0 then ShowMessage('Caps Lock灯亮')<br> &nbsp;else ShowMessage('Caps Lock灯未亮');<br>end;

 

C

chengang_1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #6

谢谢

 

C

chengang_1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-28

• #7

多人接受答案了。