Buscar por:

Status da memoria

Código

Procedure TForm1.Timer1Timer(Sender: TObject);

const cBytesPorMb=1024*1024;

var

  M: TMemoryStatus;

  T : string;

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 física: %f MB', [M.dwTotalPhys/cBytesPorMB]));

      Add(Format('Total máx. paginação: %f MB', [M.dwTotalPageFile/ cBytesPorMB]));

      Add(Format('Paginação disponível: %f MB', [M.dwAvailPageFile/ cBytesPorMB]));

      Add(Format('Total vitual: %fMB', [M.dwTotalVirtual/cBytesPorMB]));

      Add(Format('Virtual disponível: %fMB', [M.dwAvailVirtual/cBytesPorMB]));

      T := formatfloat('#,##',(diskfree(0)));

      Add('Espaço Livre do HD: '+ copy(T,1,4)+' MB');

      T:= formatfloat('#,##',(DiskSize(0)));

      Add('Tamanho do HD: '+copy(T,1,4)+' MB') ;

    end;

end;