Как получить идентификатор приложения (package + modulename) delphi XE5/XE6/XE7

Question

Есть ли способ получить идентификатор приложения во время выполнения для Android и iOS в delphi XE7?

Для Android вы можете увидеть идентификатор приложения в: опции проекта -> Информация о версии (Target Android) -> пакет и прошивка: параметров проекта -> Информация о версии (Target 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;