Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c