本文整理自网络,侵删。
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与用windows 7下的用户账户控制(uac)机制
Delphi fdconnection1.gettablenames 查看所有表包含用户表和系统表
Delphi 学习 sql 语句 - select(8): 分组条件
更多相关阅读请进入《Delphi》频道 >>