Was für ein Betriebssystem ist installiert?

[skyware]

Hallo zusammen,

ich möchte gerne auslesen ob es sich beim installierten Betriebssystem um
Windows XP oder Windows NT 4 handelt.
Bisher habe ich leider nur diese Funktion gefunden, aber da kann ich ja
nicht eindeutig bestimmen obs nun XP oder NT 4 ist :evil:

Hat da per Zufall jemand eine Lösung? :thumb:

Delphi-Quellcode:

function GetOperatingSystem: oOperatingSytemType;
var
  xOS : TOSVersionInfo;
begin
  Result := WinUnKnown;
  try
    xOS.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
    GetVersionEx(xOS);

    case xOS.dwPlatformId of
      VER_PLATFORM_WIN32s        : Result := Win3x;
      VER_PLATFORM_WIN32_WINDOWS : Result := Win9x;
      VER_PLATFORM_WIN32_NT        : result := WinNT;
    end;
  except
  end;
end;

[MathiasSimmack]

Suchfunktion: Windows Version. Punkt. Sorry, aber mehr gibt´s wirklich nicht zu sagen.

[Matze]

Vielleicht hilft dir das hier weiter.

Nachtrag: Ok, Codelib ist natürlich besser ;)

[skyware]

Hallo zusammen,

danke für die prompte Hilfe!
Mit Matzes Hinweis hab ichs hinbekommen, danke :cheers: