| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с SetKeyboardState(); [D7, XP]

EHOT ©   (2006-03-27 13:33:00) 

Помогите советом. Использую в проге переклюение Caps, Scroll.

GetKeyboardState(K);
K[VK_CAPITAL]:=1;
SetKeyboardState(K);

Переrлючение срабатывает, а светодиоды на клаве никак не реагируют...

---

EHOT   (2006-03-27 13:47:00) [1]

Огромносе спасибо!!! :)

---

MBo   (2006-03-27 13:39:00) [2]


procedure SwitchToggleKey(Key: byte; State: boolean);
var
 ks: TKeyboardState;
 ScanCode: integer;
begin
 if not key in [VK_CAPITAL, VK_NUMLOCK, VK_SCROLL, VK_INSERT] then
   exit;
 if (key = VK_NUMLOCK) and (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) then
 begin
   GetKeyboardState(ks);  {for Win95/98}
   if state then
     ks[key] := ks[key] or 1
   else
     ks[key] := ks[key] and 254;
   SetKeyboardState(ks);
 end
 else
   if odd(GetKeyState(key)) <> state then
   begin
     ScanCode := MapVirtualKey(key, 0);
     keybd_event(key, ScanCode, {KEYEVENTF_EXTENDEDKEY} 0, 0 );
   {Simulate a key release}
   keybd_event(key, ScanCode, {KEYEVENTF_EXTENDEDKEY or } KEYEVENTF_KEYUP, 0);
 end;
end;

Note that not all controls "honor" the INSERT key, and others will only respond to the INSERT key while they have focus. I'm surprised that the Extended Key "attribute" works for the non-extended keys. Strangely enough, it works as well without KEYEVENTF_EXTENDEDKEY.

Tip by Werner Hafner



---

Наверх