Developers: Code Snippets

Here's my sample AHK low level mouse hook. The comments should be pretty self-explanatory. This is the hook I'm hoping to implement in eXpresso.

#Persistent
#NoEnv
SetBatchLines -1
ListLines off

pMouseHook := RegisterCallback("MouseHookProc", "", 3) ; LowLevelMouseProc
hMouseHook := DllCall("SetWindowsHookEx", "int", 14, "uint", pMouseHook, "uint", DllCall("GetModuleHandle", "uint", 0), "uint", 0) ; set the WH_MOUSE_LL hook
DblClick := DllCall("GetDoubleClickTime") ; gets system dbl click time
DllCall("SetDoubleClickTime", "uint", 30) ; set a very low system dbl click time
; this will allow us to programmatically send our own dbl clicks without interference from the system
; effectively disabling human dbl clicks

; window classes for dbl click subroutine
; for this example we're handling dbl clicks on the Desktop and Explorer windows
aWinClass := "Progman,CabinetWClass,ExploreWClass"
fromEnter := False ; init variable

OnExit, ExitSub ; unregister the hook on exit
Return

; catch the Enter button as well
$Enter::
Critical
fromEnter := True ; cannot use A_ThisHotKey
SetTimer, DoubleClick, -10 ; run timed sub only once
Return

MouseHookProc(nCode, wParam, lParam)
{
	Critical ; prevent this thread from being interrupted
	Global DblClick, ClickTime, hMouseHook, MouseX, MouseY, fromEnter

	; only process messages withe nCode >= 0
	; incoming callback params are UINTs, so this is the test for >= 0
	If (nCode  activeControl))
			Goto EndDblClickSub
		; check for supported controls
		IfInString, activeControl, SysListView32
		{
			; we got a list view, use an optimized method to find the selection
			; find out if anything is selected
			ControlGet, selItems, List, Selected, %activeControl%, ahk_id %HWndActiveWin%
			If (selItems  "")
			{
				; something is selected, get the result
				Loop, Parse, selItems, `n
				{
					; rows are delimited by `n, columns by A_Tab
					; we only want the first column which has the file name
					Loop, Parse, A_LoopField, %A_Tab%
					{
						MsgBox %A_LoopField%
						Break ; only interested in first column
					}
				}
				Return ; suppress the click / enter
			}
		}
		; else use generic Ctrl+c copy processing
		newClip := ""
		oldClip := ClipboardAll ; save old clipboard
		Clipboard := "" ; empty it
		Send ^c
		ClipWait 0.15 ; wait 150 ms
		If !ErrorLevel
			newClip := Clipboard
		If (newClip  "")
		{
			Loop, Parse, newClip, `n, `r ; parse the clipboard contents
			{
				MsgBox %A_LoopField%
			}
		}
		Clipboard := oldClip ; restore clipboard contents

		; done processing click / enter
		Return ; break the loop and suppress the input
	}
}
EndDblClickSub:
; if no matches, send the click or Enter through
If fromEnter
	Send {Enter} ; send the Enter key
Else
{
	Click ; click primary mouse button
	ClickTime :=0 ; prevent hook from seeing dbl click
	Click ; trigger the system dbl click
}
Return

ExitSub:
DllCall("UnhookWindowsHookEx", "uint", hMouseHook) ; unregister the hook
DllCall("SetDoubleClickTime", "uint", DblClick) ; reset default dbl click time
ExitApp