[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);

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

标签：

原文地址：http://www.cnblogs.com/leamanXZ/p/5177373.html