本文整理自网络,侵删。
Reading Android package name:
uses Androidapi.Helpers;
function PackageName: string;begin Result := JStringToString(SharedActivityContext.getPackageName);end;
Reading iOS bundle name:
uses Macapi.CoreFoundation, iOSApi.Foundation;
function PackageName: string;begin Result := TNSString.Wrap(CFBundleGetValueForInfoDictionaryKey(CFBundleGetMainBundle, kCFBundleIdentifierKey)).UTF8String;end;
相关阅读 >>
Delphi 设置webbrowser 代理服务器 与 useragent
Delphi中使用内联变量(inline variables) 的5个理由
Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具
Delphi 测试字符串读取类: tstringreader
更多相关阅读请进入《Delphi》频道 >>