如何获得系统内存的有关信息？ (2001年1月19日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 26 行

如何获得系统内存的有关信息？ (2001年1月19日) 

本站更新  分类:   作者:tomm  推荐:   阅读次数:476  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
如何获得系统内存的有关信息？

具体实现
var
ms : TMemoryStatus;
begin
ms.dwLength := SizeOf( ms ); //sizeof(MEMORYSTATUS)
GlobalMemoryStatus( ms );
with ms do
begin
MemoryLoad := dwMemoryLoad; //percent of memory in use
TotalPhys := dwTotalPhys; // bytes of physical memory 
AvailPhys := dwAvailPhys; // free physical memory bytes 
TotalPageFile := dwTotalPageFile; // bytes of paging file 
AvailPageFile := dwAvailPageFile; // free bytes of paging file 
TotalVirtual := dwTotalVirtual; // user bytes of address space 
AvailVirtual := dwAvailVirtual; // free user bytes
end;