Quick Tips: Medindo Consumo de Memória do PC
Nesta quick tip veremos como verificar o percentual consumido de memória no PC.
Para vermos o percentual de memória consumido pelo PC, basta usarmos o método GlobalMemoryStatus, passand uma variável do tipo TMemoryStatus como parâmetro.
Este método irá alimentar este parâmetro com os valores de consumo de memória do PC.
Para este exemplo, adicione um Memo e um Botão no formulário, como na figura abaixo:
No evento Click do botão, adicione o seguinte código:
procedure TForm1.Button1Click(Sender: TObject);
var Mem:TMemoryStatus;
begin
//Recupera informações sobre consumo de memória
GlobalMemoryStatus(Mem);
Memo1.Lines.Clear;
Memo1.Lines.Add('Percentual Consumido : ' + IntToStr(mem.dwMemoryLoad));
Memo1.Lines.Add('Percentual Livre : ' + IntToStr(100 - mem.dwMemoryLoad));
end;
O resultado será o seguinte:
É isso aí pessoal, vou ficando por aqui, espero que tenham gostado.
Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.
Ricardo Coelho
