Блокирование системных клавиш и их комбинаций

[rpy3uH]

тестировать и проверять надо. у меня нет на это времени

[DannerDOS]

Лишь этот вот отрывок кода подправить нужно:

const
  CtrlAltDel_CODE = (VK_DELETE shl 16) or (MOD_CONTROL or MOD_ALT);
  CtrlShiftEsc_CODE = (VK_ESCAPE shl 16) or (MOD_CONTROL or  MOD_SHIFT);
  CtrlEscape_CODE = (VK_ESCAPE shl 16) or MOD_CONTROL;

function NewWndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM):
  LRESULT; stdcall;
begin
  if msg = WM_HOTKEY then begin
    if (lParam = CtrlAltDel_CODE) or (lParam = CtrlShiftEsc_CODE)
      or (lParam = CtrlEscape_CODE) then
      Result := 0
    else
      Result := CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam);
  end else
    Result := CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam);
end;

Работают: CtrlShiftEsc_CODE и CtrlAltDel_CODE.
CtrlEscape_CODE - не работает...

Немного странно...

Приставку MOD_ имеют клавиши: SHIFT, CONTROL, WIN, ALT.
Клавиши с которыми могут заключаться в комбинации имеют приставку VK_.
т.е. WinLogon точнее WM_HOTKEY отвечает за "MOD_" клавиши и их системные комбинации.

const
  CtrlAltDel_CODE = (VK_DELETE shl 16) or (MOD_CONTROL or MOD_ALT);
  CtrlShiftEsc_CODE = (VK_ESCAPE shl 16) or (MOD_CONTROL or  MOD_SHIFT);
  CtrlEscape_CODE = (VK_ESCAPE shl 16) or MOD_CONTROL;
  AltTab_CODE = (VK_TAB shl 16) or MOD_ALT;
  Win_CODE = MOD_WIN;
  AltF4_CODE = (VK_F4 shl 16) or MOD_ALT;
  AltEscape_CODE = (VK_ESCAPE shl 16) or MOD_ALT;
  WinEscape_CODE = (VK_ESCAPE shl 16) or MOD_WIN;

Но не одна из них не работает, за исключением первых двух...
Может смещение нужно иное? Может в право? (shl, shr)

Да, верно вы говорите... Здесь что то глубже...

[DannerDOS]

Данным метадом блокируеться только две комбинации, которые ведут к диспетчеру задач (что и было целью вашей статьи). Таким метадом больше никаких функциональных клавишь заблокировать нельзя...

Тогда вытекающий вопрос (непосредственно относящицся к данной теме): Каким образом заблокировать вышеуказанные комбинации за исключением блокирующихся?

[rpy3uH]

через стандартный механизм хуков

[DannerDOS]

Кому нужно, код по указанной ссылке.

[DannerDOS]

Есть проблема переноса вашего кода из Delphi 7 на Delphi 2009, прошу помощи!