Buscar por:

Memoria do computador

Código

ARQUIVO PARA CRIAR UMA BUSCA SOBRE DADOS DA MEMORIA DO COMPUTADOR

// Crie alguns LABELs de acordo com o desejado.

{Aqui estamos declarando a variavel responsavel por trabalhar com a busca de dado do Hardware do seu computador}

var

   MemStatus: TMemoryStatus;

begin

     MemStatus.dwLength := SizeOf(MemStatus);

     GlobalMemoryStatus(MemStatus);

{L1 representa a nomenclatura da label que irá receber o dado e as demais tambem L2, L3 ...}

     L1.Caption := L1.Caption + '  ' + FormatFloat('#," Kbs"', MemStatus.dwTotalPhys DIV 

1024);

     L2.Caption := L2.Caption + '  ' + FormatFloat('#," Kbs"', MemStatus.dwAvailPhys DIV 

1024);

     L3.Caption := L3.Caption + '  ' + FormatFloat('#," Kbs"', MemStatus.dwTotalVirtual DIV 

1024);

     L4.Caption := L4.Caption + '  ' + FormatFloat('#," Kbs"', MemStatus.dwAvailVirtual DIV 

1024);

     L5.Caption := L5.Caption + '  ' + Format('%d%% utilizado atualmente.', 

[MemStatus.dwMemoryLoad]);

end;