VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/06/18(Fri) 12:25
投稿者： 魔界の仮面弁士
Ｅメール：
ＵＲＬ：
タイトル： 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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -