创建进程快照。【转帖】

SHELL成功后会返回程序的PID   把PID保存到一个变量或数组里  
  然后遍历系统进程PID   如果存在则说明程序没有关闭    
  下面是一个例子,遍历进程ID保存到ProcessID里

CreateToolhelp32Snapshot   用于创建进程快照。

 

 

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Public Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Public Const LB_SETHORIZONTALEXTENT = &H194 Public Const TH32CS_SNAPheaplist = &H1 Public Const TH32CS_SNAPPROCESS = &H2 Public Const TH32CS_SNAPthread = &H4 Public Const TH32CS_SNAPmodule = &H8 Public Const TH32CS_INHERIT = &H80000000 Public Const TH32CS_SNAPall = (TH32CS_SNAPheaplist Or TH32CS_SNAPPROCESS Or TH32CS_SNAPthread Or TH32CS_SNAPmodule) Private Const MAX_PATH As Integer = 260 Public Const PROCESS_ALL_ACCESS = 0 Public Const PROCESS_TERMINATE = &H1 Public Const PROCESS_VM_READ = 16 Public Const PROCESS_QUERY_INFORMATION = 1024 Public Const PROCESS_SET_INFORMATION = 612 Public ProcessID() As Long Private Sub Form_Load() '遍历进程ID保存到ProcessID Dim i As Integer Dim theloop As Long, snap As Long Dim Proc As PROCESSENTRY32 snap = CreateToolhelp32Snapshot(TH32CS_SNAPall, 0) '获得进程"快照"的句柄 Proc.dwSize = Len(Proc) theloop = Process32First(snap, Proc) '获取第一个进程,并得到其返回值 While theloop <> 0 '当返回值非零时继续获取下一个进程 ReDim Preserve ProcessID(i) ProcessID(i) = Proc.th32ProcessID i = i + 1 theloop = Process32Next(snap, Proc) Wend CloseHandle snap '关闭进程"快照"句柄 End Sub '判断进程是否存在 Function IsProcess(Pid As Long) As Boolean Dim i As Integer For i = 0 To UBound(ProcessID) IsProcess = IIf(Pid = ProcessID(i), True, False) Next i End Function