精易模块V8.0.5 进程_内存使用 建议以数值形式返回方便单位转换

UltrSeven

以下是改进后的源码
.版本 2

.子程序 进程_内存使用, 整数型, 公开, 查看指定进程ID的内存使用情况
.参数 PID, 整数型
.参数 返回单位, 整数型, , 0为字节，1为K字节，2为M字节，3为G字节以此类推
.局部变量 Mem, Process_Memory_Counters
.局部变量 标识, 整数型

标识 ＝ OpenProcess (1024, 假, PID)
.如果真 (GetProcessMemoryInfo (标识, Mem, 40) ≠ 0)
    CloseHandle (标识)
    返回单位 ＝ 求次方 (1024, 返回单位)
    返回 (Mem.当前工作设置大小 ÷ 返回单位)
.如果真结束
CloseHandle (标识)
返回 (0)

UltrSeven

模块源代码作为对照
.版本 2

.子程序 进程_内存使用, 文本型, 公开, 查看指定进程ID的内存使用情况
.参数 PID, 整数型, ,
.局部变量 Mem, Process_Memory_Counters, , ,
.局部变量 , , , ,
.局部变量 标识, 整数型, , ,

标识 ＝ OpenProcess (1024, 假, PID)
.如果真 (GetProcessMemoryInfo (标识, Mem, 40) ≠ 0)
    CloseHandle (标识)
    返回 (数值到格式文本 (Mem.当前工作设置大小 ÷ 1024, 0, 真) ＋ “ K”)
.如果真结束
CloseHandle (标识)
返回 (“”)

韦贝贝

UltrSeven 发表于 2020-3-7 21:51
模块源代码作为对照
.版本 2

整数型其实不好

飞菜鸟

这个函数是取进程的内存使用数，但我还想取进程的内存提交大小值（也就是任务管理器里的“提交大小”栏的数值），此数值好象是进程使用物理内存和虚拟内存的总和，具有判断进程是否使用过多虚拟内存的意义。要实现这功能，该用什么函数呢？

项目部004

好的，下期版本适当调整这部分！

jing123a