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

Вниз

Как отключить служебные клавиши (win, alt+tab и др) в WinNT/2K/XP   Найти похожие ветки 

 
3S   (2003-05-17 20:12) [0]

Подскажите, пожалуйста, как программно отключить служебные клавиши (win, alt+tab, ctrl+esc и т.д.) в WinNT/2K/XP. Вроде был какой-то шарованный компонентик для этого?!

P.S. Фишка под Win9*/Me не работает!


 
Song ©   (2003-05-17 20:15) [1]

Хуком.


 
demonyator ©   (2003-05-17 20:19) [2]


> Хуком.

....клавиатурой об колено 8-)


 
Delphi5.01 ©   (2003-05-18 10:40) [3]

Ispolzuiu tipa

SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, HInstance, 0);

no k sojaleniu knopka Win proskalzivaet, kak mojno izbejat eto?

Function KeyboardHook(Code: Integer; ParamW: WPARAM; ParamL: LPARAM): LRESULT;stdcall;
Begin
If Code IN [HC_ACTION, HC_NOREMOVE] Then
Begin
SendMessage(ShareInf^.AppWndHandle, WM_USER, ParamW, Code);
//tapa unichtojau vse dannie o najatoi knopke
ParamW:=0;
ParamL:=0;
End;
ne peredau infu sleduiushemu Hooku, no vso ravno ne rabotaet
// Result := CallNextHookEx(ShareInf^.OldHookHandle, Code, ParamW, ParamL)
End;

esli mojno primerchik


 
3S   (2003-05-18 12:19) [4]

Хуком.
Эту фишку мы проходили и как уважаемый Delphi5.01 совершенно правильно заметил

> no k sojaleniu knopka Win proskalzivaet

И видала она хук по все платформе...
Так что это не выход...
Если кто-то справился с данной проблемой, то пожалуйста
> esli mojno primerchik



 
DVM ©   (2003-05-18 12:58) [5]


> 3S

На MSDN есть пример LowLevel хука на блокировку некоторых клавишь. Кажется от Рихтера.


 
Delphi5.01 ©   (2003-05-18 15:07) [6]

>DVM sorry no ia ne ponal MSDN eto resurs, help file, sait ili chtonibut esho, elsi mojno potochnei.
Spasibo


 
Song ©   (2003-05-18 15:48) [7]

Чтобы не проскальзывала надо хук ставить на WH_KEYBOARD_LL


 
DVM ©   (2003-05-18 15:55) [8]


> Delphi5.01

http://msdn.microsoft.com/msdnmag/issues/0700/win32/default.aspx




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

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

Наверх




Память: 0.48 MB
Время: 0.014 c
7-91918
reticon
2003-05-19 10:02
2003.07.28
текстовые файлы


1-91744
chum
2003-07-15 14:22
2003.07.28
Как удалить файлы по маске?


3-91646
DBDev
2003-07-04 18:30
2003.07.28
Не могу избавится от BDE. Ставил эксперименты с TDatabase


14-91813
m_a_r_t
2003-07-12 03:59
2003.07.28
Какой сервер в инете обеспечивает наилучший халявный хостинг?


3-91617
Zaraza
2003-07-03 15:02
2003.07.28
ADO подключение к базам в разных директориях