Путь в реестре

[artemavd]

Добрый вечер. Интересует такой вопрос: как сделать так, чтобы я в одном Edit-e указывал конкретную ветку в реестре, а во втором Edit-e прописывал значение, которое должно занестись в определенную ветку реестра? Кто чем может помочь?

[Terran]

Исключительно по вопросу.

Uses
Registry;
Procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey(Edit1.Text,True);//Указываем ветку в реестре
Reg.WriteString('Proga',Edit2.Text);//Параметр Proga, значение параметра с Edit
Reg.Free;
End;

[Neeter]

Вот что у меня получилось:

//ValuePath - путь к ключу; Value - само значения; Add - если нет такого ключа то создать, иначе показать сообщение что ключ не найден
procedure SetStringValue(ValuePath, Value: string; Add: boolean);
var
 Root, Path, Key: string;
 reg: TRegistry;
begin
 Root := Copy(ValuePath, 1, Pos('\', ValuePath) - 1);
 Key := Copy(ValuePath, Pos('/', ValuePath) + 1, Length(ValuePath));
 Path := ValuePath;
 Delete(Path, 1, Pos('\', Path));
 Delete(Path, Pos('/', Path), Length(Path));

 reg := TRegistry.Create;
 try
  if Root = 'HKEY_CURRENT_USER' then
   reg.RootKey := HKEY_CURRENT_USER
  else if Root = 'HKEY_LOCAL_MACHINE' then
   reg.RootKey := HKEY_LOCAL_MACHINE
  else if Root = 'HKEY_CLASSES_ROOT' then
   reg.RootKey := HKEY_CLASSES_ROOT
  else if Root = 'HKEY_USERS' then
   reg.RootKey := HKEY_USERS
  else if Root = 'HKEY_PERFORMANCE_DATA' then
   reg.RootKey := HKEY_PERFORMANCE_DATA
  else if Root = 'HKEY_CURRENT_CONFIG' then
   reg.RootKey := HKEY_CURRENT_CONFIG
  else if Root = 'HKEY_DYN_DATA' then
   reg.RootKey := HKEY_DYN_DATA;

  if not reg.ValueExists(Path + Key) then
   if not Add then
   begin
    Application.MessageBox('Ключ не найден', 'Ошибка', MB_OK or MB_ICONSTOP);
    Exit;
   end;
  if Add then reg.OpenKey(Path, true) else reg.OpenKey(Path, false);

  reg.WriteString(Key, Value);
 finally
  reg.Free;
 end;
end;

Пример использования:

SetStringValue(Edit1.Text, Edit2.Text, false);

Пример данных:
Edit1: 'HKEY_CURRENT_USER\Software\Str\Str/Nik'
Edit2: 'artemavd'