Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
Проблема с SetKeyboardState(); Найти похожие ветки
← →
EHOT © (2006-03-27 13:33) [0]Помогите советом. Использую в проге переклюение Caps, Scroll.
GetKeyboardState(K);
K[VK_CAPITAL]:=1;
SetKeyboardState(K);
Переrлючение срабатывает, а светодиоды на клаве никак не реагируют...
← →
MBo © (2006-03-27 13:39) [1]
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
← →
EHOT © (2006-03-27 13:47) [2]Огромносе спасибо!!! :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
