Delphi XE7中获得OS平台和版本


本文整理自网络,侵删。

 

System.SysUtils单元的TOSVersion和使用,你可以得到平台和版本。

procedure TForm1.FormCreate(Sender: TObject);
var
  OSVersion: TOSVersion;
begin
  Memo1.Lines.Add(Format('Major=%d', [OSVersion.Major]));
  Memo1.Lines.Add(Format('Minor=%d', [OSVersion.Minor]));
  Memo1.Lines.Add(Format('Build=%d', [OSVersion.Build]));
  Memo1.Lines.Add(Format('Architecture=%d', [Ord(OSVersion.Architecture)]));
  Memo1.Lines.Add(Format('Name=%s', [OSVersion.Name]));
  Memo1.Lines.Add(Format('Platform=%d', [Ord(OSVersion.Platform)]));

相关阅读 >>

Delphi通过进程id获取主窗句柄

强大的Delphi rtti--兼谈需要了解多种开发语言

Delphi listview基本用法大全

Delphi二值图像膨胀算法

Delphi 获取所有磁盘分区另类方法

Delphi格式化函数format、formatdatetime和formatfloat

Delphi链接自己的主页和邮件

Delphi 检查声卡是否安装

Delphi 简单的 "双缓冲" 绘图的例子

Delphi webbrowser载入自定义html内容并显示

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



打赏

取消

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

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

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

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

评论

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