[FireMonkey]获取设备（平台）类型

uses System.Devices;

      case TDeviceInfo.ThisDevice.DeviceClass of

                   TDeviceInfo.TDeviceClass.Desktop:

                                              ...
                   TDeviceInfo.TDeviceClass.Phone:

                                               ...
                   TDeviceInfo.TDeviceClass.Tablet:

                                               ...

       end;

 

 

    TDeviceClass = (Unknown, Desktop, Phone, MediaPlayer, Tablet, Automotive, Industrial, Embedded, Watch, Glasses, Elf, Dwarf, Wizard);