进程ID获取此进程内存

handle ＝ OpenProcess (1024, 假, 进程ID)
.如果真 (handle ＞ 0)
ppsc.cb ＝ 10 × 4
.如果真 (GetProcessMemory (handle, ppsc, ppsc.cb) ≠ 0)
返回 (ppsc.WorkingSetSize)
.如果真结束
CloseHandle (handle)
.如果真结束
返回 (ppsc.WorkingSetSize)