怎样获取系统内存大小？

[yxzxs]

怎样获取系统内存大小？

[神医CL]

procedure TForm1.Button1Click(Sender: TObject);
var
MemInfo: MEMORYSTATUS;
begin
MemInfo.dwLength:=sizeof(MEMORYSTATUS);
// 获取内存信息
GlobalMemoryStatus(MemInfo);
Edit1.Text:= IntToStr(MemInfo.dwMemoryLoad)+'%的内存在使用';
Edit2.Text:= '物理内存共有'+IntToStr(MemInfo.dwTotalPhys)+'字节';
Edit3.Text:= '未使用的物理内存有'+IntToStr(MemInfo.dwAvailPhys)+'字节';
Edit4.Text:= '交换文件的大小为'+IntToStr(MemInfo.dwTotalPageFile)+'字节';
Edit5.Text:= '未使用的交换文件大小为'+IntToStr(MemInfo.dwAvailPageFile)+'字节';
Edit6.Text:= '虚拟内存空间大小为'+IntToStr(MemInfo.dwTotalVirtual)+'字节';
Edit7.Text:= '未使用的虚拟内存大小为'+IntToStr(MemInfo.dwAvailVirtual)+'字节';
end;

[halibut]

API:
GlobalMemoryStatus()

[lanren_me]

TMemoryManager* mmNew;

TMemoryManager* mmOld;

int iGetMemCount, iFreeMemCount, iReallocMemCount;

Pointer __fastcall NewGetMem(int iSize);
int __fastcall NewFreeMem(Pointer p);
Pointer __fastcall NewReallocMem(Pointer p, int iSize);

__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
mmNew = new TMemoryManager();
mmOld = new TMemoryManager();

mmNew->GetMem = NewGetMem;

mmNew->FreeMem = NewFreeMem;
mmNew->ReallocMem = NewReallocMem;

GetMemoryManager(*mmOld);

SetMemoryManager(*mmNew);
}

__fastcall TForm1::~TForm1()
{
delete mmNew;
delete mmOld;
}

Pointer __fastcall NewGetMem(int iSize)
{
iGetMemCount++;
return mmOld->GetMem(iSize);
}

int __fastcall NewFreeMem(Pointer p)
{
iFreeMemCount++;
return mmOld->FreeMem(p);
}

Pointer __fastcall NewReallocMem(Pointer p, int iSize)
{
iReallocMemCount++;
return mmOld->ReallocMem(p, iSize);

}