怎样获取可用内存的容量？

Question

谢谢！

Answer 1

var
 ms:TMemoryStatus;
 MemTotal:        Dword;
 MemAvailable:    Dword;
 MemUsage:        Dword;
 SwapFileSetting: Dword;
 SwapFileSize:    Dword;
 SwapFileUsage:   Dword;
begin
  with MS do begin
      dwLength := sizeof(TMemoryStatus);
      GlobalMemoryStatus(MS);      MemTotal        := dwTotalPhys;
      MemAvailable    := dwAvailPhys;
      MemUsage        := 100-trunc(dwAvailPhys/dwTotalPhys*100);
      SwapFileSetting := dwTotalPageFile;
      SwapFileSize    := dwAvailPageFile;
      SwapFileUsage   := 100-trunc(dwAvailPageFile/dwTotalPageFile*100);
    end; // with MS
  Memo1.Text :='总内存：'+InttoStr(MemTotal);
  Memo1.Lines.Append('可用内存：'+IntToStr(MemAvailable));
  Memo1.Lines.Append('内存使用率：'+IntToStr(MemUsage)+'%');
  Memo1.Lines.Append('总交换文件：'+IntToStr(SwapFileSetting));
  Memo1.Lines.Append('可用交换文件：'+IntToStr(SwapFileSize));
  Memo1.Lines.Append('交换文件使用率：'+IntToStr(SwapFileUsage)+'%');
end;

Answer 2

study,study from you all