如何获取应用程序ID（包+模块名）delphi XE5/XE6/XE7

Question

有没有办法在delphi XE7中为Android和iOS在运行时获取应用程序ID？

对于 android，您可以在以下位置查看应用程序 ID： 项目选项 -> 版本信息（目标 Android） -> 包 对于 iOS： 项目选项 -> 版本信息（目标 iOS） -> CFBundleName

提前致谢！

Answer 1

读取Android包名：

uses
  Androidapi.Helpers;

function PackageName: string;
begin
  Result := JStringToString(SharedActivityContext.getPackageName);
end;

读取 iOS 包名称：

uses
  Macapi.CoreFoundation, iOSApi.Foundation;

function PackageName: string;
begin
  Result := TNSString.Wrap(CFBundleGetValueForInfoDictionaryKey(CFBundleGetMainBundle, kCFBundleIdentifierKey)).UTF8String;
end;