Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: CL | DM;

Вниз

включение/выключение numlock.......   Найти похожие ветки 

 
stud ©   (2004-03-02 13:46) [0]

пытаюсь это сделать но не получается
var
abKeyState: tkeyboardstate;
begin
GetKeyboardState(abKeyState);
abKeyState[Vk_NumLock]:=abKeyState[Vk_NumLock] or $01;
SetKeyboardState(abkeystate);
вроде как в приерах написано, но не работает. почему?


 
hyper_omsk ©   (2004-03-02 14:12) [1]


procedure TForm1.Button1Click(Sender: TObject);
var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if (not ((KeyState[VK_NUMLOCK] and 1)=1) or
((KeyState[VK_NUMLOCK] and 1)=1)) then
// Simulate a key press
keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
// Simulate a key release
keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or
KEYEVENTF_KEYUP), 0);
end;


 
stud ©   (2004-03-02 14:32) [2]

спасибо



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

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

Наверх




Память: 0.46 MB
Время: 0.034 c
3-43283
Крутыш
2004-01-23 13:43
2004.03.14
Можно ли использовать таблицу без ключевого поля.


8-43684
exciter__
2003-11-13 06:02
2004.03.14
WinAPI функция PlaySound не для WAV а для MIDI.


1-43521
@G
2004-02-28 13:37
2004.03.14
Как свернуть программу в <B>Tray</B>


3-43343
MicroWorld
2004-02-16 22:37
2004.03.14
опять запрос на 4


3-43383
SergP
2004-02-14 14:35
2004.03.14
Как сделать что-то типа LIMIT в Access