如何做局部钩子。

代码一：
if hook = 0 then begin
  hook:=SetWindowsHookEx(WH_KEYBOARD_LL,@HookProc,hInstance,GetCurrentProcessId);
  MessageBox(0, PChar(IntToStr(hook)), 'b', 0);
  end;
============================
代码二：
if hook = 0 then begin
  hook:=SetWindowsHookEx(WH_KEYBOARD_LL,@HookProc,hInstance,0);
  MessageBox(0, PChar(IntToStr(hook)), 'b', 0);
  end;
============================
我想钩当前线程，为何“代码一”，显示0，也就是没有成功。“代码二”是全局钩子，显示成功。
我想在非DLL下做钩子，请求帮助。

只是这两句话，看不出来，你这代码写在哪的