顯示目前記憶體使用狀態

拉三個 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

@@ 來研究研究   眼花撩亂 ....