判断指定进程号的进程是否存在

最新推荐文章于 2023-06-21 14:03:47 发布

转载最新推荐文章于 2023-06-21 14:03:47 发布 · 410 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/it201108/archive/2005/04/01/2148480.html

文章标签：

#java #c# #c/c++

博客给出了一段代码用于判断进程是否运行。代码中声明了 OpenProcess 和 CloseHandle 函数，定义了进程查询信息常量，通过 OpenProcess 尝试打开进程，若返回值为 0 则进程未运行，否则运行，最后关闭句柄。

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal
bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const PROCESS_QUERY_INFORMATION = &H400

'参数：进程ID
Function IsProcessIsRun(ByVal PID As Long) As Boolean
   Dim hProcess As Long
   hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0&, PID)
   If hProcess = 0 Then
      IsProcessIsRun = False
      Exit Function
   End If
   Call CloseHandle(hProcess)
   IsProcessIsRun = True
End Function

转载于:https://www.cnblogs.com/it201108/archive/2005/04/01/2148480.html