SUBROUTINE GlobalMemoryStatus(ref MEMORYSTATUS lpMemorystatus) Library "kernel32.dll";
MEMORYSTATUS mem
GlobalMemoryStatus(mem);
sle_mem.text=string(mem.dwTotalPhys)
sle_dwAvailPhys.text=string(mem.dwAvailPhys)
sle_dwMemoryLoad.text=string(mem.dwMemoryLoad)+'%'
sle_dwTotalPageFile.text=string(mem.dwTotalPageFile)
sle_dwavailpagefile.text=string(mem.dwavailpagefile)
sle_dwtotalvirtual.text=string(mem.dwtotalvirtual)
sle_dwavailvirtual.text=string(mem.dwavailvirtual)
本文介绍了一个使用 Delphi 实现的程序片段,该程序通过调用 GlobalMemoryStatus 函数来获取系统的内存状态。此函数返回一个 MEMORYSTATUS 结构,其中包含了有关物理内存、虚拟内存和页面文件的信息。
2739

被折叠的 条评论
为什么被折叠?



