Buscar por:

Monitorando a memória de seu pc

Código

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;