Total Members Voted: 5
0 Members and 1 Guest are viewing this topic.
из проводника? боюсь, не получится. Это нужно в проводник встраивать функцию
3. Кнопка "открыть"4. Кнопка "+"
#Persistent/*;enable Debug view a_scriptPID := DllCall("GetCurrentProcessId") ; get script's PID ifwinexist, DebugView on ; kill it if the debug viewer is running from an older instance { winactivate, DebugView on Winwaitactive, DebugView on winclose, DebugView on } run, %A_ScriptDir%\DebugView\Dbgview.exe /f winwait, DebugView on winactivate, DebugView on Winwaitactive, DebugView on sendinput, !E{down}{down}{down}{down}{down}{Enter} winwait, DebugView Filter winactivate, DebugView Filter Winwaitactive, DebugView Filter mouseclick, left, 125, 85 send, [%a_scriptPID%*{Enter}*//*Executes context menu entries of shell items without showing their menusUsage:ShellContextMenu("Desktop",1) ;Calls "Next Desktop background" in Win71st parameter can be "Desktop" for empty selection desktop menu, a path, or an idlLeave 2nd parameter empty to show context menu and extract idn by clicking on an entry (shows up in debugview)*/ ShellContextMenu(sPath,idn) { DllCall("ole32\OleInitialize", "Uint", 0) if (spath="Desktop") { DllCall("shell32\SHGetDesktopFolder", "UintP", psf) DllCall(NumGet(NumGet(1*psf)+32), "Uint", psf, "Uint", 0, "Uint", GUID4String(IID_IContextMenu,"{000214E4-0000-0000-C000-000000000046}"), "UintP", pcm) } else { If sPath Is Not Integer DllCall("shell32\SHParseDisplayName", "Uint", Unicode4Ansi(wPath,sPath), "Uint", 0, "UintP", pidl, "Uint", 0, "Uint", 0) Else DllCall("shell32\SHGetFolderLocation", "Uint", 0, "int", sPath, "Uint", 0, "Uint", 0, "UintP", pidl) DllCall("shell32\SHBindToParent", "Uint", pidl, "Uint", GUID4String(IID_IShellFolder,"{000214E6-0000-0000-C000-000000000046}"), "UintP", psf, "UintP", pidlChild) DllCall(NumGet(NumGet(1*psf)+40), "Uint", psf, "Uint", 0, "Uint", 1, "UintP", pidlChild, "Uint", GUID4String(IID_IContextMenu,"{000214E4-0000-0000-C000-000000000046}"), "Uint", 0, "UintP", pcm) } Release(psf) CoTaskMemFree(pidl) hMenu := DllCall("CreatePopupMenu") idnMIN=1 DllCall(NumGet(NumGet(1*pcm)+12), "Uint", pcm, "Uint", hMenu, "Uint", 0, "Uint", idnMIN, "Uint", 0x7FFF, "Uint", 0) ; QueryContextMenu DetectHiddenWindows, On Process, Exist WinGet, hAHK, ID, ahk_pid %ErrorLevel% if !idn { WinActivate, ahk_id %hAHK% Global pcm2 := QueryInterface(pcm,IID_IContextMenu2:="{000214F4-0000-0000-C000-000000000046}") Global pcm3 := QueryInterface(pcm,IID_IContextMenu3:="{BCFCE0A0-EC17-11D0-8D10-00A0C90F2719}") Global WPOld:= DllCall("SetWindowLong", "Uint", hAHK, "int",-4, "int",RegisterCallback("WindowProc")) DllCall("GetCursorPos", "int64P", pt) DllCall("InsertMenu", "Uint", hMenu, "Uint", 0, "Uint", 0x0400|0x800, "Uint", 2, "Uint", 0) DllCall("InsertMenu", "Uint", hMenu, "Uint", 0, "Uint", 0x0400|0x002, "Uint", 1, "Uint", &sPath) idn2 := DllCall("TrackPopupMenu", "Uint", hMenu, "Uint", 0x0100, "int", pt << 32 >> 32, "int", pt >> 32, "Uint", 0, "Uint", hAHK, "Uint", 0) } else idn2:=idn NumPut(VarSetCapacity(ici,64,0),ici) NumPut(0x4000|0x20000000,ici,4) NumPut(1,NumPut(hAHK,ici,8),12) NumPut(idn2-idnMIN,NumPut(idn2-idnMIN,ici,12),24) if !idn NumPut(pt,ici,56,"int64") DllCall(NumGet(NumGet(1*pcm)+16), "Uint", pcm, "Uint", &ici) ; InvokeCommand if !idn { VarSetCapacity(sName,259), DllCall(NumGet(NumGet(1*pcm)+20), "Uint", pcm, "Uint", idn2-idnMIN, "Uint", 1, "Uint", 0, "str", sName, "Uint", 260) ; GetCommandString outputdebug command string: %sname% idn: %idn2% DllCall("GlobalFree", "Uint", DllCall("SetWindowLong", "Uint", hAHK, "int", -4, "int", WPOld)) Release(pcm3) Release(pcm2) } DllCall("DestroyMenu", "Uint", hMenu) Release(pcm) DllCall("ole32\OleUnInitialize", "Uint", 0) ;pcm2:=pcm3:=WPOld:=0 } WindowProc(hWnd, nMsg, wParam, lParam) { Critical Global pcm2, pcm3, WPOld If pcm3 { If !DllCall(NumGet(NumGet(1*pcm3)+28), "Uint", pcm3, "Uint", nMsg, "Uint", wParam, "Uint", lParam, "UintP", lResult) Return lResult } Else If pcm2 { If !DllCall(NumGet(NumGet(1*pcm2)+24), "Uint", pcm2, "Uint", nMsg, "Uint", wParam, "Uint", lParam) Return 0 } Return DllCall("user32.dll\CallWindowProcA", "Uint", WPOld, "Uint", hWnd, "Uint", nMsg, "Uint", wParam, "Uint", lParam) } VTable(ppv, idx) { Return NumGet(NumGet(1*ppv)+4*idx) } QueryInterface(ppv, ByRef IID) { If StrLen(IID)=38 GUID4String(IID,IID) DllCall(NumGet(NumGet(1*ppv)), "Uint", ppv, "str", IID, "UintP", ppv) Return ppv } AddRef(ppv) { Return DllCall(NumGet(NumGet(1*ppv)+4), "Uint", ppv) } Release(ppv) { Return DllCall(NumGet(NumGet(1*ppv)+8), "Uint", ppv) } GUID4String(ByRef CLSID, String) { VarSetCapacity(CLSID, 16) DllCall("ole32\CLSIDFromString", "Uint", Unicode4Ansi(String,String,38), "Uint", &CLSID) Return &CLSID } CoTaskMemAlloc(cb) { Return DllCall("ole32\CoTaskMemAlloc", "Uint", cb) } CoTaskMemFree(pv) { Return DllCall("ole32\CoTaskMemFree", "Uint", pv) } Unicode4Ansi(ByRef wString, sString, nSize = "") { If (nSize = "") nSize:=DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sString, "int", -1, "Uint", 0, "int", 0) VarSetCapacity(wString, nSize * 2 + 1) DllCall("kernel32\MultiByteToWideChar", "Uint", 0, "Uint", 0, "Uint", &sString, "int", -1, "Uint", &wString, "int", nSize + 1) Return &wString }
Если из Проводника/Тотала нужно файл/папку хот-кеем открыть пользуюсь программой Key Manager www.atnsoft.com/rus/keymanager/ .
Получается чуть быстрее перетаскивания
Не знаю, почему эту ф-ю не делают в плеерах, это же супермегаудобно.
Когда-то давно тоже задавал этот вопрос разработчикам, мне объяснили, что функцию эту нужно вшивать в Проводник/Тотал, опцией в Аимпе не отделаешься.........
После этого ничего проще, чем прописать скрипт в hot-key-менеджере я не нашел. Решение достаточно надежное, но если установить программу которая залезет выше Aimp'а в контекстное меню(на скрине это TreeSize), то придется скрипт переписать...........а так из недостатков вроде все
строчка с AIMP'ом в контекстном меню не привязана к определенной позиции.
.......громоздко, но универсально.......хотя я для себя решил: хоткеем я добавляю только папки и только через тотал......
;Add file to playlist by Malcevf11:: path := Explorer_GetPath() all := Explorer_GetAll() sel := Explorer_GetSelected()Loop, parse, sel, `n, `r{ run C:\Program Files\AIMP3\AIMP3.exe /INSERT %A_LoopField%}return Explorer_GetPath(hwnd=""){ if !(window := Explorer_GetWindow(hwnd)) return ErrorLevel := "ERROR" if (window="desktop") return A_Desktop path := window.LocationURL path := RegExReplace(path, "ftp://.*@","ftp://") StringReplace, path, path, file:/// StringReplace, path, path, /, \, All ; thanks to polyethene Loop If RegExMatch(path, "i)(?<=%)[\da-f]{1,2}", hex) StringReplace, path, path, `%%hex%, % Chr("0x" . hex), All Else Break return path}Explorer_GetAll(hwnd=""){ return Explorer_Get(hwnd)}Explorer_GetSelected(hwnd=""){ return Explorer_Get(hwnd,true)} Explorer_GetWindow(hwnd=""){ ; thanks to jethrow for some pointers here WinGet, process, processName, % "ahk_id" hwnd := hwnd? hwnd:WinExist("A") WinGetClass class, ahk_id %hwnd% if (process!="explorer.exe") return 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" ; desktop found}Explorer_Get(hwnd="",selection=false){ if !(window := Explorer_GetWindow(hwnd)) return ErrorLevel := "ERROR" if (window="desktop") { ControlGet, hwWindow, HWND,, SysListView321, ahk_class Progman if !hwWindow ; #D mode ControlGet, hwWindow, HWND,, SysListView321, A ControlGet, files, List, % ( selection ? "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% ; ignore special icons like Computer (at least for now) ret .= path "`n" } } else { if selection collection := window.document.SelectedItems else collection := window.document.Folder.Items for item in collection ret .= item.path "`n" } return Trim(ret,"`n")}
run C:\Program Files\AIMP3\AIMP3.exe /INSERT %A_LoopField%
Poll