如何检测指定进程是否存在

Question

例如,检测任务管理器是否打开,如果打开任务管理器,我的软件就自动关闭

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Command1_Click()
    If FindWindow("#32770", "Windows 任务管理器") > 0 Then
       MsgBox "任务管理器被打开了"
       '软件就自动关闭
    Else
       MsgBox "任务管理器没有被打开"
    End If
End Sub'VB6,Win2000通过 by 唐细刚