Delphi程序中的哪个文件可以看内存的使用情况呢!!! 自己编写的Delphi程序中那個文件可以看間,自己程序內存的使用情況,如過沒有,有什麽函數可以實現看內存的使用情況!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 检测当前内存procedure TForm1.Button2Click(Sender: TObject);var str:String;begin ClearMemoryInData; GlobalMemoryStatus(m1); str:='内存使用百分比 :'+IntToStr(m.dwMemoryLoad)+','+IntToStr(m1.dwMemoryLoad)+#13#10+ '实际内存总字节数 :'+IntToStr(m.dwTotalPhys)+','+IntToStr(m1.dwTotalPhys)+#13#10+ '可用的实际内存字节数:'+IntToStr(m.dwAvailPhys)+','+IntToStr(m1.dwAvailPhys)+#13#10+ '分页文件总字节数 :'+IntToStr(m.dwTotalPageFile)+','+IntToStr(m1.dwTotalPageFile)+#13#10+ '分页文件可用字节数 :'+IntToStr(m.dwAvailPageFile)+','+IntToStr(m1.dwAvailPageFile)+#13#10+ '虚拟内存的总字节数 :'+IntToStr(m.dwTotalVirtual)+','+IntToStr(m1.dwTotalVirtual)+#13#10+ '可用的虚拟内存字节数:'+IntToStr(m.dwAvailVirtual)+','+IntToStr(m1.dwAvailVirtual)+#13#10; MessageBox(Handle,PChar(str),'提示信息',MB_OK);end; 一个局部变量简单问题 我的程序需要一个对象池,我这样设计对吗? widestring与Pos的问题 结婚进行时--是快乐,是烦躁;是幸福,是焦虑。我,告别单身。 请教高手:有关对象和组件对象生命期管理的问题?顶~~~~ !!!!!!!!怎么实现关闭计算机????? 请教可否用重载的方法实现如下的要求! ODACV5.1 处理 BLOB、CLOB 问题 CSDN改版后的问题 有关把gif文件转化为bmp文件的问题 请教如何用api读取注册表中某项的值? 谁来给分!
procedure TForm1.Button2Click(Sender: TObject);var str:String;begin ClearMemoryInData; GlobalMemoryStatus(m1); str:='内存使用百分比 :'+IntToStr(m.dwMemoryLoad)+','+IntToStr(m1.dwMemoryLoad)+#13#10+ '实际内存总字节数 :'+IntToStr(m.dwTotalPhys)+','+IntToStr(m1.dwTotalPhys)+#13#10+ '可用的实际内存字节数:'+IntToStr(m.dwAvailPhys)+','+IntToStr(m1.dwAvailPhys)+#13#10+ '分页文件总字节数 :'+IntToStr(m.dwTotalPageFile)+','+IntToStr(m1.dwTotalPageFile)+#13#10+ '分页文件可用字节数 :'+IntToStr(m.dwAvailPageFile)+','+IntToStr(m1.dwAvailPageFile)+#13#10+ '虚拟内存的总字节数 :'+IntToStr(m.dwTotalVirtual)+','+IntToStr(m1.dwTotalVirtual)+#13#10+ '可用的虚拟内存字节数:'+IntToStr(m.dwAvailVirtual)+','+IntToStr(m1.dwAvailVirtual)+#13#10; MessageBox(Handle,PChar(str),'提示信息',MB_OK);end;