在Android上的Delphi中获取总内存和可用内存

uses
  Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Os;

function GetTotalMemory: Int64;
var
  memoryInfo: JMemoryInfo;
begin
  memoryInfo := TJMemoryInfo.Create;
  try
    TJActivityManager.JavaClass.getMyMemoryState(memoryInfo);
    Result := memoryInfo.totalMem;
  finally
    memoryInfo.Free;
  end;
end;

function GetAvailableMemory: Int64;
var
  memoryInfo: JMemoryInfo;
begin
  memoryInfo := TJMemoryInfo.Create;
  try
    TJActivityManager.JavaClass.getMyMemoryState(memoryInfo);
    Result := memoryInfo.availMem;
  finally
    memoryInfo.Free;
  end;
end;