AutoHotkey スレッド part11

AHKLならではの利用サンプル2

■ エクスプローラで選択中のファイルのフルパスをコピー
　 COMをりようしているので、特殊フォルダがあってもOK

SetTitleMatchMode, RegEx
#IfWinActive, ahk_class CabinetWClass|ExploreWClass
#c::
　FileList:=
　For window in ComObjCreate("Shell.Application").Windows
　　If ( window.hwnd == WinExist() ){
　　　For item in window.document.SelectedItems
　　　　FileList .= item.path "`n"
　　　Break
　　}
　Clipboard:=FileList, window:=item:=
　Return

■ アクティブアプリのあるフォルダを開く
OpenProcessでやる方法よりベターかも。

#vkDCsc07D:: ; Win + \
　WinGet, pid, PID, A
　For process in ComObjGet("winmgmts:").ExecQuery("SELECT * FROM Win32_Process WHERE ProcessId='" pid "'")
　　Run, % "explorer.exe /select`,""" . (process.ExecutablePath) . """"
　process =
　Return