Wie möchtest du das ermitteln? Nur in deiner Anwendung oder überall?
Wenn nur in deiner Anwendung:
Code: Alles auswählen
Procedure WinCallback(hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_LBUTTONUP
Debug "Linke Maustaste wurde gedrückt. (Losgelassen)"
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure
If OpenWindow(0, 0, 0, 200, 100, "Messages", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget)
SetWindowCallback(@WinCallback()) ; Callback aktivieren
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf
Überall:
Code: Alles auswählen
EnableExplicit
Define EventID
Define hhkLLMouse
Procedure MouseKeyHook(nCode, wParam, lParam)
Select wParam
Case #WM_LBUTTONUP
Debug "Linke Maustaste wurde gedrückt. (Losgelassen)"
EndSelect
ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam)
EndProcedure
If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
hhkLLMouse = SetWindowsHookEx_(#WH_MOUSE_LL, @MouseKeyHook(), GetModuleHandle_(0), 0)
Repeat
EventID=WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
EndIf
UnhookWindowsHookEx_(hhkLLMouse)