Windows Version

[codenoob]

Hi Delphianer

Ich versuche die Windows Version aus der Registry auszulesen.

Delphi-Quellcode:

function GetOsName: string;
var
  VerInfo: TOsversionInfo;
  PlatformId, VersionNumber: string;
  Reg: TRegistry;
begin
  VerInfo.dwOSVersionInfoSize := SizeOf(VerInfo);
  GetVersionEx(VerInfo);

  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;



  Reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
  PlatformId    := Reg.ReadString('ProductName');
  VersionNumber := Reg.ReadString('CurrentVersion');

  Reg.Free;
  Result := PlatformId + ' (version ' + VersionNumber + ')';
end;

Ich habe hier Windows 7 Ultimate und so steht es auch bei mir in der Registry drinn.
Aber sobald ich den Code ausführe bekomme ich als Wert "Windows XP".

Kennt jemand das Problem und kann mich da auf den Richtigen Weg führen.

Grüsse Tom