请教SetWindowsHookEx使用时参数的传递方法

[ynquan]

请教SetWindowsHookEx使用时参数的传递方法？

function HookOn(lpHwnd:Longword;  lpType:Longint): Longint;stdcall; export;
begin
  在这里怎样传值？
  SetWindowsHookEx(lpType,@HookProc,hInstance,hThread);
end

function HookProc(nCode:Integer; WParam:WPARAM; LParam:LPARAM):LRESULT;stdcall;
begin
 //在这里接参数怎样做？
end;

[bdmh]

,@HookProc这就是回调，会触发HookProc，HookProc的参数不是都写好了吗，用就是了

[ynquan]

我想传自定义参数，不知道怎样传值？

[ynquan]

function HookOn(lpHwnd:Longword;  lpType:Longint): Longint;stdcall; export;
var ti:integer;
begin
  ti:=0123;
  在这里给HookProc里面传变量ti怎样传值？
  SetWindowsHookEx(lpType,@HookProc,hInstance,hThread);
end

function HookProc(nCode:Integer; WParam:WPARAM; LParam:LPARAM):LRESULT;stdcall;
begin
 //在这里接参数怎样做？
end;