Total de memória consumida

Delphi

02/03/2005

Alguém sabe como posso saber a quantidade de memória que o aplicativo está consumindo neste momento...


Eu preciso mostrar em um label o total de bytes ou kbytes que o meu programa está consumindo.

obrigado


Biffi

Biffi

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

02/03/2005

Veja se o código abaixo o ajuda:

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;



GOSTEI 0
Cabelo

Cabelo

02/03/2005

Qual a USES que devo declarar?


GOSTEI 0
Salsa

Salsa

02/03/2005

cara se tu quiser um componente free pra isso... no pacote de componentes da JVCL tem um componente q mostra tudo isso q vc quer.. :P


GOSTEI 0
Rômulo Barros

Rômulo Barros

02/03/2005

Qual a USES que devo declarar?


[color=red:b0cd16964e][u:b0cd16964e]Vê aew... tou um pouco sem tempo:[/u:b0cd16964e][/color:b0cd16964e]

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



GOSTEI 0
POSTAR