Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
ВнизЗажигание клавиш Найти похожие ветки
← →
Alx2 (2002-01-03 14:04) [1]Пример описан в SDK.
Перевел на Паскаль.
procedure SetNumLock( bState : Boolean );
var keyState : TKeyboardState;
begin
GetKeyboardState(keyState);
if( (bState and ((keyState[VK_NUMLOCK] and 1)=0)) or
((not bState) and ((keyState[VK_NUMLOCK] and 1)=1) ))
then
begin
// Simulate a key press
keybd_event( VK_NUMLOCK,
$45,
KEYEVENTF_EXTENDEDKEY, 0 );
// Simulate a key release
keybd_event( VK_NUMLOCK,
$45,
KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,
0);
end
end;
По поводу ScrollLock:
везде замени NUMLOCK на Scroll.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c