TRegistry unter 12.3

[cltom]

Hallo,

habe seit langer Zeit eine kleine Funktion in Verwendung, um einen Registry-Eintrag zu prüfen. Es scheint nun, dass die (unter 12.3??) nicht mehr funktioniert oder sie funktioniert schon länger nicht und mir ist es nicht aufgefallen.

Delphi-Quellcode:

const
  VKey = 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\';
  VKeyStr = 'RegisteredOrganization';
var
  Reg : TRegistry;
  KeyString : string;
begin
  Reg := TRegistry.Create(KEY_READ);
  Try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKeyReadOnly(VKey);
    KeyString := Reg.ReadString(VKeyStr);
    Reg.CloseKey;
  Finally
    Reg.Free;
  End;
end;

Den Key gibt es natürlich, bloß beim Einlesen des Strings kommt ein leerer String zurück. Ich komm nicht dahinter, was da schief läuft, hoffe, ich sitze da keiner Trivialität auf.

Danke!

[mkinzler]

Hat der Benutzer das Recht auf HKLM?

[cltom]

Zitat von mkinzler:

Hat der Benutzer das Recht auf HKLM?

nun, ich selber hab Admin-Rechte und kann in der Registry den Eintrag sehen und auch bearbeiten. Reicht das? Aber ja, guter Hinweis, welche Rechte die User der App haben, ist eine andere/offene Frage.

[Uwe Raabe]

Du solltest unbedingt den Rückgabewert von OpenKeyReadOnly prüfen. Das würde schon einen Hinweis auf die Ursache geben.

Als weitere Ursache kommt noch WOW64 in Frage. Füge doch mal das KEY_WOW64_64KEY oder KEY_WOW64_32KEY zu dem KEY_READ hinzu und schau ob das einen Unterschied macht.

[cltom]

Zitat von Uwe Raabe:

Du solltest unbedingt den Rückgabewert von OpenKeyReadOnly prüfen. Das würde schon einen Hinweis auf die Ursache geben.

Als weitere Ursache kommt noch WOW64 in Frage. Füge doch mal das KEY_WOW64_64KEY oder KEY_WOW64_32KEY zu dem KEY_READ hinzu und schau ob das einen Unterschied macht.

Gute Hinweise, danke!! KEY_WOW64_64KEY hat funktioniert!

Das sieht nun also so aus und klappt:

Delphi-Quellcode:

var
  Reg : TRegistry;
  KeyString : string;
begin
  Reg := TRegistry.Create(KEY_WOW64_64KEY);
  Try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKeyReadOnly(VKey) then
      KeyString := Reg.ReadString(VKeyStr);
    Reg.CloseKey;
  Finally
    Reg.Free;
  End;

Danke Euch!!