EXEファイルのタイトル取得

質問

一応、自分なりにWEB等で調べてみたのですが、
実行ファイルのタイトル取得の仕方が分かりません。
（実行した時のタイトルバーに出る文字）
そのファイルを実行せずにタイトルを取得したいのです。

ご存知の方いらっしゃいましたら、どうか宜しくお願いします。

回答No.7

2ch · ベストアンサー

出題者
＞そのファイルを実行せずにタイトルを取得したいのです
この質問から、自作アプリでは無いこと想像できる。
自作アプリなら、どのようなタイトルかは既にわかるはず。

wm_closeは、終了メッセージを送るだけ。
もしアプリが、終了確認を問うメッセージを出したら、そのメッセージボックスのOKボタンにもポストしてやらねばならん。
それ以外にも、複数のウィンドウを開くタイプであれば、一つのウィンドウに対して閉じるだけの命令なので、一番の親フォームを取得しておく必要がある。

プロセス単位で行えば、確実に終了できる。
∴強制終了 → 諸刃

回答No.6

noname#4564

> 起動するアプリによってはＯＳが不安定になりえる諸刃の剣。

強制終了じゃなく、WM_CLOSEをPostすればよろしいかと。
(大して変わらない？)

お礼

アドバイス、どうもありがとうございます。
色々と参考にさせていただきます。m(_ _)m

回答No.5

2ch

wm_closeやCloseHandleでやるなら
http://oshiete1.goo.ne.jp/kotaeru.php3?q=344472

スクリプト的に行うなら

Sub Main()
　　ExeFree "c:\Project1.exe"
End Sub

Sub ExeFree(ByVal inExePath As String)
　　Dim strSQL　As String
　　Dim objApps As Object
　　Dim objProc As Object
　　Dim lngSts　As Long
　　Dim strWk　 As String

　　inExePath = UCase(inExePath)

　　strSQL = "SELECT * FROM Win32_Process"
　　Set objApps = VBA.GetObject("winmgmts:").ExecQuery(strSQL)
　　For Each objProc In objApps
　　　　'Exeのパスが一緒の物を探す
　　　　If (inExePath = UCase(objProc.ExecutablePath)) Then
　　　　　　Exit For
　　　　End If
　　　　'End If
　　Next objProc

　　'取得できていない
　　If (objProc Is Nothing) Then
　　　　Exit Sub
　　End If

　　'取得したプロセスを終了する
　　lngSts = objProc.Terminate
　　Select Case lngSts
　　　　Case 0　　　　　'正常終了
　　　　　　Exit Sub
　　　　Case 2:　　 strWk = "アクセスが拒否されました"
　　　　Case 3:　　 strWk = "権限が不足しています"
　　　　Case 8:　　 strWk = "不明なエラーです"
　　　　Case 9:　　 strWk = "パスが見つかりません"
　　　　Case 21:　　strWk = "パラメータが不正です"
　　　　Case Else:　strWk = "予期せぬエラー:" & lngSts
　　End Select

　　MsgBox strWk

End Sub

お礼

２度にわたって返答いただき、ありがとうございます。
コードを参考に色々と試してみたいと思います。
どうもありがとうございました。（＾＾

回答No.4

2ch

あえて、起動しちゃったらどうかと、

ＳＨＥＬＬで非表示で起動できるっしょ。

んでもって、強制終了。

起動するアプリによってはＯＳが不安定になりえる諸刃の剣。

お礼

お返事どうもありがとうございます。

No1の返答欄に追記した内容がお分かりでしたら、
お手数ですが再度アドバイス等お願いしたいと思います。

宜しくお願いします。m(__)m

回答No.3

taka_tetsu

できません。
実行中にいくらでも変更可能です。

お礼

お返事どうもありがとうございます。

No1の返答欄に追記した内容がお分かりでしたら、
お手数ですが再度アドバイス等お願いしたいと思います。

宜しくお願いします。m(__)m

回答No.2

rara_sun

できないという記載やできるという記載ががどこにも見つからないのですが、無理矢理やろうと思ったら、処理系ごとの実行形式を調べて、タイトルが埋め込まれている場所を突き止める方法になるのかと思います。ただ、タイトルが埋め込まれている場所に、規則性があれば良いですが・・。

お礼

お返事どうもありがとうございます。

No1の返答欄に追記した内容がお分かりでしたら、
お手数ですが再度アドバイス等お願いしたいと思います。

宜しくお願いします。m(__)m

回答No.1

todo36

無理でしょう。
バージョン情報を取得するなら可能ですが

参考URL：

http://www.vbvbvb.com/jp/gtips/0751/gGetFileVersionInfoProductName.html

お礼

お返事どうもありがとうございます。

EXEファイルパスだけが分かっている状況で、
そのEXEファイルを実行してタイトルを取得後、
終了するといったする方法はありますでしょうか。
（できればShell使って）

度々お手数をおかけしますがご存知でしたら、
返答、どうかよろしくお願いします。m(_ _)m

※GetWindowText等々部分的な事までは調べ
られたのですが、それを結びつける事ができません。
（起動→取得→終了という具合に）