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

Вниз

Как заставить включить/выключить лампочки Caps/Num/Scroll Lock ??   Найти похожие ветки 

← →
RoLeX ©   (2004-01-03 14:17) [0]

Как заставить включить/выключить лампочки Caps/Num/Scroll Lock ???

---

← →
rolex ©   (2004-01-03 17:31) [1]

ну чё никто не знает?

---

← →
Ig   (2004-01-03 19:31) [2]

FCapsLock := ksOn
FCapsLock := ksOff;

FNumLock := ksOn
FNumLock := ksOff;

FScrollLock := ksOn
FScrollLock := ksOff;

Update;

---

← →
Vuk ©   (2004-01-03 19:36) [3]

Пример с Caps Lock:

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

---

← →
Denis group ©   (2004-01-03 19:50) [4]

Помоему это не всегда работает.

---

← →
rolex ©   (2004-01-03 21:27) [5]

угу

---

← →
имя   (2004-01-03 22:22) [6]

Удалено модератором

---

← →
имя   (2004-01-04 22:32) [7]

Удалено модератором

---

← →
имя   (2004-01-04 22:34) [8]

Удалено модератором

---

← →
ALEIIIKA ©   (2004-01-05 09:52) [9]

Функции проверки нажатия клавиш

function AltKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_MENU)) and $8000)<>0;
end;
function CtrlKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_CONTROL)) and $8000)<>0;
end;
function ShiftKeyDown : boolean;
begin
result:=(Word(GetKeyState(VK_SHIFT)) and $8000)<>0;
end;
function CapsLock : boolean;
begin
result:=(GetKeyState(VK_CAPITAL) and 1)<>0;
end;
function InsertOn : boolean;
begin
result:=(GetKeyState(VK_INSERT) and 1)<>0;
end;
function NumLock : boolean;
begin
result:=(GetKeyState(VK_NUMLOCK) and 1)<>0;
end;
function ScrollLock : boolean;
begin
result:=(GetKeyState(VK_SCROLL) and 1)<>0;
end;


---

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

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

Наверх

Память: 0.48 MB
Время: 0.025 c