获得Windows的版本信息。[3]

server ' + sversion
                  else if readstring('producttype') = 'lanmannt' then
                    sproduct := 'microsoft windows nt advanced server ' + sversion;
                end;
              finally
                free;
              end;
          5:
            case dwminorversion of
              0:  { windows 2000 }
                case wproducttype of
                  ver_nt_workstation:
                    sproduct := 'microsoft windows 2000 professional';
                  ver_nt_server:
                    if wsuitemask and ver_suite_datacenter <> 0 then
                      sproduct := 'microsoft windows 2000 datacenter server'
                    else if wsuitemask and ver_suite_enterprise <> 0 then
                      sproduct := 'microsoft windows 2000 advanced server'
                    else
                      sproduct := 'microsoft windows 2000 server';
                end;
              1: { windows xp }
                if wsuitemask and ver_suite_personal <> 0 then
                  sproduct := 'microsoft windows home edition'
                else
                  sproduct := 'microsoft windows professional';
              2: { windows server 2003 }
                if wsuitemask and ver_suite_datacenter <> 0 then
                  sproduct := 'microsoft windows server 2003 datacenter edition'
                else if wsuitemask and ver_suite_enterprise <> 0 then
                  sproduct := 'microsoft windows server 2003 enterprise edition'
                else if wsuitemask and ver_suite_blade <> 0 then
                  sproduct := 'microsoft windows server 2003 web edition'
                else
                  sproduct := 'microsoft windows server 2003 standard edition';
            end;
        end;
      end;
      ver_platform_win32_ce: { windows ce }
        sproduct := sproduct + ' ce';
    end