Welches Betriebssystem - wie kann ich rausfinden welches Win

[fwsp]

Delphi-Quellcode:

function GetWinVersion: String;
begin
  Result := 'Unbekannte Version';
  case Win32Platform of
    1:
    begin
      if Win32MajorVersion = 4 then
        case Win32MajorVersion of
          0:  Result := 'Windows 95';
          10: Result := 'Windows 98';
          90: Result := 'Windows Me';
        end;
    end;

    2:
    begin
      case Win32MajorVersion of
        3:
        begin
          if Win32MinorVersion = 51 then
            Result := 'Windows NT 3.51';
        end;

        4:
        begin
          if Win32MinorVersion = 0 then
            Result :='Windows NT 4';
        end;

        5:
        begin
          case Win32MinorVersion of
            0: Result := 'Windows 2000';
            1: Result := 'Windows XP';
            2: Result := 'Windows .NET Server';
          end;
        end;
      end;
    end;
  end;

  if Win32CSDVersion <> '' then
    Result := Result + ' ' + Win32CSDVersion;
end;

und ich glaube diesen code habe ich aus der dp.