Silvio, é quase isso... Precisava saber o total de memória utilizada por um determinado programa.
--- Em delphi-br@yahoogrupos.com.br, Silvio Clecio <silviop...@...> escreveu > > Marcos Abreu Ferreira escreveu: > > Pessoal, > > > > alguém sabe se tenho como verificar quanto minha aplicação está ocupando > > de memória e qual a porcentagem de utilização do processador por ela? E > > quanto tenho disponível de memória RAM ainda? > > > > Att, > > > > Marcos Ferreira > > FONTE: http://tinyurl.com/y84sqln > > 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;
