Серый форум — AHK:Открыть выделенную папку средней кнопкой мыши

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2023-02-08T07:27:39Z

Так у меня нет этого приложения, не могу никуда пнуть.

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2023-02-08T05:44:10Z

Уважаемый teadrinker пните хоть куда смотреть то.

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2023-02-07T23:59:17Z

Приведённый код никак не поможет, он только для проводника. Вы пользуетесь приложением, вот вы и исследуйте, потом результат сюда выложите.

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2023-02-07T23:28:24Z

Доброго времени суток. Подскажите пожалуйста как сделать что бы в стороннем приложении (сторонний проводник) тоже работало.

ahk_class dopus.lister
ahk_exe dopus.exe
ahk_pid 9064

При добавлении этого не работает.

else If WinActive("ahk_class Progman") or WinActive("ahk_class CabinetWClass") or WinActive("ahk_class dopus.lister")

vk4::
Sleep, 60
Click
WinClose ahk_class #32768 ahk_exe explorer.exe
If (path := Explorer_GetSel()) && (RegExMatch(path, "i)\.ahk$")) or (RegExMatch(path, "i)\.au3$"))
Run C:\Program Files\AkelPad\AkelPad.exe %path%
 else If WinActive("ahk_class Progman") or WinActive("ahk_class CabinetWClass") or WinActive("ahk_class dopus.lister")
   SendInput {vkD}
else
SendInput % "{" A_ThisHotkey "}"
  return

#If
Explorer_GetSel()

{
if !(window := Explorer_GetWindow())
return ""
if (window="desktop")

{
ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progman 
if !hwWindow
ControlGet, hwWindow, HWND,, SysListView321, A
ControlGet, files, List, % "Selected Col1",, ahk_id %hwWindow%
base := SubStr(A_Desktop,0,1)=="\" ? SubStr(A_Desktop,1,-1) : A_Desktop
Loop, Parse, files, `n, `r
{
path := base "\" A_LoopField
IfExist %path%
ret .= path "`n"
}
}
else
{
collection := window.document.SelectedItems
for item in collection
ret .= item.path "`n"
}
return Trim(ret,"`n")
}
Explorer_GetWindow()
{
WinGetClass class, % "ahk_id" hwnd := WinExist("A")
if (class ~= "(Cabinet|Explore|)WClass")
{
for window in ComObjCreate("Shell.Application").Windows
if (window.hwnd==hwnd)
return window
}
else if (class ~= "Progman|WorkerW|")
return "desktop"
}
return

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2017-10-30T01:13:38Z

If (path := Explorer_GetSel()) && (RegExMatch(path, "i)\.ahk$")) or (RegExMatch(path, "i)\.txt$"))

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2017-10-29T21:54:43Z

Доброго времени суток. Подскажите пожалуйста как добавить помимо "ahk" ещё и "txt" расширение.
Я так думаю что это нужно сделать здесь, но только ни как не пойму.

If (path := Explorer_GetSel()) && (RegExMatch(path, "i)\.ahk$"))

MButton::
Sleep, 60
Click
WinClose ahk_class #32768 ahk_exe explorer.exe
If (path := Explorer_GetSel()) && (RegExMatch(path, "i)\.ahk$"))
Run C:\Windows\notepad.exe %path%
else If Explorer_GetSel()
    SendInput {Enter}
else
    SendInput {MButton}
return
#If
Explorer_GetSel()
{
if !(window := Explorer_GetWindow())
return ""
if (window="desktop")
{
ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progman
if !hwWindow
ControlGet, hwWindow, HWND,, SysListView321, A
ControlGet, files, List, % "Selected Col1",, ahk_id %hwWindow%
base := SubStr(A_Desktop,0,1)=="\" ? SubStr(A_Desktop,1,-1) : A_Desktop
Loop, Parse, files, `n, `r
{
path := base "\" A_LoopField
IfExist %path%
ret .= path "`n"
}
}
else
{
collection := window.document.SelectedItems
for item in collection
ret .= item.path "`n"
}
return Trim(ret,"`n")
}
Explorer_GetWindow()
{
WinGetClass class, % "ahk_id" hwnd := WinExist("A")
if (class ~= "(Cabinet|Explore)WClass")
{
for window in ComObjCreate("Shell.Application").Windows
if (window.hwnd==hwnd)
return window
}
else if (class ~= "Progman|WorkerW")
return "desktop"
}
return

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2017-05-02T00:31:04Z

