ÓÃVBö¾Ùϵͳ½ø³ÌPID¼°Â·¾¶

http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
Ìí¼ÓÒ»¸öListBoxºÍÒ»¸ö°´Å¥
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function EnumProcesses Lib "psapi" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
'ÉÏΪº¯ÊýÉùÃ÷£¬Ôڴ˳ÌÐòÖÐEnumProcessModulesΪ·Ç±ØÒª£¬Ã¶¾Ù½ø³Ì·¾¶£¬²¢²»ÐèҪȥö¾Ù½ø³ÌµÄÄ£¿é¡£
Dim cbNeeded As Long, cbNeeded2 As Long, ProcessIDs(1 To 255) As Long
Dim lRet As Long, ModuleName As String, hProcess As Long
Const PROCESS_QUERY_INFORMATION = &H400
Const PROCESS_VM_READ = &H10
Dim DeskW As Long, DeskH As Long
Private Sub Command1_Click()
Dim ProcessCount As Long, I As Long
List1.Clear
Call EnumProcesses(ProcessIDs(1), 256, cbNeeded) '·µ»Ø½ø³ÌPIDÊý×éºÍ½ø³ÌÊý×é´óС
ProcessCount = cbNeeded / 4 '¼ÆËã³ö½ø³ÌÊý
For I = 1 To ProcessCount
hProcess = OpenProcess(&H400 Or &H10, False, ProcessIDs(I))
If hProcess <> 0 Then
ModuleName = Space(255) 'Ϊģ¿éÃû·ÖÅä¿Õ¼ä£¬ÕâºÜÖØÒª
'Ä£¿é¾ä±úÖ¸ÕëΪÁãĬÈÏ»ñÈ¡½ø³ÌÃû£¬ÎÞÐèö¾Ù½ø³ÌÄ£¿é
lRet = GetModuleFileNameExA(hProcess, 0, ModuleName, 255)
List1.AddItem ProcessIDs(I) & Chr(9) & ModuleName '½«½ø³ÌPIDºÍ·¾¶Ìí¼Óµ½Áбí¿ò
End If
lRet = CloseHandle(hProcess) '¹Øµô½ø³Ì¾ä±ú
Next
End Sub
2010-02-23
 http://www.docin.com/p-1549182.html