VERSION DE WINDOWS

function WindowsVersion: String;
begin
  case Win32MajorVersion of
    3:  Result:='Windows NT 3.51';
    4:  case Win32MinorVersion of
          0:  case Win32Platform of
                1:  begin
                      case Win32CSDVersion[1] of
                        'A':  Result:='Windows 95 SP 1';
                        'B':  Result:='Windows 95 SP 2';
                      else
                        Result:='Inconnue';
                      end;
                    end;
                2:  Result:='Windows NT 4.0'
              else
                Result:='Inconnue';
              end;
          10: begin
                case Win32CSDVersion[1] of
                  'A':  Result:='Windows 98 SP 1';
                  'B':  Result:='Windows 98 SP 2';
                else
                  Result:='Inconnue';
                end;
              end;
          90: Result:='Windows ME';
        else
          Result:='Inconnue';
        end;
    5:  case Win32MinorVersion of
          0:  Result:='Windows 2000';
          1:  Result:='Windows XP'
        else
          Result:='Inconnue';
        end;
  else
    Result:='Inconnue';
  end;
end;