关于SetWindowsHookEx的问题

Question

我想用SetWindowsHookEx做一个进程监视的例子，老是出现问题，搞得我快崩溃了，请问哪位大虾能给个例子或者指点一下，谢谢

Answer 1

出什么问题?
什么系统?
什么类型的hook?

Answer 2

SetWindowsHookEx做一个进程监视？
只能监视消息的，最好看看MSDN，Delphi的APIHelp都可以的而且例子也很多的

Answer 3

function ShellProc(nCode, wParam, lParam: Integer): Integer; stdcall;
begin
  Result := 0;  if nCode = HSHELL_WINDOWCREATED then
    SendMessage(Objhandle, WM_APPHOOK_CREATED, wParam, lParam);  CallNextHookEx(hhk, nCode, wParam, lParam);
end;function CreateAHook(var AHandle: HWND): Boolean; stdcall;
begin
  ObjHandle := AHandle;
  hhk := SetWindowsHookEx(WH_SHELL, @ShellProc, GetModuleHandle(nil), 0);
  Result:= True;
end;这段代码，错在什么地方了，我老是收不到任何进程创建的消息啊？

Answer 4

result := CallNextHookEx(hhk, nCode, wParam, lParam);
WH_SHELL 用的不多，先一下