ProductId wird unter Vista nicht mehr gelesen

[xtrnrfe]

Hallo miteinander!

Weiss jemand warum dieser Code:

Delphi-Quellcode:

Reg:=TRegistry.Create; 
  try 
    Reg.RootKey := HKEY_LOCAL_MACHINE; 
    Reg.OpenKeyReadOnly('Software\Microsoft\Windows NT\CurrentVersion'); 
    tmp:=Reg.ReadString('ProductId'); 
  finally 
    Reg.Free; 
  end;

... unter Vista eine leere Productid ausgibt?
Ich hab keinen Plan warum ... hat das was mit Rechten zu tun? Bin als Admin eingeloggt.
Gints da einen Workaround?

Vielen Dank für Lösungen

[Luckie]

Stimmt der Pfad?
Was gibt OpenKeyReadOnly zurück?

[xtrnrfe]

Hallo!

Pfad ist korrekt.
Ein leerer String wird zurückgegeben. Length(tmp) ist 0.

[xtrnrfe]

Oh Mann!

Beim Kollegen neben mir (auch Vista) funzt der Code.

Weiss noch jemand was?

[Bernhard Geyer]

Vista, HKEY_LOCAL_MACHINE? ist UAC aktiv und deine Anwendung wird virtualisiert ausgeführt weil sie kein passendes Vista-Manifest besitzt?

[xtrnrfe]

Hab die Lösung gefunden:

Reg:=TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY);

Hab ein 64bit-Vista!

Danke trotzdem!

[Rakshasa]

Ich verweise mal auf die Code-Library, da wurde nämlich das Problem mit SysWow64 ausführlich aufgearbeitet.