Как запретить нажатие клавиш?

if (Shift.Contains(ssAlt)&&Key==VK_F4) Tag=1;

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  CanClose = false;
}

if (Shift.Contains(ssAlt)&&Key==VK_F4) {
  Key = 0; // не следует забыть, что мы пользуемся ссылкой на реальный объект ([B]WORD &Key[/B]), а не обычной переменной!
  // остальные действия, если необходимы
}

__fastcall TForm14::TForm14(TComponent* Owner)
    : TForm(Owner)
{
 
}
 
//---------------------------------------------------------------------------
int __stdcall KeyboardProc(int nCode, DWORD wParam, DWORD lParam) // Блокировка системных клавиш
{
    HHOOK hHook;
    static bool KeyStroke;
    static KBDLLHOOKSTRUCT *p;
 
    if (nCode < 0) return (int)CallNextHookEx(NULL, nCode, wParam, lParam);
 
    KeyStroke = FALSE;
    if (nCode == HC_ACTION)
    {
        switch(wParam)
        {
        case WM_KEYDOWN:
        case WM_SYSKEYDOWN:
        case WM_KEYUP:
        case WM_SYSKEYUP:
            p = (KBDLLHOOKSTRUCT *)lParam;
            KeyStroke = ((p->vkCode == VK_LWIN) || (p->vkCode == VK_RWIN)) ||
                        ((p->vkCode == VK_TAB) && ((p->flags & LLKHF_ALTDOWN)!=0)) ||
                                                ((p->vkCode == VK_ESCAPE) && ((p->flags & LLKHF_ALTDOWN)!=0)) ||
                        ((p->vkCode == VK_ESCAPE) && ((GetKeyState(VK_CONTROL) & 0x8000)!=0)) ||
                        ((p->vkCode ==VK_F4) && ((p->flags & LLKHF_ALTDOWN)!=0)) ||
                        ((p->vkCode ==0xC0) && ((MOD_CONTROL +  0x10)!=0));
 
            break;
        default:
            break;
        }
    }
  if (KeyStroke)
    return 777;
  else
    return (int)CallNextHookEx(hHook, nCode, wParam, lParam);
 
}
 
//---------------------------------------------------------------------------
 
void __fastcall TForm14::FormCreate(TObject *Sender)
{
// При загрузке программы - активация хука
 
try
    {
        //hHook =
        SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)&KeyboardProc, GetModuleHandle(NULL), 0);
    }
    catch(...)
    {
        ;
    }
//------------------------------------------------------- При закрытии проги хук удаляеться..

#include "registry.hpp"
//---------------------------
 
TRegistry   *reg;
  reg = new TRegistry();
  reg->RootKey = HKEY_CURRENT_USER;
  reg->OpenKey("Software", true);
  reg->OpenKey("Microsoft", true);
  reg->OpenKey("Windows", true);
  reg->OpenKey("CurrentVersion", true);
  reg->OpenKey("Policies", true);
  reg->OpenKey("System", true);
  reg->WriteString("DisableTaskMgr", "1");
  //1 - блок, 0 или отсутствие ключа - отключение блокировки (null)
  reg->CloseKey();