Turn on/off Caps/Num/Scroll Lock

type 

  TKeyType = (ktCapsLock, ktNumLock, ktScrollLock); 

procedure SetLedState(KeyCode: TKeyType; bOn: Boolean); 

var 

  KBState: TKeyboardState; 

  Code: Byte; 

begin 

  case KeyCode of 

    ktScrollLock: Code := VK_SCROLL; 

    ktCapsLock: Code := VK_CAPITAL; 

    ktNumLock: Code := VK_NUMLOCK; 

  end; 

  GetKeyboardState(KBState); 

  if (Win32Platform = VER_PLATFORM_WIN32_NT) then 

  begin 

    if Boolean(KBState[Code]) <> bOn then 

    begin 

      keybd_event(Code, 

                  MapVirtualKey(Code, 0), 

                  KEYEVENTF_EXTENDEDKEY, 

                  0); 

                  KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 

    end; 

  end 

  else 

    KBState[Code] := Ord(bOn); 

    SetKeyboardState(KBState); 

end; 

procedure TForm1.Button1Click(Sender: TObject); 

  SetLedState(ktCapsLock, True);  // CapsLock on 

  SetLedState(ktNumLock, True);  // NumLock on 

  SetLedState(ktScrollLock, True);  // ScrollLock on 

    本文转自 OldHawk  博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/08/20/862694.html，如需转载请自行联系原作者