怎么能快速方便的获得当前的进程数目？

Question

怎么能快速方便的获得当前的进程数目？

Answer 1

ToolHelp函数集CreateToolhelp32Snapshot
Process32First
Process32Next

Answer 2

Dim i As Long
Dim proc As PROCESSENTRY32
Dim snap As Long
'Dim exename As String
lvw.ListItems.Clear 'clear listview contents
snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) 'get snapshot handle
proc.dwSize = Len(proc)
theloop = ProcessFirst(snap, proc)       'first process and return value
i = 0
While theloop <> 0      'next process
'exename = proc.szExeFile
'ret = lvw.ListItems.Add(, "first" & CStr(i), exename)   'add process name to listview
'lvw.ListItems("first" & CStr(i)).SubItems(1) = proc.th32ProcessID   'add process ID to listview
i = i + 1
theloop = ProcessNext(snap, proc)
Wend
MsgBox i
CloseHandle snap    
我找到了，自己说算了

Answer 3

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate 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 * 1024
End Type
  Dim my As PROCESSENTRY32
  Dim l As Long
  Dim l1 As Long
  Dim ProcessNum as integer
  l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
  If l Then
    my.dwsize = 1060    If (Process32First(l, my)) Then '遍历第一个进程
      Do
            ProcessNum =ProcessNum +1
      Loop Until (Process32Next(l, my) < 1) '遍历所有进程知道返回值为False
    End If
    l1 = CloseHandle(l)
  End If

Answer 4

请到 http://www.mndsoft.com/blog/default.asp 上留言。会有人给你帮助并发布源代码。
不信试验一下。