显示目前记忆体使用状态

拉三个 Label 元件随便放，再拉一个 Timer 元件，设定间隔一秒(1000)左右，事件内容如下：
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TMemoryStatus MemoryStatus;
MemoryStatus.dwLength = sizeof(MemoryStatus);
GlobalMemoryStatus(&MemoryStatus);
Label1->Caption = "实体记忆体总量： "+IntToStr(MemoryStatus.dwTotalPhys/1024)+" KBytes";
Label2->Caption = "剩余可用的记忆体量： " +IntToStr(MemoryStatus.dwAvailPhys/1024)+" KBytes";
Label3->Caption = "记忆体使用率： " +IntToStr(MemoryStatus.dwMemoryLoad)+" %";
}

/*
MemoryStatus 结构如下，还想显示其它资讯的自己加:

typedef struct _MEMORYST ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

大大:
    请教一下... 我按照你的方式去试,
    结果发现，我安装3G的记忆体，却只能抓到2G
　　请问是哪里需要修改呢？
　　在XP的"工作管理员"是显示3G的容量．．．
　　
　　使用方式如下：
　　TMemoryStatus MemoryStatus;
　MemoryStatus.dwLength = sizeof(MemoryStatus);
　GlobalMemoryStatus(&MemoryStatus);

刚来报到, 找一个自己用过的, 来回覆一下~

其实这个方法只是用挤压法, 把实体记忆体硬赶到虚拟记忆体
如果只是要赶到虚拟记忆体, 有一个更快的方法
就是找到正在执行且使用率低的的applications, 然后呼叫SetProcessWorkingSetSize就可以了喔
速度可是快了n倍咧

小小范例

hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, id);
if (hProcess != 0)
{
SetProcessWorkingSetSize(hProcess, $FFFFFFFF, $FFFFFFFF);
CloseHandle(hProcess);
}

下面是引用mitsune1于2008-06-23 17:12发表的 :
大大:
  请教一下... 我按照你的方式去试,
  结果发现，我安装3G的记忆体，却只能抓到2G
　　请问是哪里需要修改呢？
　　在XP的"工作管理员"是显示3G的容量．．．
　　
　　使用方式如下：
　　TMemoryStatus MemoryStatus;
　MemoryStatus.dwLength = sizeof(MemoryStatus);
　GlobalMemoryStatus(&MemoryStatus);

抓到2G是因为你用long(2147483647 ~ -2147483648) 本来最大就只到2G..

太厉害啰

感谢分享

用力的给它推一把，真的是很值得一看的教学哦！

对我这个新手来说是一大帮助~感谢大大~

值得研究的Source Code , Thanks Share

@@ 来研究研究   眼花撩乱 ....