Delphi 判断正在运行的设备是iPhone还是iPad


本文整理自网络,侵删。

 
获取正在运行的设备是iPhone还是iPad
在FMX.Helpers.iOS单元中使用IsPhone函数和IsPad。

uses
  FMX.Helpers.iOS;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsPhone then
    ShowMessage('iPhone');
  if IsPad then
    ShowMessage('iPad');
end;

获取模型(模型名称),名称和版本
您可以使用TUIDevice获取设备信息。

uses
  iOSapi.UIKit;

procedure TForm1.Button1Click(Sender: TObject);
var
  Model, Name, LocalizedModel, SystemName, SystemVersion: string;
begin
  //设备模型
  Model := UTF8ToString(TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).model.UTF8String);
  Memo1.Lines.Add('Model=' + Model);

  // 设备名称
  Name := UTF8ToString(TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).name.UTF8String);
  Memo1.Lines.Add('Name=' + Name);

  // 设备的本地版本
  LocalizedModel := UTF8ToString(TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).localizedModel.UTF8String);
  Memo1.Lines.Add('LocalizedModel=' + LocalizedModel);

  // OS名
  SystemName := UTF8ToString(TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).systemName.UTF8String);
  Memo1.Lines.Add('SystemName=' + SystemName);

  // OS名
  SystemVersion := UTF8ToString(TUIDevice.Wrap(TUIDevice.OCClass.currentDevice).systemVersion.UTF8String);
  Memo1.Lines.Add('SystemVersion=' + SystemVersion);
end;
可以获取的模型如下。

iPhone手机
iPod触控
的iPad
iPhone模拟器

相关阅读 >>

Delphi 分解时间 �cdecodedate、decodetime … decodedatetime …

Delphi中的字符串比较(comparestr)

Delphi 得到不同平台的录音文件保存路径

Delphi 关闭指定窗口标题的窗口

Delphi 熊猫烧香核心源码

Delphi 利用for循环自我复制到全盘用timer监控

Delphi tform类有关属性简介

winapi 字符及字符串函数(14): chartooem、oemtochar

Delphi for 循环输出 a-z

Delphi 解决android 9上无法使用http协议

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...