Fórum monitoramento de uma máquina #330654
04/10/2006
0
OLá a todos,
já procurei no forum algum post com esse asssunto, mais não encontrei nada sobre esse assunto.
Gostaria de saber se tem algum componente, ou algum fonto que eu possa fazer um monitoramento de uma maquina.
Saber quanto ele está levando da memória, a ¬ do processado, etc.
Gaotaria muito da ajuda de vcs!!!!
Vlw Galera
já procurei no forum algum post com esse asssunto, mais não encontrei nada sobre esse assunto.
Gostaria de saber se tem algum componente, ou algum fonto que eu possa fazer um monitoramento de uma maquina.
Saber quanto ele está levando da memória, a ¬ do processado, etc.
Gaotaria muito da ajuda de vcs!!!!
Vlw Galera
Worlock
Curtir tópico
+ 0
Responder
Posts
04/10/2006
Edineidaniel
Worlok,
Seguinte vc pode pegar várias informações contidas no Windows...
Bom com vc quer saber dados referentes a memória, segue abaixo uma função que pode te ajuda...:
procedure TForm1.BitBtn1Click(Sender: TObejct);
const cBytesPorMb=1024*1024;
var
M: TMemoryStatus;
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íbel: ¬f MB´, [M.dwAvailPageFile/ cBytesPorMB]));
Add(Format(´Total vitual: ¬fMB´, [M.dwTotalVirtual/cBytesPorMB]));
Add(Format(´Virtual disponível: ¬fMB´, [M.dwAvailVirtual/cBytesPorMB]));
end;
end
OBS.: Adicione um MEMO e um BUTTON no form...
Att,
Edinei
Seguinte vc pode pegar várias informações contidas no Windows...
Bom com vc quer saber dados referentes a memória, segue abaixo uma função que pode te ajuda...:
procedure TForm1.BitBtn1Click(Sender: TObejct);
const cBytesPorMb=1024*1024;
var
M: TMemoryStatus;
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íbel: ¬f MB´, [M.dwAvailPageFile/ cBytesPorMB]));
Add(Format(´Total vitual: ¬fMB´, [M.dwTotalVirtual/cBytesPorMB]));
Add(Format(´Virtual disponível: ¬fMB´, [M.dwAvailVirtual/cBytesPorMB]));
end;
end
OBS.: Adicione um MEMO e um BUTTON no form...
Att,
Edinei
Responder
Gostei + 0
05/10/2006
Worlock
Cara muito obrigado, vou fazer os devidos testes e te reporte depois o resultado!!!!
Vlw mesmo!!!
Vlw mesmo!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)