percentual da memoria no statusbar

Delphi

28/12/2004

Amigos, vi em um programa feito em visual basic que tem um status bar e a medida que a memoria vai sendo utilizar ou lberada mostra o percentual em um panel, gostaria de fazer o mesmo em delphi, mas não sei como. alguem sabe, tem alguma rotina pra passar ou algun componete que faça isto?


Dpinho

Dpinho

Curtidas 0

Respostas

Reginaldo174

Reginaldo174

28/12/2004

Basta adaptar a função para mostrar da forma q desejar

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;



GOSTEI 0
Dpinho

Dpinho

28/12/2004

Ja foi resolvido, agora preciso pintar a cor do progreesbar apos 90 por cento


GOSTEI 0
Dpinho

Dpinho

28/12/2004

preciso colocar um gauge no statusbar, alguem sabe?


GOSTEI 0
POSTAR