[AHK]获取多个文件路径，构造命令行，发送给Beyond Compare等程序

来源：互联网发布：杜绝流氓抓取数据编辑：程序博客网时间：2024/06/16 14:22

;在资源管理器中获取当前选择的文件名/文件路径 以发给beyond compare 这类程序;sunwind 整理;2014年11月15日SetTitleMatchMode, RegExGroupAdd, Explorer, ahk_class CabinetWClassGroupAdd, Explorer, ahk_class ExploreWClassComObjError(0)#IfWinActive, ahk_group Explorer#z::hWnd :=   WinExist("ahk_class (?:Cabinet|Explore)WClass") selected:=ShellFolder(hWnd) MsgBox %selected% Return#IfWinActiveShellFolder(hWnd=0){If   hWnd || (hWnd :=   WinExist("ahk_class (?:Cabinet|Explore)WClass"))   {      For window in ComObjCreate("Shell.Application").Windows         doc :=   window.Document      Until   (window.hWnd = hWnd)}            sFolder :=   doc.folder.self.path, sFocus :=   doc.focuseditem.name          MsgBox %sFolder%  ;获取forlder      For item in doc.SelectedItems {       ;~ sSelect .=   (!sSelect ? "" : "`n") item.name       sSelect .=   (!sSelect ? "" : "`n") item.path      }      Return   sSelect   }

0 0