function MouseHookProc(iCode: Integer;wParam: WPARAM;lParam: LPARAM): LRESULT; stdcall; export; var //MouseHookStruct: ^TMOUSEHOOKSTRUCT; P:TPoint; begin if iCode < 0 Then begin Result := CallNextHookEx(hHookHandle, iCode, wParam, lParam); {MouseHookStruct := Pointer(LParam); P
