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

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