回复 9楼 lianyicq
谢谢,我用
程序代码:
If TheProcesses(0) <> 0 Then
Dim i As Long
For i = UBound(TheProcesses) To 0 Step -1
Dim a As Long
a = OpenProcess(PROCESS_ALL_ACCESS, False, TheProcesses(i))
If a = 0 Then
Call DeleteFormArray(TheProcesses, i)
Else
Dim CreationTime As FileTime, ExitTime As FileTime, KernelTime As FileTime, UserTime As FileTime
If GetProcessTimes(a, CreationTime, ExitTime, KernelTime, UserTime) = 0 Then
MsgBox GetLastError
Call DeleteFormArray(TheProcesses, i)
Else
If ExitTime.dwHighDateTime <> 0 And ExitTime.dwLowDateTime <> 0 Then
Call DeleteFormArray(TheProcesses, i)
End If
End If
End If
Call CloseHandle(a)
Next i
End If
解决了