percentual da memoria no statusbar

Question

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?

Reginaldo174 · Answer

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;

Dpinho · Answer

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

Dpinho · Answer

preciso colocar um gauge no statusbar, alguem sabe?...

F�rum percentual da memoria no statusbar #263648