monitoramento de uma máquina
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
Curtidas 0
Respostas
Edineidaniel
04/10/2006
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
GOSTEI 0
Worlock
04/10/2006
Cara muito obrigado, vou fazer os devidos testes e te reporte depois o resultado!!!!
Vlw mesmo!!!
Vlw mesmo!!!
GOSTEI 0