PureBoard

Code: Alles auswählen

Global oTime

Procedure HookProc(nCode,wParam,lParam)
   Select wParam   
      Case #WM_MBUTTONDOWN
      If GetTickCount_() < (oTime + GetDoubleClickTime_())
          Debug "Middle Button Double Clicked"
      EndIf
      oTime = GetTickCount_() 
     
   EndSelect
   
   ProcedureReturn CallNextHookEx_(0,nCode,wParam,lParam)   
EndProcedure

OpenWindow(0,10,10,200,100,"Hook",#PB_Window_SystemMenu)

StickyWindow(0,1)

LLMHook= SetWindowsHookEx_(#WH_MOUSE_LL,@HookProc(),GetModuleHandle_(0),0)

Repeat
  Select WaitWindowEvent()
     
       Case #PB_Event_CloseWindow
            Quit = 1
  EndSelect
   
Until Quit = 1

UnhookWindowsHookEx_(LLMHook)