Текущий архив: 2004.01.20;
Скачать: CL | DM;

Вниз

Как программно переключить CapsLock?   Найти похожие ветки 

← →
Вован_   (2004-01-10 11:52) [0]

Как программно переключить CapsLock?

---

← →
DDA   (2004-01-10 12:03) [1]

procedure ddaCapslock(volume:Boolean);
begin
begin
if (GetKeyState(vk_Capital) = 1) <> volume then
begin
keybd_event( VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event( VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

end;
end;

-----------------
ddaCapslock(true) или ddaCapslock(false)

---

← →
Вован_   (2004-01-10 12:08) [2]

Заработало!
Спасибо:)

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.20;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.012 c