気ままの簡易レビュー

【 目次 】

;ここから -----

#include <file.au3>
#include <WinAPIShellEx.au3>

$tit = "ShellExecute_File v1.00"
;https://kimama9.blog.fc2.com/blog-entry-1114.html

;テスト時 = 1
$test = 0

;テスト用データの設置
If $test = 1 Then
Dim $CmdLine[2] = ["1","r:\001.txt"]
EndIf

;関連付けのフォルダを開く = 1
$open = 1

;クリップボードへ結果を送らない = 0 / フォルダのみ = 1 / アプリ名のみ = 2 / フォルダ＋アプリ名 = 3
$clip = 0

;-----

;初期設定
$lod = 0
$name = ""
Dim $szDrive, $szDir, $szFName, $szExt

;-----

;ドラッグされたファイルがない場合
If $CmdLine[0] = 0 Then
msgbox("", $tit, "ドラッグしたファイルがどのアプリで関連付けされているかを確認し" & @CRLF & "アプリのフォルダを開く、EXE化して使用します")
exit
EndIf

;ドラッグしたファイルに対してアプリ名フルパスを取得
$name = _WinAPI_FindExecutable ('"' & $CmdLine[1] & '"')

;取得したフルパスを分離
_PathSplit($name, $szDrive, $szDir, $szFName, $szExt)

;フォルダを開く
If $open = 1 Then ShellExecute('"' & $szDrive & $szDir &'"')

;クリップボードへ転送
If $clip = 1 Then ClipPut('"' & $szDrive & $szDir &'"')
If $clip = 2 Then ClipPut('"' & $szDrive & $szDir & $szFName & $szExt & '"')
If $clip = 3 Then ClipPut('"' & $szDrive & $szDir & '"' & @CRLF & '"' & $szDrive & $szDir & $szFName & $szExt & '"')

;クリップボード転送がＯＮならツールチップを表示
If $clip > 0 Then
$lod = 100
while 1
Sleep(10)

If $clip = 1 Then ToolTip("クリップボードへ出力しました。" & @CRLF & '"' & $szDrive & $szDir &'"')
If $clip = 2 Then ToolTip("クリップボードへ出力しました。" & @CRLF & '"' & $szDrive & $szDir & $szFName & $szExt & '"')
If $clip = 3 Then ToolTip("クリップボードへ出力しました。" & @CRLF & '"' & $szDrive & $szDir & '"' & @CRLF & '"' & $szDrive & $szDir & $szFName & $szExt & '"')

$lod = $lod - 1
If $lod < 1 Then ExitLoop
WEnd

EndIf

;msgbox("", "", $name & @CRLF & $szDrive & $szDir)
exit

;ここまで -----

;ここから -----

#include <Misc.au3>
#include <Process.au3>
#include <file.au3>
#include <_ProcessListProperties.au3>

;_ProcessListProperties.au3 は以下のページより、１ページ目の先頭にある
;This is my custom error handler この文字から ( 先頭の ; も忘れずに )
;EndFunc  ;==>ProcessListProperties この文字までをメモ帳に貼り付けて
;_ProcessListProperties.au3 という名前にして autoit の Include フォルダへ放り込んでください
;以下のエラーが出る場合は _ProcessListProperties.au3 が存在していないか内容がおかしい、コピペミスです
;$avRET = _ProcessListProperties($Pid)
;$avRET = ^ ERROR
;Error: Unknown function name.
;https://www.autoitscript.com/forum/topic/70538-_processlistproperties/

$tit = "ShellExecute_App v1.00"
;https://kimama9.blog.fc2.com/blog-entry-1114.html

;関連付けのフォルダを開く = 1
$open = 1

;クリップボードへ結果を送らない = 0 / フォルダのみ = 1 / アプリ名のみ = 2 / フォルダ＋アプリ名 = 3
$clip = 0

;-----

;初期化
$lod = 0
$Pid = ""
$exe_name = ""
Dim $szDrive, $szDir, $szFName, $szExt

;-----

;起動時、CTRL / Shift キーが押されていたら離されるまで待機
while 1
Sleep(10)
$lod = 0
If _IsPressed("10") Then $lod = $lod + 1
If _IsPressed("11") Then  $lod = $lod + 1
If $lod = 0 Then ExitLoop
WEnd
sleep(100)

;-----

;Shiftキーを押したら次へ進む様にツールチップ表示
while 1
Sleep(100)
ToolTip("調べるアプリを最前列にして Shift キーを押してください" & @CRLF & "キャンセル：CTRL キー")
If _IsPressed("10") Then ExitLoop
If _IsPressed("11") Then exit
WEnd

;アクティブアプリのPID値を取得
$Pid = WinGetProcess("[active]", "")

;PID値からアプリ名を取得
$exe_name = _ProcessGetName($Pid)

;検索していますのツールチップ表示
ToolTip("検索中：PID = " & $Pid & " / FileName = " & $exe_name)

;PID値からアプリのフルパスを取得
$avRET = _ProcessListProperties($Pid)

;ツールチップを消す
ToolTip("")

;msgbox("", "", $avRET[1][5])

;フルパスを分解
_PathSplit($avRET[1][5], $szDrive, $szDir, $szFName, $szExt)

;フォルダを開く
If $open = 1 Then ShellExecute('"' & $szDrive & $szDir &'"')

;クリップボードへフルパスを送る
If $clip = 1 Then ClipPut('"' & $szDrive & $szDir &'"')
If $clip = 2 Then ClipPut('"' & $szDrive & $szDir & $szFName & $szExt & '"')
If $clip = 3 Then ClipPut('"' & $szDrive & $szDir & '"' & @CRLF & '"' & $szDrive & $szDir & $szFName & $szExt & '"')

;クリップボードへ送った場合にツールチップを表示
If $clip > 0 Then
$lod = 100
while 1
Sleep(10)

If $clip = 1 Then ToolTip("クリップボードへ出力しました。" & @CRLF & '"' & $szDrive & $szDir &'"')
If $clip = 2 Then ToolTip("クリップボードへ出力しました。" & @CRLF & '"' & $szDrive & $szDir & $szFName & $szExt & '"')
If $clip = 3 Then ToolTip("クリップボードへ出力しました。" & @CRLF & '"' & $szDrive & $szDir & '"' & @CRLF & '"' & $szDrive & $szDir & $szFName & $szExt & '"')

$lod = $lod - 1
If $lod < 1 Then ExitLoop
WEnd
EndIf

exit

;ここまで -----