Delphi XE7中获得OS平台和版本

本文整理自网络，侵删。

 
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 rest客户端程序

Delphi textfile utf8编码读写

Delphi datetimepicker控件日期格式

Delphi 为数字补充前缀0

Delphi html转义

Delphi 如何从html格式的字符串中提取纯文本？

Delphi 提高unigui开发效率的两个方法

Delphi 如何将颜色值转换为html格式？

orangeui作者开源作品

Delphi 如何将颜色值转换为灰度颜色值？

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

转载请注明出处：木庄网络博客 » Delphi XE7中获得OS平台和版本