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)]));

推荐分享