易语言API取内存占用源码

系统结构:GetMemoryByPID,取进程内存信息_,关闭内核对象_,打开进程_,

======程序集1
           |  |
           |  |------ GetMemoryByPID
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取进程内存信息_
           |  |
           |  |---[dll]------   关闭内核对象_
           |  |
           |  |---[dll]------   打开进程_

调用的DLL命令:

.DLL命令 取进程内存信息_, 整数型, "psapi.dll", "GetProcessMemoryInfo"
    .参数 进程句柄, 整数型, , Process
    .参数 进程内存结构, 进程内存统计_, , ppsmemCounters
    .参数 结构大小, 整数型, , cb

.DLL命令 关闭内核对象_, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 打开进程_, 整数型, "kernel32.dll", "OpenProcess", , 将句柄返回给过程对象
    .参数 进程对象, 整数型, , dwDesiredAccess
    .参数 继承句柄, 整数型, , bInheritHandle
    .参数 进程标识符, 整数型, , dwProcessId