1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, 7 Winapi.Messages, 8 System.SysUtils, 9 System.Variants, 10 System.Classes, 11 Vcl.Graphics, 12 Vcl.Controls, 13 Vcl.Forms, 14 Vcl.Dialogs, 15 Vcl.StdCtrls, 16 codesitelogging, 17 TypInfo; 18 19 type 20 TForm1 = class(TForm) 21 Button1: TButton; 22 procedure Button1Click(Sender: TObject); 23 private 24 { Private declarations } 25 public 26 { Public declarations } 27 end; 28 29 var 30 Form1: TForm1; 31 32 implementation 33 34 {$R *.dfm} 35 36 type 37 TWindowsVersion = (wvUnknown, wvWin95, wvWin95OSR2, wvWin98, wvWin98SE, wvWinME, wvWinNT31, wvWinNT35, wvWinNT351, 38 wvWinNT4, wvWin2000, wvWinXP, wvWin2003, wvWinXP64, wvWin2003R2, wvWinVista, wvWinServer2008, wvWin7, 39 wvWinServer2008R2, wvWin8, wvWin8RT, wvWinServer2012, wvWin81, wvWin81RT, wvWinServer2012R2); 40 41 procedure TForm1.Button1Click(Sender: TObject); 42 var 43 m_WindowsVersion: TWindowsVersion; 44 m_Str: string; 45 I: Integer; 46 begin 47 for I := 0 to 24 do 48 begin 49 m_Str := GetEnumName(TypeInfo(TWindowsVersion), I); 50 CodeSite.Send(Format('TWindowsVersion成员[%d]名字为 %s：',[ I,m_Str])); 51 end; 52 end; 53 54 end.
