| 投稿日 | ： 2003/07/24(Thu) 15:37 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: バッチプログラムの実行を監視したいのですが… |
> ウィンドウハンドルやらを取得すればいいのか……？という辺りまで辿り着いたのですが、
> そもそもウィンドウの出ないバッチプログラムで、この辺のものは取得出来るのだろうか等々、
VB6では、たとえフォームが1個も無かったとしても、"ThunderRT6Main"という
ウィンドウが必ず存在します。
http://support.microsoft.com/?kbid=185730
> （API自体、あんまり触った事が無いので今ひとつ感触が掴めていません）
WMIを使うという手もありますよ。
Dim Path As String
Dim SQL As String
Dim Count As Long
Path = "C:\Program Files\Hidemaru\Hidemaru.exe"
SQL = "SELECT Name FROM Win32_Process WHERE ExecutablePath='"
SQL = SQL & Replace(Path, "\", "\\") & "'"
Count = GetObject("winmgmts:").ExecQuery(SQL).Count
If Count = 0 Then
MsgBox "起動されていません。"
Else
MsgBox CStr(Count) & "個起動されています。"
End If