Помогите с кодом...

← →
BOBAKO (2002-12-28 19:44) [0]

Всех с анступающим, всем счатстья и любви! :)
Как программно вкл NUm lock
caps lock
scroll lock
код на каждую лампочку :)

А то блин у меня есть код но только работает на 98 виндах а на ХР не пашет не поможете а?
Нужно.

← →
Cobalt © (2002-12-28 20:42) [1]

А какой у тебя код? А то подскажут еще то же самое...

← →
BOBAKO (2002-12-29 15:08) [2]

Вот этот код я использую для 98
VAR
KS: TKeyboardState;
begin
GetKeyboardState(KS);
KS[020] := KS[020] XOR 1; //Caps Lock
KS[144] := KS[144] XOR 1; //Num Lock
KS[145] := KS[145] XOR 1; //Scroll Lock
SetKeyboardState(KS);
end;
а какой чтоб на 2000 и Хр работал?

← →
vuk © (2002-12-29 20:00) [3]

procedure SetKeyState( Key : word; Value : boolean );
begin
if (GetKeyState(Key) = 1) <> Value then
begin
keybd_event( Key, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event( Key, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;
end;

SetKeyState(VK_NUMLOCK, true);
SetKeyState(VK_CAPITAL, true);
SetKeyState(VK_SCROLL, true);

← →
BOBAKO (2002-12-30 10:24) [4]

пАСИБО ЩАС ПРОВЕРЮ!

Помогите с кодом... Найти похожие ветки