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 函数来获取系统的内存状态,并将相关信息显示在界面上。包括总物理内存、可用物理内存等。
2743

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



