我确信DELPHI有这个函数,但是忘了,请知道的朋友指点
解决方案 »
- 关于delphi中spcomm的使用
- 求delphi7做基于com+的三层开发例子---在线等。马上给分
- 如何让PC喇叭发声?
- 用adoquery新增数据的sql语句!
- 求职!
- 难题,如何取出webbrowes控件中的一个网页。。。。。。。。分不够再加
- 请问各位大侠在连接sql server数据库时如何屏蔽掉验证窗口
- 大家看看这个程序该怎么写
- 好东东推荐!编程助手:MessageBox Express
- 学做控件
- 各位高手,能否把你们的email 或者QQ告诉小弟,以便小弟请教一些很菜的问题,提供者都有分,我的QQ:24324773,Email:[email protected],谢谢!
- 谁用过ExpressQuantumGrid For Delphi6
var
Mem: TMEMORYSTATUS;
begin
Mem.dwLength := Sizeof(TMEMORYSTATUS);
GlobalMemoryStatus(Mem);
result := Mem.dwAvailPhys div 1024;
end;
MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
PhysMem.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024);
FreeRes.Caption := Format('%d %%', [MS.dwMemoryLoad]);
end;