关于回调函数的问题

Question

本帖最后由 ioriliao1 于 2010-06-10 15:14:25 编辑

Answer 1

function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall

Answer 2

function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
beginend;procedure TForm1.FormCreate(Sender: TObject);
var
  NextHook: HHOOK;
begin
  NextHook := SetWindowsHookEx(WH_mouse, HookHandler, GetModuleHandle(nil), 0);
end;

Answer 3

调试了，我的编译环境是Lazarus