放牧代码和思想
专注自然语言处理、机器学习算法
    恕不接待索要源码语料者、索求技术方案者、以及不Google的懒人。

判断进程是否存在

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

知识共享许可协议 知识共享署名-非商业性使用-相同方式共享码农场 » 判断进程是否存在

分享到:更多 ()

评论 欢迎留言

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

我的开源项目

HanLP自然语言处理包基于DoubleArrayTrie的Aho Corasick自动机