Registry-Anfänger-Probleme

[sakura]

Auf jeden Fall woanders. Unter NT-Systemen gibt es Sicherheitsaspekte - also in HKCU und dann immer unter Software.

Code:

procedure TMainForm.SaveSettings(Sender: TObject;
  var Action: TCloseAction);
  begin
    if
      CBxSaveSettings.Checked
    then
      begin
        regist := TRegistry.Create;
        [color=#ff0000]try[/color]
          regist.RootKey := [color=#ff0000]HKEY_CURRENT_USER[/color];
          [color=#ff0000]if[/color] regist.[color=#ff0000]OpenKey[/color]('[color=#ff0000]Software\[/color]flomei\pumpensteuerung\1.0') [color=#ff0000]then
          try[/color]
            regist.WriteInteger('Filled', Counter.Value);
            regist.WriteBool('OnTop an', OnTopChecked);
            regist.WriteBool('SaveSettings an', SaveSettingsChecked);
            regist.CloseKey;
          [color=#ff0000]finally
            regist.CloseKey;
          end;
        finally
          regist.Free;
        end;[/color]
      end
end;

......