Delphi dicas

Memoria do computador

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;

por : Claudinho Wylde