用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