读出一个进程中所有的模块名和模块路径（第一个就是程序本身的路径）
Option Explicit
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, hModule As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpBaseName As String, ByVal nSize As Long) As Long
Private Declare Function GetModuleFileNameEx Lib "PSAPI.DLL" Alias "GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize 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 CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const MAX_PATH = 260
'模 块 名：EnumModule
'功 能：读出一个进程中所有的模块名和模块路径（第一个就是程序本身的路径）
'返 回 值：暂无（大家也可以写入错误处理）
'参 数：EnumModule(进程的标识符，读出的模块数组)
'调用方法：（Form1、Command1、Text1、List1）各一个
'Private Sub Command1_Click()
'Dim Arr() As String
'EnumModule CLng(Text1.Text), Arr
'Dim i
'For Each i In Arr
'List1.AddItem i
'Next
'MsgBox List1.ListCount
'End Sub
Public Function EnumModule(ByVal hProc As Long, ByRef sModule() As String) As Long
Dim lRet As Long '返回值
Dim i As Long '循环计数器
Dim hProcess As Long '进程标识
Dim hModule() As Long '进程中的所有模块
Dim ModName As String '模块名
Dim ModFilePath As String '模块路径
Dim cbNeed As Long '偶也不知是做什么的，好像是计录进程中的模块数量cbNeed / 4
来源:www.upschool.com.cn
作者:未知
关键字：VB,读取,进程,模块名,模块路径
发表日期：2007-2-9 16:53:36
网页显示有限 阅读全文请下载本文完整版WORD文档上一篇：用VB创建开始菜单快捷方式（无需其他DLL） 下一篇：
共2页 9 7 [1] [2] 8 :>
