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

Question

寻找 Delphi 代码来检查我的 FMX 应用程序中的总内存和可用内存 (RAM)。

有平台无关的方式吗？找不到任何东西。

但这真是太好了，事实上我只需要它用于 Android。

Answer 1

这仅适用于 Android，并且运行良好，已在多个设备和 Delphi 10.3.3 上进行了测试。

{$IFDEF ANDROID}
uses
  Androidapi.Helpers,
  Androidapi.JNIBridge,
  Androidapi.JNI.GraphicsContentViewText,
  Androidapi.JNI.App;

var
  MemoryInfo: JActivityManager_MemoryInfo;
begin
  MemoryInfo:= TJActivityManager_MemoryInfo.JavaClass.init;
  TJActivityManager.Wrap((TAndroidHelper.Context.getSystemService(
    TJContext.JavaClass.ACTIVITY_SERVICE) as ILocalObject).GetObjectID)
    .getMemoryInfo(MemoryInfo);
  TotalMb:= MemoryInfo.totalMem shr 20;
  AvailMb:= MemoryInfo.availMem shr 20;
end;
{$ENDIF}

独立于平台的解决方案仍然不错......