动态显示内存信息

《动态显示内存信息》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、动态内存检测实验报告动态内存检测一、选题目的通过调用API函数GlobalMemoryStatus获得内存信息二、系统功能概述单击界面中的显示按纽，则可以显示内存信息三、所用开发环境Delphi7.0IDE四、系统实现⑴．主要控件在主窗体上添加1个Timer控件,2个SpeedButton控件，7个Edit控件⑵．程序代码procedureTFrmMemory.FormCreate(Sender:TObject);beginfrmmemory.Caption:='动态显示内存信息';timer1.Enabled:=false;//关闭计时器end;procedureTFrmM

2、emory.SpeedButton2Click(Sender:TObject);beginclose;//关闭当前窗口end;procedureTFrmMemory.Timer1Timer(Sender:TObject);VarMemInfo:MEMORYSTATUS;begintimer1.interval:=800;//每800毫秒更新一次内存状态的显示MemInfo.dwLength:=sizeof(MEMORYSTATUS);//用sizeof(MemoryStatus)填充dwLength成员GlobalMemoryStatus(MemInfo);//获取内存信息e

3、dit1.Text:=inttostr(MemInfo.dwMemoryLoad)+'%的内存正在使用';edit2.text:='总物理内存为'+IntToStr(MemInfo.dwTotalPhys)+'字节';edit3.text:='可使用的物理内存为'+IntToStr(MemInfo.dwAvailPhys)+'字节';edit4.text:='交换文件总大小为'+IntToStr(MemInfo.dwTotalPageFile)+'字节';edit5.text:='使用的交换文件大小为'+IntToStr(MemInfo.dwAvailPageFile)+'字

4、节';edit6.text:='总虚拟内存为'+IntToStr(MemInfo.dwTotalVirtual)+'字节';2动态内存检测实验报告edit7.text:='可使用的虚拟内存为'+IntToStr(MemInfo.dwAvailVirtual)+'字节';end;procedureTFrmMemory.SpeedButton1Click(Sender:TObject);begintimer1.Enabled:=true;//启动计时器timer1.Interval:=150;//单击显示按纽到显示内存信息之间的时间间隔为150msend;五、系统测试此程序运行结

5、果如下:六、总结与体会通过本次实验，学会了利用API（ApplicationProgrammingInterface,应用程序编程接口）函数获取有关内存的状态信息，刚开始写出来的程序只能显示当前内存的使用状态，通过查找资料，发现Delphi7.0中的Timer组件，可用于在程序中处理复发事件，于是在程序设计中添加了此控件及其相关代码，最终使此程序达到动态显示内存的使用状态的目的。2