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通过ie窗口句柄获取网页接口(iwebbrowser2)

Delphi 通过api 隐藏任务栏所有托盘图标

Delphi 模糊查询和字段查询

Delphi版内存共享

Delphi xe10 传感器操作

Delphi firedac在后台线程中从mssql server检索记录的方法

Delphi 快速删除非空文件夹

Delphi 获取路径分隔符

两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock

Delphi 世界时间转换

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



打赏

取消

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

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

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

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

评论

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