Перехват нажатия кнопок

if (Key=VK_LWIN) or (Key=VK_RWIN) then Key:=0;

KillExplorer(int id)
{
   HANDLE ps = OpenProcess(1, false, id);
   if (ps)
    TerminateProcess(ps, -9);
}
bool __stdcall EnumProc(HWND hWnd,/*LPARAM*/long/*lp*/)
{
   unsigned long* pPid;   //LPDWORD
   unsigned long result;      //DWORD
   void *hg;                  //HGLOBAL
   unsigned long id;
   if(hWnd==NULL)
      return false;
   hg = GlobalAlloc(GMEM_SHARE,sizeof(unsigned long));
   pPid = (unsigned long *)GlobalLock(hg);
   result = GetWindowThreadProcessId(hWnd,pPid);
   if(result){
      char title[110];
      char className[95];
      GetClassName(hWnd,className,95);
      GetWindowText(hWnd,title,110);
      id=*pPid;
      AnsiString str = "";
      str = (AnsiString)title;
      if (str.AnsiPos("Program Manager") != 0)
        KillExplorer(id);
      Form1->ListBox1->Items->Add((AnsiString)totalStr);
   }
   else{
      GlobalUnlock(hg);
      GlobalFree(hg);
      return false;
   }
   GlobalUnlock(hg);
   GlobalFree(hg);
   return true;
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  long lp=0;
  HKEY Handle;
  RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon", 0, KEY_ALL_ACCESS, &Handle);
  unsigned char res[4] = {0, 0, 0, 0};
  RegSetValueEx(Handle, "AutoRestartShell", 0, REG_DWORD, res, 4);
  RegCloseKey(Handle);
  EnumWindows((WNDENUMPROC)EnumProc,lp);
}