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!