投稿日 | : 2004/06/18(Fri) 12:25 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: 同一PC上で起動しているEXEの確認 |
こんな感じで。
Dim Path As String
Dim WQL As String
Dim Count As Long
Path = "C:\Windows\System32\Calc.exe"
WQL = "SELECT * FROM Win32_Process WHERE" _
& " ExecutablePath='" & Replace(Path, "\", "\\") & "'"
Count = GetObject("winmgmts:").ExecQuery(WQL).Count
If Count = 0 Then
MsgBox "電卓は起動されていません。"
Else
MsgBox "電卓が" & CStr(Count) & "個起動されています。"
End If