Verificando Memória (2 Modos)

[SaYaDiN² 1]

1º Método

 

Adicione ao Seu Form 1 Label e 1 Button, e ponha o código no OnClick do Button:

 

var

MemoryStatus: TMemoryStatus;

begin

MemoryStatus.dwLength:= sizeof(MemoryStatus);

GlobalMemoryStatus(MemoryStatus);

Label1.Caption := 'Total de memória física : ' + IntToStr(MemoryStatus.dwTotalPhys);

end;

 

Lembrando que vc Pode por o Código no OnCreat do Form...

 

2º Método

 

Declare a Função:

 

function MemoryStatus: string;

var

MS:TMemoryStatus;

FreeRes, PhysMem: string;

begin

GlobalMemoryStatus(MS);

PhysMem := FormatFloat('Memória física disponível para o Windows: #,###" KB"', MS.dwTotalPhys / 1024);

FreeRes := Format('( %d %% em uso )', [MS.dwMemoryLoad]);

Result := PhysMem + ' - ' + FreeRes;

end;

 

Adicione um Label e um Button e no OnClick do Button ponha:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:= MemoryStatus;

end;

 

Créditos

 

Método 1 ---> ѕтуℓє™

Método 2 ---> ursogb