Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
大家好!小弟目前是以軌跡球來操作電腦,作業環境是 cwindows 3.1,輸入法是倚天忘形輸入法。此輸入法會在螢幕上顯示一個小鍵盤,可用軌跡球輸入英文字母、注音符號以及數字等。但是有一個缺點,那就是輸入英文字母時,沒有辦法切換大小寫。因此小弟想寫一個可以切換大小寫的小程式,想請問該如何著手進行呢?懇請賜教。小弟在此先謝謝各位。
ok, 小弟手上正好有這麼一個程序, 請您試試看:
CapLock(True); (* 大寫 *) CapLock(False); (* 小寫 *) (* 鍵盤大小寫鎖定 *) Procedure CapLock(bLockIt: boolean); Var Level : Integer; KeyState : TKeyBoardState; begin Level := GetKeyState(VK_CAPITAL); GetKeyboardState(KeyState); if bLockIt then KeyState[VK_CAPITAL] := 1 else KeyState[VK_CAPITAL] := 0; setKeyboardState(KeyState); end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |