| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с кодом... [D6, WinXP]
BOBAKO © (2002-12-28 19:44:00)Всех с анступающим, всем счатстья и любви! :)
Как программно вкл NUm lock
caps lock
scroll lock
код на каждую лампочку :)
А то блин у меня есть код но только работает на 98 виндах а на ХР не пашет не поможете а?
Нужно.
BOBAKO (2002-12-30 10:24:00) [1]пАСИБО ЩАС ПРОВЕРЮ!
vuk (2002-12-29 20:00:00) [2]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-29 15:08:00) [3]Вот этот код я использую для 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 и Хр работал?
Cobalt (2002-12-28 20:42:00) [4]А какой у тебякод? А то подскажут еще то же самое...
| |
