API标准取内存使用大小源代码

.子程序 GetProcessMemoryInfo, 逻辑型, 公开
.参数 Process, 整数型
.参数 ppsmemCounters, VM_COUNTERS
.参数 cb, 整数型

返回 (GetProcessMemoryInfo_ (Process, ppsmemCounters, cb))

.子程序 内存_取使用大小, 整数型, 公开
.局部变量 a, VM_COUNTERS

GetProcessMemoryInfo_ (GetCurrentProcess (), a, API_内存_取结构大小_通用型 (a))
返回 (a.WorkingSetSize)

.子程序 _按钮1_被单击

输出调试文本 (内存_取使用大小 ())