如何做局部钩子。

Question

代码一：
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下做钩子，请求帮助。

Answer 1

hInstance写空 
看微软的介绍
A handle to the DLL containing the hook procedure pointed to by the lpfn parameter. The hMod parameter must be set to NULL if the dwThreadId parameter specifies a thread created by the current process and if the hook procedure is within the code associated with the current process.