How To Find Out Total And Available Memory

Get the total and available memory in your system. (Total free memory space in your system)

 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  memory:TMemoryStatus; 
begin 
  memory.dwLength:=sizeof(memory); 
  GlobalMemoryStatus(memory); 
  ShowMessage('Total RAM / total memory: '+inttostr(memory.dwTotalPhys)+' Bytes'); 
  ShowMessage('Freie RAM / available memory: '+inttostr(memory.dwavailPhys)+' Bytes'); 
end;