delphi 切换大小写的例子

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;