获取Windows的版本(delphi编程)

procedure TForm1.Button1Click(Sender: TObject);
var
  OSVI:OSVERSIONINFO;
  s:string;
  is98orlater:boolean;
begin
  OSVI.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);         //设置版本信息结构的大小
  GetVersionEx(OSVI);                                                                    //获取版本信息
  is98orlater:=                                                                                  //判断是否98或以后版本
    (osvi.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and
    ((osvi.dwMajorVersion>4) or
    ((osvi.dwMajorVersion=4) and (osvi.dwMinorVersion>0)));

  //下面开始显示信息
  case OSVI.dwPlatformId of            //根据OSVI.dwPlatformId的数值的不同显示具体的平台描述
    VER_PLATFORM_WIN32s:      // Windows 3.1平台
       s:='Windows 3.1';
    VER_PLATFORM_WIN32_WINDOWS:      // Windows 95/98平台
       if(is98orlater) then          //98
         s:='Windows 98'
       else      
         s:='Windows 95';          //95
    VER_PLATFORM_WIN32_NT:                   // Windows NT平台
       s:='Windows NT';
  end;

  Edit1.Text:=s;
  Edit2.Text:=IntToStr(OSVI.dwMajorVersion);
  Edit3.Text:=IntToStr(OSVI.dwMinorVersion);
  case OSVI.dwPlatformId of                                            //根据平台的不同具体处理OSVI.dwBuildNumber信息
    VER_PLATFORM_WIN32_WINDOWS:                 // Windows 95/98平台则取OSVI.dwBuildNumber的低位字
       Edit4.Text:=IntToStr(LOWORD(OSVI.dwBuildNumber));
    VER_PLATFORM_WIN32_NT:                               // Windows NT平台则取所有位的值
       Edit4.Text:=IntToStr(OSVI.dwBuildNumber);
    else
       Edit4.Text:='';                                                         // Windows 3.1平台此值位空
  end;
  Edit5.Text:=OSVI.szCSDVersion;
end;