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 showmainform := false 失效的解决办法

Delphi 无法打不开读取文件名有逗号的文件

Delphi api读写ini文件

Delphi yearof 根据指定的日期返回年

Delphi cxgrid:动态设计统计功能

Delphi 通过注册表获取系统版本和cpu型号

Delphi stream对象

Delphi版本号检测判断

Delphi共享软件防破解的实用方法

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

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

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