アプリが起動しているか確認だけしたい！ (ID:110137)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記を試して見て下さい。 Option Explicit Private Declare Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Sub Command1_Click() If FindWindowEx(0, 0, vbNullString, "電卓") Then MsgBox "電卓動いてます。" Else MsgBox "電卓動いてない。" End If End Sub