delphi获取内存信息


本文整理自网络,侵删。

 delphi获取内存信息


实例说明
有些delphi程序运行时需要一定大小的内存配置,如果用户计算机的内存低于这个值,程序启动前轻则弹出警告对话框,重则中止当前程序的运行,以避免不必要的系统崩溃。本例比较简单,下面就介绍这方面的技巧。


编程思路
delphi可通过调用API函数GlobalMemoryStatus来达到目的,该delphi函数可以直接获取有关内存状考的信息。


编程步骤
本例主要源代码如下:
//处理点击“获得内存信息”后的事件
procedure TForm1.Button1Click(Sender: TObject);
var
Memlnfo:MemoryStaus;
begin
//用sizeof(MemoryStatus)填充dwLength成员
Memlnfo.dwLength:=sizeof(MemoryStatus);
//获取内存信息
GlobalMemoryStatus(MemInfo);
//内存使用百分比
Edit1.Text:=IntToStr(Memlnfo.dwMemoryLoad)+'%';
//总物理内存(字节)
Edit2.Text:=IntToStr(MemInfo dwTotalPhys);
//未使用物理内存(字节)
Edit3.Text:=IntToStr(MemInfo.dwAvailPhys);
//交换文件大小(字节)
Edit4.Text:=IntToStr(Memlnfo.dwTotalPageFile);
//未使用交换文件大小(字节)
Edit5.Text:=IntToStr(MemInfo dwAvailPageFile);
//虚拟内存空间大小(字节)
Edit6.Text:=IntToStr(MemInfo.dwTotalVirtual);
//未使用虚拟内存大小(字节)
Edit7.Text:=IntToStr(Memlnfo.dwAvailVirtual);
end;
编程总结
本例中内存大小都是以字节为单位的,实际应用中为了简单直观,一般应以兆字节为单位,你只需要以字节为单位的结果除以(1024×1024)即可。

相关阅读 >>

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

Delphi ttabcontrol在tabitem添加关闭按钮

Delphi 泛型排序器 tcomparer

Delphi xe10 对 json的解析应用

Delphi 安卓下打开 pdf, mp4 等外部文件

Delphi检测本机的网络连接状态的三种方法

Delphi 获得父目录�c指定级父目录

firemonkey 手机 app 的手势

Delphi 让窗体自适应屏幕显示

Delphi xe7里面 sharedactivitycontext怎么提示错误?

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...