D是采用回调的方式实现取App信息的。
1.Uses FMX.PhoneDialer;
var
Appinfo : IFMXApplicationService ;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationService, IInterface(Appinfo)) then
begin
ShowMessage( Appinfo.GetDefaultTitle ); //app的名称
end;