精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>Re:如何检测num lock 及caps lock 是on or off

主题:Re:如何检测num lock 及caps lock 是on or off
发信人: soaringbird()
整理人: teleme(2001-05-10 12:38:28), 站内信件
【 在 kuertencheung 的大作中提到:】
:rt
:......
 检测:
Var
  ks: TkeyBoardState;
begin
 GetKeyboardState(ks);
 if (ks[VK_NUMLOCK] = 1) then
   ShowMessage('Num Lock is on.')
 else
   ShowMessage('Num Lock is off.');
 if (ks[VK_CAPITAL] = 1) then
   ShowMessage('Caps Lock is on.')
 else
   ShowMessage('Caps Lock is off.');
end;

切换:
keybd_event( VK_NUMLOCK,
                      $45,
                      KEYEVENTF_EXTENDEDKEY or 0,
                      0 );
 keybd_event( VK_NUMLOCK,
                      $45,
                      KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
                      0);

 keybd_event( VK_CAPITAL,
                      $45,
                      KEYEVENTF_EXTENDEDKEY or 0,
                      0 );
 keybd_event( VK_CAPITAL,
                      $45,
                      KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
                      0);

[关闭][返回]