키보드 후킹에 대해서 공부를하고 있습니다.
후킹을 하려면 유저모드 커널모드에서 해야한다고하는데 일반적으로 쓰는 vclform 에서는 사용이 안되나요?
이코드가 의미하는것이 어떤것인가요 ?  
type
    PKBDLLHOOKSTRUCT = ^TKBDLLHOOKSTURCUT;
    TKBDLLHOOKSTURCUT = record
    vkCode,
    scanCode,
    flag,
    time,
    dwExtraInfo; DWORD;
    end;

  private
    hhookCurrent : HHOOK;

end;

function KeyBoardProc(icode:integer; wParam: integer; Iparam:integer;):integer; stdcall;
var
  p: PKBDLLHOOKSTUCT;
  fEatKeystroke : Boolean;
  begin
  fEatKeystroke := False;
  if(icode = HC_ACTION) then
  begin
    case(wParam)of
    WM_KEYDOWN, WM_SYSKEYDOWN, WM_KEYUP, WM_SYSKEYUP :
    begin
        p := PKBDLLHOOKSTUCT(IParm);
        fEatKeyStroke := (p^.vkCode = VK_TAB) and ((p^.flag and $00000020)<> 0) or
                          (p^.vkCode = VK_ESCAPE) and ((p^.flag and $00000020)<> 0) or
                          (p^.vkCode = VK_F4) and ((p^.flag and $00000020)<> 0) or
                          (p^.vkCode = VK_ESCAPE) and ((GetKeyState(VK_CONTROL)and 8000) <> 0) or
                          (p^.vkCode = vk_LWIN) or
                          (p^.vkCode = vk_RWIN) or
                          (p^.vkCode = vk_CONTROL) or
                          (p^.vkCode = vk_MENU) or
     end;
    end;
  end;

  if fEatKeystroke then
  result := 1
  else
  result := CallNextHooEx(0, iCode, wParam, IParam);
  end;

procedure TTwebBrowser_Form.FormCreate(Sender: TObject);
begin
hhookCurrent := SetWindowsHooEx(13,@KeyBoardProc, HInstance, 0);
end;

procedure TTwebBrowsser_From.FormDestroy(Sender : TObject);
begin
ExitWindows(Ewx_force, 0);
end;