Public Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
hFile=GetModuleHandle(strFilePath)
if hFile=0 then
msgbox strFilePath & "is not running"
else
msgbox strFilePath & "is running"
end if
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
nFind = FindWindow(vbNullString, "窗口名")
If nFind <> 0 Then
'Ex. end the program:
SendMessage nFind, WM_CLOSE, 0, 0
...
不知是否有用。