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

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

唐古拉山

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

阅读量4k

点赞数

文章标签： function query

本文链接：https://blog.youkuaiyun.com/tanaya/article/details/334821

版权

>> VB6 专栏收录该内容

115 篇文章

订阅专栏

博客展示了使用Windows API函数判断进程是否运行的代码。通过Declare语句声明OpenProcess和CloseHandle函数，定义常量PROCESS_QUERY_INFORMATION，编写IsProcessIsRun函数，利用OpenProcess尝试打开进程，根据返回值判断进程是否运行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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