Ola..eu peguei este codigo na net e dei uma modificada.
procedure TForm1.Timer2Timer(Sender: TObject);
const cBytesPorMb=1024*1024;
var
M: TMemoryStatus;
T : string;
begin
M.dwLength:=SizeOf(M);
GlobalMemoryStatus(M);
begin
label4.caption:=(Format('Memória em uso: %d%%', [M.dwMemoryLoad]));
label3.caption:=(format('Total de física: %f MB', [M.dwTotalPhys/cBytesPorMB]));
T := formatfloat('#,##',(diskfree(0)));
label1.caption:=('Espaço Livre do HD: '+ copy(T,1,4)+' MB');
T:= formatfloat('#,##',(DiskSize(0)));
label2.caption:=('Tamanho do HD: '+copy(T,1,4)+' MB');
end;
ele apresenta a memoria da maquina total e a usada, o tamanho do hd e o espaço livre...funciona perfeito.
Eu Gostaria de saber como posso colocar juntos com estas informações a MEMÓRIA USADA PELO PROGRAMA? tipo vou colocar um timer em um programa é quero que apareça pro usuario quanto que o programa ocupa de memória.
Pergunta
Eder
Ola..eu peguei este codigo na net e dei uma modificada.
ele apresenta a memoria da maquina total e a usada, o tamanho do hd e o espaço livre...funciona perfeito.
Eu Gostaria de saber como posso colocar juntos com estas informações a MEMÓRIA USADA PELO PROGRAMA? tipo vou colocar um timer em um programa é quero que apareça pro usuario quanto que o programa ocupa de memória.
Tem Como?
Grato
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.