Probleme aus HKEY_LOCAL_MACHINE Auszulesen

[DeddyH]

Versuch mal
regist := TRegistry.Create(KEY_READ); [edit] Achja, ein CloseKey fehlt da auch noch. Mal im Ganzen:

Delphi-Quellcode:

function TRegistryEditor.ReadStringLocalMachine(keyname: string): string;
var 
  regist: TRegistry;
begin
  regist := TRegistry.Create(KEY_READ);
  Try
    regist.RootKey := HKEY_LOCAL_MACHINE;
    if regist.OpenKey('SOFTWARE\XYZ\Info', False) then
      try
        Result := regist.ReadString(keyname);
      finally
        regist.CloseKey;
      end
  Finally
    regist.free;
  end;
end;