投稿時間:2003/07/24(Thu) 15:37 投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル: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
|