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);
原文：http://www.cnblogs.com/leamanXZ/p/5177373.html