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中用idhttp获取json数据乱码问题

Delphi的整数性能测试

Delphi时间相减函数

Delphi xe6 switch元件�繁�w���}

Delphi dataset和json互转函数

Delphi 从给定字符串中截取n个字节的字符（解决汉字截取乱码问题）

Delphi为你的窗体有效地提供剪贴板的相关操作

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)

Delphi 取当前目录下所有文件夹名和文件名

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

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