| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Блокировка клавиши Windows [D7, WinXP]

alex-drob ©   (2005-07-04 01:37:00) 

Как заблокировать нажатие клавиши Windows?

---

alex-drob   (2005-07-05 00:29:00) [1]

Спасибо!

---

alex-drob   (2005-07-05 00:29:00) [2]

Спасибо!

---

Весёлый   (2005-07-04 18:11:00) [3]

Вот лови:

Данный код блокирует на клавиатуре калвиши (левый и
правый)Ctr+Esc, (левый и правый)Alt+Tab, а также
     Alt+пробел, (левый и правый) Win.

type
KBDLLHOOKSTRUCT = record
vkCode: DWORD;
scanCode: DWORD;
flags: DWORD;
time: DWORD;
dwExtraInfo:Pointer;
end;
PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;

const
LLKHF_ALTDOWN = KF_ALTDOWN shr 8;
WH_KEYBOARD_LL = 13;

function KeyboardProc(nCode: integer; wParam: longint; lParam:
longint): integer; stdcall;
var
KeyStroke: boolean;
p: PKBDLLHOOKSTRUCT;
begin
KeyStroke := false;
if (nCode = HC_ACTION) then
begin
case wParam of
WM_KEYDOWN, WM_SYSKEYDOWN,
WM_KEYUP, WM_SYSKEYUP:
begin
p := PKBDLLHOOKSTRUCT(lParam);
KeyStroke :=
( (p^.vkCode = 91) ) or ( (p^.vkCode = 92) ) or
( (p^.vkCode = VK_TAB) and ((p^.flags and
LLKHF_ALTDOWN) <> 0) ) or
( (p^.vkCode = VK_ESCAPE) and ((p^.flags and
LLKHF_ALTDOWN) <> 0) ) or
( (p^.vkCode = VK_ESCAPE) and
((GetKeyState(VK_CONTROL) and $8000) <> 0) ) or
( (p^.vkCode = 46) and ( (p^.flags and LLKHF_ALTDOWN) <>
0 ) and
( (GetKeyState(VK_CONTROL) and $8000) <> 0));
end;
end;
end;

if KeyStroke then
result := 1
else
result := CallNextHookEx(0, nCode, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
HKBD: HHook;
begin
BlockForm.Cursor:=crnone;
BlockPanel.Cursor:=crnone;
BlockMask.Cursor:=crnone;

HKBD := SetWindowsHookEx(WH_KEYBOARD_LL,
@KeyboardProc, HInstance, 0);
end;


---

alex-drob   (2005-07-04 14:18:00) [4]

> WH_KEYBOARD

Не работает для клавиши Windows. Все кнопки отключаются а эта нет.

---

alpet   (2005-07-04 14:09:00) [5]

SetWindowsHookEx + WH_KEYBOARD или WH_KEYBOARD_LL. Позволяет пропускать через собственную Callback функцию все нажатия клавиш в системе, или раз тебе так нужно - не пропускать. Детали см. в MSDN.

---

alex-drob   (2005-07-04 12:47:00) [6]

Какие?

Нашёл вариант с помощью CreateDesktop, но как потом при переключении на новый Desktop запустить в нём мою программу?

---

alpet   (2005-07-04 08:19:00) [7]

Через ловушки.

---

Наверх