如何用程式打開或關閉NumLock燈

發文回覆瀏覽次數：1604

推到 Plurk!

推到 Facebook!

如何用程式打開或關閉NumLock燈

領航天使
站長

發表：12216
回覆：4186
積分：4084
註冊：2001-07-25

發送簡訊給我

#1 引用回覆回覆

發表時間：2002-03-16 20:57:29

IP:61.219.xxx.xxx 未訂閱

如何用程式打開或關閉NumLock燈

// NumLock打開
procedure NumLockOn; 
var KeyState: TKeyboardState; 
begin 
  GetKeyboardState(KeyState); 
  KeyState[VK_NUMLOCK] := $01; 
  SetKeyboardState(KeyState); 
end; 
// NumLock關掉
procedure NumLockOff; 
var KeyState: TKeyboardState; 
begin 
  GetKeyboardState(KeyState); 
  KeyState[VK_NUMLOCK] := $00; 
  SetKeyboardState(KeyState); 
end; 
//檢查NumLock燈是否亮著
function IsNumLockOn: boolean; 
var KeyState: TKeyboardState; 
begin 
  GetKeyboardState(KeyState); 
  Result := (KeyState[VK_NUMLOCK] and 1) = 1; 
end;

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

g9221712
高階會員

發表：145
回覆：344
積分：162
註冊：2006-07-06

發送簡訊給我

#2 引用回覆回覆

發表時間：2006-09-17 10:47:10

IP:220.134.xxx.xxx 未訂閱

前輩：

我用於筆記型電腦，好像沒有作用！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

系統時間：2024-11-23 5:27:02

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！