HOOK鼠标钩子操作
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
下载地址
用户评论