Как получить размер физической установленной памяти?

Code:

uses

Windows, SysUtils;

function DisplayRam: string;

var

Info: TMemoryStatus;

begin

Info.dwLength := SizeOf(TMemoryStatus);

GlobalMemoryStatus(Info);

Result := Format('%d MB RAM', [(Info.dwTotalPhys shr 20) + 1]);

end;

Code:

function Physmem: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwTotalPhys div 1024);

end;

function PhysmemFree: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwAvailPhys div 1024);

end;

function MemLoad: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwMemoryLoad);

end;

function TotalPageFile: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwTotalPageFile div 1024);

end;

function AvailPageFile: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwAvailPageFile div 1024);

end;

function VirTotPageFile: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwTotalVirtual div 1024);

end;

function AvailVir: string;

var

MemStat: TMemoryStatus;

begin

MemStat.dwLength := sizeof(MemStat);

GlobalMemoryStatus(MemStat);

result := inttoStr(memstat.dwAvailVirtual div 1024);

end;