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

nbsp;            sproduct := 'microsoft windows 95 osr2';
                  sversion := sversion + szcsdversion[1];
                end
                else
                  sproduct := 'microsoft windows 95';
              10:
                if szcsdversion[1] = 'a' then
                begin
                  sproduct := 'microsoft windows 98 se';
                  sversion := sversion + szcsdversion[1];
                end
                else
                  sproduct := 'microsoft windows  98';
              90:
                sproduct := 'microsoft windows millennium edition';
            end;
        end;
      ver_platform_win32_nt:
      begin
        sservicepack := szcsdversion;
        case dwmajorversion of
          0..4:
            if bex then
            begin
              case wproducttype of
                ver_nt_workstation:
                  sproduct := 'microsoft windows nt workstation 4.0';
                ver_nt_server:
                  if wsuitemask and ver_suite_enterprise <> 0 then
                    sproduct := 'microsoft windows nt advanced server 4.0'
                  else
                    sproduct := 'microsoft windows nt server 4.0';
              end;
            end
            else  { nt351 and nt4.0 sp5 earliest}
              with tregistry.create do
              try
                rootkey := hkey_local_machine;
                if openkey('system\currentcontrolset\control\productoptions', false) then
                begin
                  if readstring('producttype') = 'winnt' then
                    sproduct := 'microsoft windows nt workstation ' + sversion
                  else if readstring('producttype') = 'lanmannt' then
                    sproduct := 'microsoft windows nt