Marcos Abreu Ferreira escreveu: > Silvio, > > é quase isso... Precisava saber o total de memória utilizada por um > determinado programa.
Mai fácil ainda :) Veja se esse isso que esta aqui (observe que o caption do Form bate com a memória utilizada pelo Project1.exe): http://imagebin.org/93206 Fiz a tua pergunta (juro :) ) "memória utilizada por um determinado programa" em inglês e olha no que deu: http://bit.ly/ayt4li No primeiro link: http://stackoverflow.com/questions/437683/how-to-get-the-memory-used-by-a-delphi-program ---------------------- uses PsAPI; function CurrentProcessMemory: Cardinal; var MemCounters: TProcessMemoryCounters; begin MemCounters.cb := SizeOf(MemCounters); if GetProcessMemoryInfo(GetCurrentProcess, @MemCounters, SizeOf(MemCounters)) then Result := MemCounters.WorkingSetSize else RaiseLastOSError; end; procedure TForm1.Button1Click(Sender: TObject); begin Caption := IntToStr(CurrentProcessMemory) end; ---------------------- Se quiser aquelas firulas com KB, MB e GB, use a dica do Rubem: http://www.silvioprog.com.br/dicas/representandocapacidadescomputacionaisemstrings -- []'s Silvio Clécio -- programmer ObjectPascal - http://silvioprog.com.br -- twitter - http://twitter.com/silvioprog -- Grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br
