All pastes #281199 Raw Edit

Mine

public text v1 · immutable
#281199 ·published 2006-12-16 16:18 UTC
rendered paste body
// Get Total avalible memory in Mb
Function TGMemory.GetAvalibleMem: String;
Var
  MemoryStatus      : TMemoryStatus;
Begin
  MemoryStatus.dwLength := SizeOf(MemoryStatus);
  GlobalMemoryStatus(MemoryStatus);
  Result := IntToStr(MemoryStatus.dwAvailPhys DIV 1048576) + ' Mb';
End;