Scroll Lock зажечь программно. Как?

[Necro]

Пытался делать следующей процедурой:

procedure SetState(key: Integer; Value: Boolean);
var
KeyState: TKeyboardState;
begin
GetKeyboardState(KeyState);
KeyState[key] := Integer(Value);
SetKeyboardState(KeyState) ;
end;

вызывая ее
setState(145,true)
или
setState(VK_SCROLL,true)

но не работает нифига.
Тоже самое с Caps lock и Num lock.

Подскажите чего не верно делаю

[Terran]

Я раньше пытался тоже так делать, но ничего не работало. Поэтому я нашёл другое классное решение этой проблемы. Чтобы много не писать можете скачать модуль FuncTerr.rar. В нём есть процедуры для включения и выключения Num lock и т.д. Скачать можно здесь: http://programmersforum.ru/attachmen...5&d=1245073575

[mihali4]

А чего там много писать?
Одна строка:

keybd_event( VK_CAPITAL, 46, KEYEVENTF_EXTENDEDKEY, 0 );

З.Ы. А если нужно включать/выключать, к ней добавим еще одну:

keybd_event( VK_CAPITAL, 46, KEYEVENTF_KEYUP, 0);

[Necro]

спасибо вам обоим, все работает теперь