Cita:
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
[-]
function Physmem: Int64;
var
MemStat: TMemoryStatus;
begin
MemStat.dwLength := sizeof(MemStat);
GlobalMemoryStatus(MemStat);
result := (memstat.dwTotalPhys div 1024);
end;
function PhysmemFree: Int64;
var
MemStat: TMemoryStatus;
begin
MemStat.dwLength := sizeof(MemStat);
GlobalMemoryStatus(MemStat);
result := (memstat.dwAvailPhys div 1024);
end;