const
{ Memory status strings }
SMemUse = 'Memory in useq%d%%';
STotMem = 'Total physical memoryq$%.8x bytes';
SFreeMem = 'Free physical memoryq$%.8x bytes';
STotPage = 'Total page file memoryq$%.8x bytes';
SFreePage = 'Free page file memoryq$%.8x bytes';
STotVirt = 'Total virtual memoryq$%.8x bytes';
SFreeVirt = 'Free virtual memoryq$%.8x bytes';procedure TInfoForm.ShowMemStatus;
var
MS: TMemoryStatus;
begin
InfoLB.DelimChar := 'q';
MS.dwLength := SizeOf(MS);
GlobalMemoryStatus(MS);
with InfoLB.Items, MS do
begin
Clear;
Add(Format(SMemUse, [dwMemoryLoad]));
Add(Format(STotMem, [dwTotalPhys]));
Add(Format(SFreeMem, [dwAvailPhys]));
Add(Format(STotPage, [dwTotalPageFile]));
Add(Format(SFreePage, [dwAvailPageFile]));
Add(Format(STotVirt, [dwTotalVirtual]));
Add(Format(SFreeVirt, [dwAvailVirtual]));
end;
InfoLB.Sections[0].Text := 'Resource';
InfoLB.Sections[1].Text := 'Amount';
Caption:= 'Memory Status';
end;
解决方案 »
- 斑竹来看看,论坛怎么回事啊?
- 怎么在插入、修改数据库比较慢的情况下,跳出一个提示框啊!!(高分求助,来者有份)
- 高分求嵌入delphi的word编辑控件!(不要WebBrowser!)
- 讨论文件关联问题
- 各位好!怎么样减小delphi7编译程序的大小,谢谢讨论!
- 关于DLL和文本文件
- 有这样一个问题
- 怎么把圆画在同一直线上
- delphi 更新数据
- 为什么在TQuery中参数总是不对?请教各位。
- dll无法调用,哪位指点指点,无法找到入口
- ******************哪位高手会用 TB_CUSTOMIZE,让TOOLBAB显示windows的配置菜单 ???????*****************
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多,功能完备!★ 浏览帖子速度极快![建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。0D
★ 可以直接发贴、回复帖子★ 采用XML接口,可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录!
★ 支持在线检测程序升级情况,可及时获得程序更新的信息。
0A
★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]