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

[Dalai]

64 Bit Windows und 32 Bit Delphi Kompilat? Dann schaut dein Programm im falschen Pfad nach, Stichwort WOW64 (es gibt in diesem Zusammenhang für die Registry einen speziellen Terminus, der mir gerade nicht einfällt). Hat dein Programm ein Manifest? Wenn nicht, wird dir das System unter Umständen ein anderes Windows vorgaukeln. Oder führst du deine Software im Kompatibitätsmodus aus?

Davon abgesehen öffnest du mit dem Code den Registry-Schlüssel schreibend, was ohne Adminrechte fehlschlagen wird. Entweder du nutzt TRegistry.OpenKeyReadOnly oder setzt das Flag KEY_READ beim Erzeugen der Instanz in TRegistry.Create.

Unabhängig davon gibt es genügend zuverlässige Funktionen zum Ermitteln der Windows-Version, die ohne Zugriff auf die Registry auskommen. Auch wenn man dort immer das Manifest beim Erscheinen neuer Windows-Versionen pflegen muss (aber oft ändert man sowieso alle paar Jahre was an der eigenen Software, so dass das nicht ins Gewicht fällt).

MfG Dalai

[codenoob]

Hi Dalai

Also du meinst das ganze wird umgeleitet und der sucht das aus dem HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\ Windows NT\CurrentVersion raus?

Das Compilat inst 32 Bit und mein Windows 64.

Hab mal wo was gelesen das es eirgendwie auch über die Kernel32 gehen soll?

[386sx]

http://www.delphipraxis.net/186147-o...mitteln-3.html

Ab #27 wird's interessanter

[Luckie]

Zitat von Dalai:

Davon abgesehen öffnest du mit dem Code den Registry-Schlüssel schreibend, was ohne Adminrechte fehlschlagen wird.

Und damit wird das ganze im XP Kompatibilitätsmodus ausgeführt und du bekommst "Windows XP" zurück. Stimmt also wahrscheinlich alles.

[codenoob]

Wie mach ich den das ganze mit nem Manifest?

Das ist total Neuland für mich.

Hab das was mit nem Manifest versucht aber das funktioniert auch nicht.

Hab mal meinen Code an nen Link gehängt.


http://home.datacomm.ch/masterx/Form mit Manifest.rar

[Luckie]

Warum öffnest du den Schlüssel nicht einfach READ_ONLY?

[codenoob]

@Luckye

Du meinst
Reg.Open('\SOFTWARE\Microsoft\Windows\CurrentVersion', false); in

Reg.OpenKeyREADONLY('\SOFTWARE\Microsoft\Windows\CurrentVersion'); das verändert nichts bekomme als Wert Windows XP zurück.