Kann Registry-Werte nicht auslesen!

[Mattin]

Hallo,

versuchs mal so... vielleicht klappt das ja.

Delphi-Quellcode:

begin
    regist := TRegistry.Create(KEY_READ); 
    try
      regist.RootKey := HKEY_CURRENT_USER; 
      if regist.OpenKeyReadOnly('Software\meinprog') then
      begin  
        if i = 1 then result := regist.ReadString('work-dir') + 'start.ini'; 
        if i = 2 then result := regist.ReadString('work-dir'); 
        if i = 3 then result := regist.ReadString('work-dir') + 'button_1.ini'; 
        if i = 4 then result := regist.ReadString('work-dir') + 'button_2.ini'; 
      end else ShowMessage('Schlüssel nicht vorhanden !');
     finally
      regist.Free; 
     end;

[bigg]

mahlzeit,
ich habe dein Beispiel mal umgestellt:

Delphi-Quellcode:

function TForm1.GetPath(i: Integer): String;
  var Reg: TRegistry; Path: String;
  const wk = 'work-dir';
  begin
    Path := '';

    Reg := TRegistry.Create;
      try Reg.RootKey := HKEY_CURRENT_USER;

          if Reg.OpenKey('Software\meinprog', False) then
          begin // wenn der Schlüssel geöffnet werden kann (ohne ihn vorher anzulegen), dann:

          // gib mir über i den Pfad
          case i of // 1-4: nur wenn ein Schlüssel existiert wird er gelesen
          1: if Reg.ValueExists(wk + 'start.ini') then Path := Reg.ReadString(wk + 'start.ini');
          2: if Reg.ValueExists(wk) then Path := Reg.ReadString(wk);
          3: if Reg.ValueExists(wk + 'button_1.ini') then Path := Reg.ReadString(wk + 'button_1.ini');
          4: if Reg.ValueExists(wk + 'button_2.ini') then Path := Reg.ReadString(wk + 'button_2.ini');
          end;

          Reg.CloseKey;  // Schlüssel schließen, da er geöffnet wurde
          end;

      finally Reg.Free; // Reg freigeben
      end;

    Result := Path;
  end;

[mumu]

schau mal was für zugriffsrechte du hast

Reg := TRegistry.Create;
Reg.Access = ?