Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как включить/выключить лампочки на numlock, capslock, etc... ?

Как включить/выключить лампочки на numlock, capslock, etc... ?

procedure SetNumLock(bState:Boolean);
var
   KeyState : TKeyboardState;
begin
   GetKeyboardState(KeyState);
   if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or
      ( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=1))) then
   // Simulate a key press
      keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
   // Simulate a key release
      keybd_event( VK_NUMLOCK, $45,  (KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP), 0);
end;

Заменяйте VK_NUMLOCK на все что душе угодно.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru