基于DELPHI的API的内存管理

//TMemoryStatus 是 _MEMORYSTATUS 的delphi封装:
_MEMORYSTATUS = record
  dwLength: DWORD;        {结构长度}
  dwMemoryLoad: DWORD;    {表示可用内存比例的一个整数, 100 表示内存都可用}
  dwTotalPhys: DWORD;     {物理内存总数}
  dwAvailPhys: DWORD;     {可用物理内存总数}
  dwTotalPageFile: DWORD; {虚拟内存总数}
  dwAvailPageFile: DWORD; {可用虚拟内存总数}
  dwTotalVirtual: DWORD;  {虚地址表中的地址总数}
  dwAvailVirtual: DWORD;  {虚地址表中可用的地址总数}
end;
------------------------------------------------------------------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);
var
  m: TMemoryStatus;
const
  num = 1024 * 1024;
begin
  GlobalMemoryStatus(m);
  Memo1.Clear;
  with Memo1.Lines do begin
    Add(Format('dwLength(内存结构长度):'        + #9 + '%d', [m.dwLength]));
    Add(Format('dwMemoryLoad(表示可用内存比例):'    + #9 + '%d', [m.dwMemoryLoad]));
    Add(Format('dwTotalPhys物理内存总数:'     + #9 + '%d', [m.dwTotalPhys div num]));
    Add(Format('dwAvailPhys{可用物理内存总数:'     + #9 + '%d', [m.dwAvailPhys div num]));
    Add(Format('dwTotalPageFile虚拟内存总数:' + #9 + '%d', [m.dwTotalPageFile div num]));
    Add(Format('dwAvailPageFile可用虚拟内存总数:' + #9 + '%d', [m.dwAvailPageFile div num]));
    Add(Format('dwTotalVirtual虚地址表中的地址总数:'  + #9 + '%d', [m.dwTotalVirtual div num]));
    Add(Format('dwAvailVirtual虚地址表中可用的地址总数:'  + #9 + '%d', [m.dwAvailVirtual div num]));
  end;
end;

end.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15678730/viewspace-605230/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15678730/viewspace-605230/