本文整理自网络,侵删。
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格式化函数format、formatdatetime和formatfloat
Delphi webbrowser载入自定义html内容并显示
更多相关阅读请进入《Delphi》频道 >>