Saber el tamaño de RAM de tu ordenador

[ciscu]

Hola a todos!!!

Me podéis indicar alguna función para saber los megas de RAM que tengo en mi ordenador, lo que ocupa mi aplicación cuando la ejecuto y la memoria que me queda disponible ?

Agradecería de las tres peticiones almenos una resuelta, gracias anticipadas!!!

[Neftali [Germán.Estévez]]

Empezado por ciscu

Me podéis indicar alguna función para saber los megas de RAM que tengo en mi ordenador, lo que ocupa mi aplicación cuando la ejecuto y la memoria que me queda disponible ?

Bueno, yo te puedo ofrecer dos.

Código Delphi [-]
 
  // Para la memoria total en KB.
  function Physmem: Int64;
  var
    MemStat: TMemoryStatus;
  begin
    MemStat.dwLength := sizeof(MemStat);
    GlobalMemoryStatus(MemStat);
    result := (memstat.dwTotalPhys div 1024);
  end;
 
  // Para la memoria libre en KB.
  function PhysmemFree: Int64;
  var
    MemStat: TMemoryStatus;
  begin
    MemStat.dwLength := sizeof(MemStat);
    GlobalMemoryStatus(MemStat);
    result := (memstat.dwAvailPhys div 1024);
  end;