本文整理自网络,侵删。
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通过ie窗口句柄获取网页接口(iwebbrowser2)
Delphi firedac在后台线程中从mssql server检索记录的方法
两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock
更多相关阅读请进入《Delphi》频道 >>