本文整理自网络,侵删。
uses Windows;...procedure SetNumLockOn;var KeyState: TKeyBoardState;begin GetKeyboardState(KeyState); if GetKeyState(VK_NUMLOCK) = 0 then begin KeyState[VK_NUMLOCK] := 1; SetKeyboardState(KeyState); end;end;
相关阅读 >>
Delphi webbrowser1 querystatuswb
winapi 字符及字符串函数(12): lstrlen - 串长度
Delphi richedit的实现msn / qq 中的动画表情
更多相关阅读请进入《Delphi》频道 >>