| function GetKbStatus():string;
//返回当前键盘状态,包括NumLoce、Caps Lock、Insert
//每个状态信息占两个字符,顺序为:NumLoce、Caps Lock、Insert
//Copy Right 549@11:29 2003-7-22
var Status:string;
KeyStates:TKeyboardState;
begin
GetKeyboardState(KeyStates);
if Odd(KeyStates[VK_NUMLOCK])then
Status:='数字'
else
Status:='光标';
if Odd(KeyStates[VK_CAPITAL]) then
Status:=status+'大写'
else
Status:=status+'小写...
[ 查看全文 ]