是啊,已经调用了,而且已经获得了一个句柄,以下是我的代码
Dim lngSnap As Long
Dim proc As PROCESSENTRY32
Dim isLoop As Long
Dim isClose As Boolean
Dim aryProcName() As String
Dim i As Integer
i = 0
lngSnap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)
proc.dwSize = Len(proc)
isLoop = ProcessFirst(lngSnap, proc)
While isLoop <> 0
ReDim aryProcName(i)
aryProcName(i) = proc.szExeFile
isLoop = ProcessNext(lngSnap, proc)
i = i + 1
Wend
CloseHandle lngSnap
GetAllProcess = aryProcName