Вроде вопрос только про папки был. Ну ладно, тогда вместо этого: "else If Explorer_GetSel()", пиши: "else If WinActive("ahk_class Progman") or WinActive("ahk_class CabinetWClass")".

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2017-05-01T22:33:12Z

Всё работает ,а как бы сделать что бы ещё и ярлыки папок открывало.

Re: AHK:Открыть выделенную папку средней кнопкой мыши

2017-05-01T00:18:41Z

MButton::
Sleep, 60
Click
WinClose ahk_class #32768 ahk_exe explorer.exe
If (path := Explorer_GetSel()) && (RegExMatch(path, "i)\.ahk$"))
Run C:\Windows\notepad.exe %path%
else If Explorer_GetSel()
    SendInput {Enter}
else
    SendInput {MButton}
return
#If
Explorer_GetSel()
{
if !(window := Explorer_GetWindow())
return ""
if (window="desktop")
{
ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progman
if !hwWindow
ControlGet, hwWindow, HWND,, SysListView321, A
ControlGet, files, List, % "Selected Col1",, ahk_id %hwWindow%
base := SubStr(A_Desktop,0,1)=="\" ? SubStr(A_Desktop,1,-1) : A_Desktop
Loop, Parse, files, `n, `r
{
path := base "\" A_LoopField
IfExist %path%
ret .= path "`n"
}
}
else
{
collection := window.document.SelectedItems
for item in collection
ret .= item.path "`n"
}
return Trim(ret,"`n")
}
Explorer_GetWindow()
{
WinGetClass class, % "ahk_id" hwnd := WinExist("A")
if (class ~= "(Cabinet|Explore)WClass")
{
for window in ComObjCreate("Shell.Application").Windows
if (window.hwnd==hwnd)
return window
}
else if (class ~= "Progman|WorkerW")
return "desktop"
}
return

AHK:Открыть выделенную папку средней кнопкой мыши

2017-05-01T00:01:49Z

Доброго времени суток. Есть скрипт на открытие средней кнопкой мыши файла с расширением "ahk", как бы туда добавить ещё открытие папки.

~*$vk4::
Sleep, 60
Click
WinClose ahk_class #32768 ahk_exe explorer.exe
If (path := Explorer_GetSel()) && (RegExMatch(path, "i)\.ahk$"))
Run C:\Program Files (x86)\AkelPad\AkelPad.exe %path%
Else
SendInput % "{" A_ThisHotkey "}"
Double:
Double := 0
return
#If
Explorer_GetSel()
{
if !(window := Explorer_GetWindow())
return ""
if (window="desktop")
{
ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progman
if !hwWindow
ControlGet, hwWindow, HWND,, SysListView321, A
ControlGet, files, List, % "Selected Col1",, ahk_id %hwWindow%
base := SubStr(A_Desktop,0,1)=="\" ? SubStr(A_Desktop,1,-1) : A_Desktop
Loop, Parse, files, `n, `r
{
path := base "\" A_LoopField
IfExist %path%
ret .= path "`n"
}
}
else
{
collection := window.document.SelectedItems
for item in collection
ret .= item.path "`n"
}
return Trim(ret,"`n")
}
Explorer_GetWindow()
{
WinGetClass class, % "ahk_id" hwnd := WinExist("A")
if (class ~= "(Cabinet|Explore)WClass")
{
for window in ComObjCreate("Shell.Application").Windows
if (window.hwnd==hwnd)
return window
}
else if (class ~= "Progman|WorkerW")
return "desktop"
}
return