#If !res && hWnd := WinActive("ahk_class CabinetWClass")
~LButton::
if !res := IsEmptySpaceUnderCusor()
Return
KeyWait, LButton
KeyWait, LButton, D T.4
(!ErrorLevel && NavigateToParentDir(hWnd))
res := ""
Return
#If
IsEmptySpaceUnderCusor() {
Return AccObjectFromPoint().accRole(0) = (ROLE_SYSTEM_LIST := 0x21)
}
AccObjectFromPoint(ByRef childId = "", x = "", y = "") {
static VT_DISPATCH := 9, F_OWNVALUE := 1, h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
AccObject := 0
(x = "" || y = "") ? DllCall("GetCursorPos", "Int64P", pt) : pt := x & 0xFFFFFFFF | y << 32
VarSetCapacity(varChild, 8 + A_PtrSize*2, 0)
if DllCall("oleacc\AccessibleObjectFromPoint", "Int64", pt, "PtrP", pAcc, "Ptr", &varChild) = 0
childId := NumGet(varChild, 8, "UInt"), AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
Return AccObject
}
NavigateToParentDir(hWnd) {
static comType := (VT_ARRAY := 0x2000) | (VT_UI1 := 0x11)
Shell := ComObjCreate("Shell.Application")
for Window in Shell.Windows {
if (hWnd = Window.hwnd) {
Folder := Window.Document.Folder
parentDirPath := Folder.ParentFolder.Self.Path
break
}
}
if parentDirPath {
DllCall("shell32\SHParseDisplayName", "WStr", parentDirPath, "Ptr", 0, "PtrP", PIDL, "UInt", 0, "Ptr", 0)
ilSize := DllCall("shell32\ILGetSize", "Ptr", PIDL, "UInt")
VarSetCapacity(SAFEARRAY, 16 + A_PtrSize*2, 0)
NumPut(1 , SAFEARRAY)
NumPut(1 , SAFEARRAY, 4)
NumPut(PIDL , SAFEARRAY, 8 + A_PtrSize)
NumPut(ilSize, SAFEARRAY, 8 + A_PtrSize*2)
try Window.Navigate2( ComObject(comType, &SAFEARRAY), 0 )
DllCall("shell32\ILFree", "Ptr", PIDL)
}
}теперь понял как выкладывать на i.imgur.
Ваш сервис тоже даёт прямую ссылку, вот она:
изредка имеют место ложные срабатывания
Скорее всего, с этим ничего не сделаешь, просто основная функция двойного клика успевает сработать раньше, чем код скрипта. Потестировал, у меня такое происходит очень редко, но случалось.
]]>работает, но к сожалению с ошибками
Попробуйте так:
#If hWnd := WinActive("ahk_class CabinetWClass")
~LButton::
if (A_PriorHotkey = A_ThisHotkey && A_TimeSincePriorHotkey < 400 && IsEmptySpaceUnderCusor())
NavigateToParentDir(hWnd)
Return
#If
IsEmptySpaceUnderCusor() {
Return AccObjectFromPoint().accRole(0) = (ROLE_SYSTEM_LIST := 0x21)
}
AccObjectFromPoint(ByRef childId = "", x = "", y = "") {
static VT_DISPATCH := 9, F_OWNVALUE := 1, h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
AccObject := 0
(x = "" || y = "") ? DllCall("GetCursorPos", "Int64P", pt) : pt := x & 0xFFFFFFFF | y << 32
VarSetCapacity(varChild, 8 + A_PtrSize*2, 0)
if DllCall("oleacc\AccessibleObjectFromPoint", "Int64", pt, "PtrP", pAcc, "Ptr", &varChild) = 0
childId := NumGet(varChild, 8, "UInt"), AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
Return AccObject
}
NavigateToParentDir(hWnd) {
static comType := (VT_ARRAY := 0x2000) | (VT_UI1 := 0x11)
Shell := ComObjCreate("Shell.Application")
for Window in Shell.Windows {
if (hWnd = Window.hwnd) {
Folder := Window.Document.Folder
parentDirPath := Folder.ParentFolder.Self.Path
break
}
}
if parentDirPath {
DllCall("shell32\SHParseDisplayName", "WStr", parentDirPath, "Ptr", 0, "PtrP", PIDL, "UInt", 0, "Ptr", 0)
ilSize := DllCall("shell32\ILGetSize", "Ptr", PIDL, "UInt")
VarSetCapacity(SAFEARRAY, 16 + A_PtrSize*2, 0)
NumPut(1 , SAFEARRAY)
NumPut(1 , SAFEARRAY, 4)
NumPut(PIDL , SAFEARRAY, 8 + A_PtrSize)
NumPut(ilSize, SAFEARRAY, 8 + A_PtrSize*2)
try Window.Navigate2( ComObject(comType, &SAFEARRAY), 0 )
DllCall("shell32\ILFree", "Ptr", PIDL)
}
}
]]>
#If hWnd := WinActive("ahk_class CabinetWClass")
~LButton::
if (A_PriorHotkey = A_ThisHotkey && A_TimeSincePriorHotkey < 400 && IsEmptySpaceUnderCusor())
NavigateToParentDir(hWnd)
Return
#If
IsEmptySpaceUnderCusor() {
static ROLE_SYSTEM_WINDOW := 0x00000009
AccObj := AccObjectFromPoint(childId)
Return (childId ? AccObj : AccObj.accParent).accRole(0) = ROLE_SYSTEM_WINDOW
}
AccObjectFromPoint(ByRef childId = "", x = "", y = "") {
static VT_DISPATCH := 9, F_OWNVALUE := 1, h := DllCall("LoadLibrary", "Str", "oleacc", "Ptr")
AccObject := 0
(x = "" || y = "") ? DllCall("GetCursorPos", "Int64P", pt) : pt := x & 0xFFFFFFFF | y << 32
VarSetCapacity(varChild, 8 + A_PtrSize*2, 0)
if DllCall("oleacc\AccessibleObjectFromPoint", "Int64", pt, "PtrP", pAcc, "Ptr", &varChild) = 0
childId := NumGet(varChild, 8, "UInt"), AccObject := ComObject(VT_DISPATCH, pAcc, F_OWNVALUE)
Return AccObject
}
NavigateToParentDir(hWnd) {
static comType := (VT_ARRAY := 0x2000) | (VT_UI1 := 0x11)
Shell := ComObjCreate("Shell.Application")
for Window in Shell.Windows {
if (hWnd = Window.hwnd) {
Folder := Window.Document.Folder
parentDirPath := Folder.ParentFolder.Self.Path
break
}
}
if parentDirPath {
DllCall("shell32\SHParseDisplayName", "WStr", parentDirPath, "Ptr", 0, "PtrP", PIDL, "UInt", 0, "Ptr", 0)
ilSize := DllCall("shell32\ILGetSize", "Ptr", PIDL, "UInt")
VarSetCapacity(SAFEARRAY, 16 + A_PtrSize*2, 0)
NumPut(1 , SAFEARRAY)
NumPut(1 , SAFEARRAY, 4)
NumPut(PIDL , SAFEARRAY, 8 + A_PtrSize)
NumPut(ilSize, SAFEARRAY, 8 + A_PtrSize*2)
try Window.Navigate2( ComObject(comType, &SAFEARRAY), 0 )
DllCall("shell32\ILFree", "Ptr", PIDL)
}
}