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