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 type20   TForm1 = class(TForm)21     Button1: TButton;22     procedure Button1Click(Sender: TObject);23   private24     { Private declarations }25   public26     { Public declarations }27   end;28 29 var30   Form1: TForm1;31 32 implementation33 34 {$R *.dfm}35 36 type37   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 var43   m_WindowsVersion: TWindowsVersion;44   m_Str:            string;45   I:                Integer;46 begin47   for I := 0 to 24 do48   begin49     m_Str := GetEnumName(TypeInfo(TWindowsVersion), I);50     CodeSite.Send(Format(‘TWindowsVersion成员[%d]名字为  %s：‘,[ I,m_Str]));51   end;52 end;53 54 end.