#pas
function hook(code,w,l:integer):Lresult; stdcall;
var str:string;
begin
 str:=Int2Str(LoWord(w))+'_'+Int2Str(HiWord(w));
 _hi_OnEvent(ev,str);
 result := CallNextHookEx(H, code, w, l);
End;