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 创建应用程序的快捷方式

Delphi 在datasnap中使用firedac

Delphi遍历指定目录下指定类型文件的函数

Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名

Delphi 取得桌面文件夹的路径和取得我的文档的路径

Delphi windows 编程[12] - 菜单与菜单资源(1-3)

Delphi获取我的文档路径

Delphi unigui程序部署到服务器

Delphi把一个字符串中的某个子串，用另一个子串去替换

你的软件源代码安全吗？

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

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