的Windows版本信息

Question

如何用Delphi XE2顯示Windows版本的信息？ 我已經在「使用」添加「System.SysUtils」，然後寫了下面的代碼：

Edit1.Text :=TOSVersion.ToString; 
Edit2.Text :=TOSVersion.Name; 

上面的代碼編譯成功。但下面的代碼不能編譯。

Edit3.Text :=TOSVersion.Build; 
Edit4.Text :=TOSVersion.Major; 
Edit5.Text :=TOSVersion.Minor; 
Edit6.Text :=TOSVersion.ServicePackMajor; 
Edit7.Text :=TOSVersion.ServicePackMinor; 
Edit8.Text :=TOSVersion.TArchitecture; 
Edit9.Text :=TOSVersion.Platform; 

我的要求是隻顯示Windows本機信息。我不需要任何格式。

Answer 1

所有未編譯場都是整數/枚舉，但你試圖將它們分配爲，是基於字符串的屬性。您需要將它們格式化爲字符串，例如：

const 
    ArchitectureStr: array[TOSVersion.TArchitecture] of string = ('Intel X86', 'Intel X64'); 
    PlatformStr: array[TOSVersion.TPlatform] of string = ('Windows', 'MacOS'); 

... 

Edit3.Text := IntToStr(TOSVersion.Build); 
Edit4.Text := IntToStr(TOSVersion.Major); 
Edit5.Text := IntToStr(TOSVersion.Minor); 
Edit6.Text := IntToStr(TOSVersion.ServicePackMajor); 
Edit7.Text := IntToStr(TOSVersion.ServicePackMinor); 
Edit8.Text := ArchitectureStr[TOSVersion.Architecture]; 
Edit9.Text := PlatformStr[TOSVersion.Platform];