Delphi dicas

Monitorando a memória de seu pc

Procedure TForm1.Timer1Timer(Sender: TObject);

var MemoryStatus: TMemoryStatus;

begin

        MemoryStatus.dwLength:= sizeof(MemoryStatus);

        GlobalMemoryStatus(MemoryStatus);

        Label20.Caption := FloatToStr((MemoryStatus.dwTotalPhys/1024)/1024) + ' MB';

        Label21.Caption := FloatToStr(((MemoryStatus.dwTotalPhys - MemoryStatus.dwAvailPhys)/1024)/1024) + ' MB';

        Label22.Caption := FloatToStr((MemoryStatus.dwAvailPhys/1024)/1024) + ' MB';



        Label26.Caption := FloatToStr((MemoryStatus.dwTotalPageFile/1024)/1024) + ' MB';

        Label27.Caption := FloatToStr(((MemoryStatus.dwTotalPageFile - MemoryStatus.dwAvailPageFile)/1024)/1024) + ' MB';

        Label28.Caption := FloatToStr((MemoryStatus.dwAvailPageFile/1024)/1024) + ' MB';



        Label32.Caption := FloatToStr((MemoryStatus.dwAvailVirtual/1024)/1024) + ' MB';

        Label33.Caption := FloatToStr((MemoryStatus.dwTotalVirtual/1024)/1024) + ' MB';

        Label34.Caption := FloatToStr(((MemoryStatus.dwTotalVirtual + MemoryStatus.dwAvailVirtual)/1024)/1024) + ' MB';



        Label37.Caption := FloatToStr(100 - MemoryStatus.dwMemoryLoad) + '%';

        Label38.Caption := FloatToStr(MemoryStatus.dwMemoryLoad) + '%';



        {typedef struct _MEMORYSTATUS

        DWORD dwLength; // sizeof(MEMORYSTATUS)

        DWORD dwMemoryLoad; // percentual de memória em uso

        DWORD dwTotalPhys; // bytes de memória física

        DWORD dwAvailPhys; // bytes livres de memória física

        DWORD dwTotalPageFile; // bytes de paginação de arquivo

        DWORD dwAvailPageFile; // bytes livres de paginação de arquivo

        DWORD dwTotalVirtual; // bytes em uso de espaço de endereço

        DWORD dwAvailVirtual; // bytes livres}

end;