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

Вниз

Как нажать NumLock?   Найти похожие ветки 

 
Spider-Lex ©   (2003-02-06 06:54) [0]

Люди!Как програмно нажать NumLock?


 
Zev   (2003-02-06 07:27) [1]

//---------------------------------------------------------------------------
// NumLock вкл / выкл
//---------------------------------------------------------------------------
void __fastcall SetNumLock( bool bState )
{
TKeyboardState KeyState;
GetKeyboardState( KeyState );
if (
( ( GetKeyState( VK_NUMLOCK ) == 1 )&&( bState == true ) )||
( ( GetKeyState( VK_NUMLOCK ) == 0 )&&( bState == false ) )
)
{
// Симитируйте нажатие клавиши
keybd_event( VK_NUMLOCK, 0x45,( KEYEVENTF_EXTENDEDKEY | 0 ),0);
// Симитируйте отпуск клавиши
keybd_event( VK_NUMLOCK, 0x45,( KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP ),0);
// установить
SetKeyboardState( KeyState );
}
}
//---------------------------------------------------------------------------
// выключить
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
SetNumLock( false );
}
//---------------------------------------------------------------------------
// включить
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SetNumLock( true );
}
//---------------------------------------------------------------------------



 
MARcoDEN ©   (2003-02-06 10:07) [2]

Зачем же на С? Просят же на Дельфи!

Вот:

VAR
KS: TKeyboardState;
begin
GetKeyboardState(KS);
KS[144] := KS[144] XOR 1; //Num Lock
SetKeyboardState(KS);
end;


 
Song ©   (2003-02-06 12:22) [3]

keybd_event()



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-6558
Kaser
2003-03-21 16:48
2003.04.03
Позиционирование курсора в произвольную позицию dbGrid


8-6614
ReYken
2002-12-27 13:11
2003.04.03
Может я и повторяюсь... он ответа я не нашел. Хоть и видел.


3-6336
Gregory
2003-03-14 00:39
2003.04.03
Компонент работы с БД DegysiDB


3-6309
Val_123
2003-03-17 12:06
2003.04.03
Перечитать таблицу


3-6343
tiam
2003-03-12 16:43
2003.04.03
Кто работал с SYBASE