miaozk2006

'=============================================================
'º¯ÊýÃû£ºCheckApplicationIsRun
'×÷ ÓãºÅжϽø³ÌÊÇ·ñ´æÔÚ
'²Î Êý£ºszExeFileName ----½ø³ÌÃû×Ö
'·µ»ØÖµ£º²¼¶ûÖµ ----True½ø³Ì´æÔÚ,False²»´æÔÚ
'=============================================================
Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

'²âÊÔ
Private Sub Command1_Click()
If CheckApplicationIsRun("notepad.exe") = True Then
MsgBox "ÒѾ­ÔËÐÐÁ˼Çʱ¾³ÌÐò"
Else
MsgBox "¼Çʱ¾³ÌÐòûÓÐÔËÐÐ"
End If
End Sub