Fórum Total de memória consumida #270675

procedure TfrmSobreDetalhes.FormCreate(Sender: TObject);
const
  cBytesPorMb = 1024 * 1024;
var
  M: TMemoryStatus;
begin
  M.dwLength := SizeOf(M);
  GlobalMemoryStatus(M);
  Memo1.Clear;
  with Memo1.Lines do
  begin
    Add(´´);
    Add(Format(´Memória em uso: ¬d¬¬´,
      [M.dwMemoryLoad]));
    Add(Format(´Total de memória física: ¬f MB´,
      [M.dwTotalPhys / cBytesPorMb]));
    Add(Format(´Memória física disponível: ¬f MB´,
      [M.dwAvailPhys / cBytesPorMb]));
    Add(Format(´Tamanho máximo do arquivo de paginação: ¬f MB´,
      [M.dwTotalPageFile / cBytesPorMb]));
    Add(Format(´Disponível no arquivo de paginação: ¬f MB´,
      [M.dwAvailPageFile / cBytesPorMb]));
    Add(Format(´Total de memória virtual: ¬f MB´,
      [M.dwTotalVirtual / cBytesPorMb]));
    Add(Format(´Memória virtual disponível: ¬f MB´,
      [M.dwAvailVirtual / cBytesPorMb]));
  end;
end;

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;