求教可以检测刚刚打开的程序的句柄的api的用法及参数含义

利用Windows API的OpenProcess和CloseHandle函数来实现对被调用软件的检测： 
    1) 在VB中新建一个标准EXE工程； 
    2) 在Form1中声明OpenProcess和 CloseHandle 这两个Windows API 函数； 
     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 
    3) 然后编写下面的函数: 
     Function IsRunning(ByVal ProgramID) As Boolean ' 传入进程标识ID 
     Dim hProgram As Long '被检测的程序进程句柄 
     hProgram = OpenProcess(0, False, ProgramID) 
     If Not hProgram = 0 Then 
     IsRunning = True 
     Else 
     IsRunning = False 
     End If 
     CloseHandle hProgram 
     End Function 
    4) 在Form_Click()中加入代码： 
     Sub Form_Click() 
     Dim X 
     Me.Caption = "开始运行" 
     X = Shell("NotePad.EXE", 1) 
     While IsRunning(X) 
     DoEvents 
     Wend 
     Me.Caption = "结束运行" 
     End Sub