Buscar por:

Obter status da memória do sistema

Código

{Essa dica tem como objetivo mostrar o status da memória do sistema. Para isso, crie uma nova aplicação e adicione um TButton e um TMemo.

Copie o código a seguir no evento OnClick do Button1.}

procedure TForm1.Button1Click(Sender: TObject);

const

  cBytesPorMb = 1024 * 1024;

var

  M: TMemoryStatus;

begin

  M.dwLength := SizeOf(M);

  GlobalMemoryStatus(M);

  Memo1.Clear;

  with Memo1.Lines do begin

    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;