CapsLock NumLock и ScrollLock

[AngelOfDeath]

Как програмно выключит и включить CapsLock NumLock и ScrollLock

[kommunist]

У Фленова есть. найдеш на нашем сайте http://programmersclub.ru/book/

[AngelOfDeath]

Можете просто код написать?
Книгу качать неохото

[Квэнди]

Var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_NUMLOCK] = 0) then
KeyState[VK_NUMLOCK] := 1
else
KeyState[VK_NUMLOCK] := 0;
SetKeyboardState(KeyState);

надеюсь по поводу остальных кнопок догадаетесь

[Terran]

Если установлены компоненты LMD, то там есть компонент LMDSysInfo. Через него можешь узнавать состояние Num Lock, Caps Lock, Scroll Lock и переключать их.
Или можешь сделать так:

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_SCROLL, 0, 0, 0);
keybd_event(VK_SCROLL, 0, vk_up, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
keybd_event(VK_NUMLOCK, 0, 0, 0);
keybd_event(VK_NUMLOCK, 0, vk_up, 0);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
keybd_event(VK_CAPITAL, 0, 0, 0);
keybd_event(VK_CAPITAL, 0, vk_up, 0);
end;

[AngelOfDeath]

Тему можно закрыть