发信人: 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); |
|