易语言获取进程内存使用量模块源码 [db:版本]

易语言获取进程内存使用量模块源码

系统结构:获取进程内存使用量,GetProcessMemory,CreateToolhelp32Snapshot,Process32First,Process32Next,CloseHandle,OpenProcess,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 获取进程内存使用量
| |
| |
======调用的Dll
| |
| |---[dll]------ GetProcessMemory
| |
| |---[dll]------ CreateToolhelp32Snapshot
| |
| |---[dll]------ Process32First
| |
| |---[dll]------ Process32Next
| |
| |---[dll]------ CloseHandle
| |
| |---[dll]------ OpenProcess
| |
| |---[dll]------ _GlobalSize
| |
| |---[dll]------ _取指针

调用的DLL命令:

.DLL命令 GetProcessMemory, 整数型, "psapi.dll", "GetProcessMemoryInfo"
.参数 Process, 整数型
.参数 ppsmemCounters, PROCESS_MEMORY_COUNTERS
.参数 cb, 整数型

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
.参数 dwFlags, 整数型
.参数 th32ProcessID, 整数型

.DLL命令 Process32First, 整数型, , "Process32First"
.参数 hSnapshot, 整数型
.参数 lppe, PROCESSENTRY32

.DLL命令 Process32Next, 整数型, , "Process32Next"
.参数 hSnapshot, 整数型
.参数 lppe, PROCESSENTRY32

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
.参数 ProcessHandle, 整数型

.DLL命令 OpenProcess, 整数型, "Kernel32.dll", "OpenProcess", 公开, 函数用来打开一个已存在的进程对象,并返回进程的句柄
.参数 dwDesiredAccess, 整数型, , 渴望得到的访问权限(标志)，填#_PROCESS_ALL_ACCESS
.参数 bInheritHandle, 逻辑型, , 是否继承句柄
.参数 dwProcessId, 整数型, , 进程标示符

.DLL命令 _GlobalSize, 整数型, , "GlobalSize"
.参数 hMem, 整数型

.DLL命令 _取指针, 整数型, , "lstrcpynA"
.参数 欲取其指针的整数, PROCESS_MEMORY_COUNTERS, 传址
.参数 欲取其指针的整数, PROCESS_MEMORY_COUNTERS, 传址
.参数 保留, 整数型