.版本 2 .程序集 窗口程序集_启动窗口 .子程序 GetProcessMemoryInfo, 逻辑型, 公开 .参数 Process, 整数型 .参数 ppsmemCounters, VM_COUNTERS .参数 cb, 整数型 返回 (GetProcessMemoryInfo_ (Process, ppsmemCounters, cb)) .子程序 内存_取使用大小, 整数型, 公开 .局部变量 a, VM_COUNTERS GetProcessMemoryInfo_ (GetCurrentProcess (), a, API_内存_取结构大小_通用型 (a)) 返回 (a.WorkingSetSize) .子程序 _按钮1_被单击 输出调试文本 (内存_取使用大小 ())