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 S...[ 查看全文 ]