进程_内存使用取占用超过2G内存进程为负值及不完美修正

赋卿丶

仅针对32位进程的获取结果
当32位进程占用了超过2048MB内存时，因超过有符号整数型上限导致溢出，会返回负值现附上修正方案

P.S. API获取到的内存占用量总比任务管理器显示的多了一点，不知原因如何
P.S. 修正后的代码获取正常占用的进程也不会出错

修正后代码

  

子程序名	返回值类型	公开	备 注
进程_内存使用	双精度小数型		查看指定进程ID的内存使用情况
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型
返回单位	整数型				0=Byte，1=KB，2=MB，3=GB，默认为1

变量名	类 型	静态	数组	备 注
Mem	Process_Memory_Counters
进程句柄	整数型
实际内存	长整数型

如果真 (是否为空 (返回单位) 或 返回单位 ＜ 0)
返回单位 ＝ 1
进程句柄 ＝ OpenProcess (1024, 假, 进程ID)
如果真 (GetProcessMemoryInfo (进程句柄, Mem, 40) ≠ 0)
CloseHandle (进程句柄)
实际内存 ＝ 取字节集数据 (到字节集 (Mem.当前工作设置大小), #长整数型, )
返回 (实际内存 ÷ 求次方 (1024, 返回单位))
CloseHandle (进程句柄)
返回 (0)

.版本 2<br /> <br /> .子程序 进程_内存使用, 双精度小数型, 公开, 查看指定进程ID的内存使用情况<br /> .参数 进程ID, 整数型<br /> .参数 返回单位, 整数型, 可空, 0=Byte，1=KB，2=MB，3=GB，默认为1<br /> .局部变量 Mem, Process_Memory_Counters<br /> .局部变量 进程句柄, 整数型<br /> .局部变量 实际内存, 长整数型<br /> <br /> .如果真 (是否为空 (返回单位) 或 返回单位 ＜ 0)<br /> 返回单位 ＝ 1<br /> <br /> .如果真结束<br /> 进程句柄 ＝ OpenProcess (1024, 假, 进程ID)<br /> .如果真 (GetProcessMemoryInfo (进程句柄, Mem, 40) ≠ 0)<br /> CloseHandle (进程句柄)<br /> 实际内存 ＝ 取字节集数据 (到字节集 (Mem.当前工作设置大小), #长整数型, )<br /> 返回 (实际内存 ÷ 求次方 (1024, 返回单位))<br /> <br /> .如果真结束<br /> CloseHandle (进程句柄)<br /> 返回 (0)

项目部004

  

子程序名	返回值类型	公开	备 注
进程_内存使用	双精度小数型		查看指定进程ID的内存使用情况
参数名	类 型	参考	可空	数组	备 注
PID	整数型
返回单位	整数型				0=Byte，1=KB，2=MB，3=GB，默认为1

变量名	类 型	静态	数组	备 注
Mem	Process_Memory_Counters
hProcess	整数型
WorkingSetSize	长整数型

如果真 (是否为空 (返回单位) 或 返回单位 ＜ 0)
返回单位 ＝ 1
hProcess ＝ OpenProcess ( #PROCESS_QUERY_INFORMATION, 0, PID)
如果真 (GetProcessMemoryInfo (hProcess, Mem, 40) ≠ 0)
CloseHandle (hProcess)
WorkingSetSize ＝ 整数_有符号转无符号 (Mem.当前工作设置大小)
返回 (WorkingSetSize ÷ 求次方 (1024, 返回单位))
CloseHandle (hProcess)
返回 (0)

.版本 2<br /> .子程序 进程_内存使用, 双精度小数型, 公开, 查看指定进程ID的内存使用情况<br /> .参数 PID, 整数型<br /> .参数 返回单位, 整数型, 可空, 0=Byte，1=KB，2=MB，3=GB，默认为1<br /> .局部变量 Mem, Process_Memory_Counters<br /> .局部变量 hProcess, 整数型<br /> .局部变量 WorkingSetSize, 长整数型<br /> .如果真 (是否为空 (返回单位) 或 返回单位 ＜ 0)<br />     返回单位 ＝ 1<br /> .如果真结束<br /> hProcess ＝ OpenProcess (#PROCESS_QUERY_INFORMATION, 0, PID)<br /> .如果真 (GetProcessMemoryInfo (hProcess, Mem, 40) ≠ 0)<br />     CloseHandle (hProcess)<br />     WorkingSetSize ＝ 整数_有符号转无符号 (Mem.当前工作设置大小)<br />     返回 (WorkingSetSize ÷ 求次方 (1024, 返回单位))<br /> .如果真结束<br /> CloseHandle (hProcess)<br /> 返回 (0)

下期版本优化这个命令，感谢反馈！