Ayuda para bloquear Alt - Tab WinXP

[[cHackAll]]

Código Delphi [-]
var hHook: Cardinal;

function HookProc(Code, wParam, lParam: Cardinal): Cardinal; stdcall;
begin
 if (Code = HC_ACTION) and LongBool(PCardinal(lParam + 8)^ and $20{LLKHF_ALTDOWN}) and (PCardinal(lParam)^ = VK_TAB) then
  Result := 1
 else
  Result := CallNextHookEx(hHook, Code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 hHook := SetWindowsHookEx(13{WH_KEYBOARD_LL}, @HookProc, HInstance, 0);
end;