核心提示：600) this.width = 600;'>部分代码：procedure ToggleNumLock;var KeyState: TKeyboardState;begin //note: Use...
600) this.width = 600;">
部分代码：
procedure ToggleNumLock;
var
KeyState: TKeyboardState;
begin
//note: Use VK_CAPITAL for Caps Lock
GetKeyboardState(KeyState) ;
//simulate key events (down + up)
if (KeyState[VK_NUMLOCK] = 0) then
begin
Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
end
else
begin
Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ;
Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ;
end;
end;全部代码已经打包下载
迅雷专用高速下载
