Копирование ключей реестра

[{Shadowevil}]

Всем привет. Поискал по форуму нечто подобное, но не нашел, поэтому создал тему (сори если все-таки есть).

Проблема встала следующая:

Есть ключ реестра в секции HKEY_LOCAL_MACHINE\SOFTWARE\, у этого ключа есть несколько подключей, в каждом хранятся параметры разных типов.
Надо копировать этот ключ со всеми его подключами и значениям в секцию HKEY_CURRENT_USER\Software\

Никак не могу это реализовать пробовал испльзовать
MoveKey, но, я так понял, данная процедура не позволяет копировать ключи между секциями, а только в рамках одной.

Procedure TFrmMain.RegCopy(aKey: String);
var
  Reg: TRegistry;
  SL: TStringList;
  i: integer;
begin
  try
   SL:=TStringList.Create;

   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_LOCAL_MACHINE;
   Reg.OpenKey('\SOFTWARE\'+aKey, false);
   Reg.GetKeyNames(SL);

   Reg.RootKey:=HKEY_CURRENT_USER;
   Reg.OpenKey('\Software', false);

   for i:=0 to Sl.Count-1 do
    Reg.MoveKey(SL[i], '\'+aKey+'\'+SL[i], false);

  except
   FreeAndNil(Reg);
   FreeAndNil(SL);
  end;
end;

Пробовал с указанием полного пути в MoveKey, но эффекта 0.

Пробовал через CreateKey:

Procedure TFrmMain.RegCopy(aKey: String);
var
  Reg: TRegistry;
  SL: TStringList;
  i: integer;
begin
  try
   SL:=TStringList.Create;

   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_LOCAL_MACHINE;
   Reg.OpenKey('\SOFTWARE\'+aKey, false);
   Reg.GetKeyNames(SL);

   Reg.RootKey:=HKEY_CURRENT_USER;
   Reg.OpenKey('\Software', false);

   for i:=0 to Sl.Count-1 do
    Reg.CreateKey('\'+aKey+'\'+SL[i]);

  except
   FreeAndNil(Reg);
   FreeAndNil(SL);
  end;
end;

В этом случае основной ключ и подключи создаются, но вот как скопировать параметры учитывая их типы не знаю


Помогите, пожалуйста

[DiemonStar]

LoadKey
RestoreKey
SaveKey

а через файл не лучше?

[astecenko]

Посмотри у себя в модуле Registry реализацию метода TRegistry.MoveKey, в частности внутри есть локальные процедуры CopyKeys, CopyValues.

[{Shadowevil}]

Сообщение от DiemonStar

LoadKey
RestoreKey
SaveKey

а через файл не лучше?

Нет, не лучше, могут возникнуть проблемы с доступом

[{Shadowevil}]

Сообщение от astecenko

Посмотри у себя в модуле Registry реализацию метода TRegistry.MoveKey, в частности внутри есть локальные процедуры CopyKeys, CopyValues.

Посмотрел, а толку? Редактировать модуль не очень хочется, а заимствовать оттуда что-то смысла нет.


Накидал вот такую процедурку, пока работает, может кому пригодится:

Procedure TFrmMain.RegCopy(aKey: String);
var
  Reg, Reg2: TRegistry;
  SL: TStringList;
  i: integer;
  DT: TRegDataInfo;
begin
  try
   SL:=TStringList.Create;

   Reg:=TRegistry.Create;
   Reg.RootKey:=HKEY_LOCAL_MACHINE;             //откуда
   Reg.OpenKey(aKey, false);
   Reg.GetValueNames(SL);

   Reg2:=TRegistry.Create;
   Reg2.RootKey:=HKEY_CURRENT_USER;             //куда
   if Reg2.KeyExists(aKey) then exit;
   Reg2.OpenKey(aKey, True);

    for i:=0 to Sl.Count-1 do
   begin
     DT.RegData:=Reg.GetDataType(SL[i]);
     if (DT.RegData=rdInteger) then                        
      Reg2.WriteInteger(SL[i], Reg.ReadInteger(SL[i]));
     if (DT.RegData=rdString) then
      Reg2.WriteString(SL[i], Reg.ReadString(SL[i]));
    end;
   Reg.GetKeyNames(SL);

   for i:=0 to Sl.Count-1 do
   begin
    RegCopy(aKey+'\'+SL[i]);
   end;

  except
   FreeAndNil(Reg);
   FreeAndNil(Reg2);
   FreeAndNil(SL);
  end;
end;

//эти условия проверяют только 2 типа параметров - численные и строковые,
если надо проверить другие типы, придется добавить подобные условия для нужных типов

if (DT.RegData=rdInteger) then                       
      Reg2.WriteInteger(SL[i], Reg.ReadInteger(SL[i]));
     if (DT.RegData=rdString) then
      Reg2.WriteString(SL[i], Reg.ReadString(SL[i]));

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

Try
    RegCopy('\SOFTWARE\YourKey');   //при необходимости подрекдактировать
Except
end;

[astecenko]

Сообщение от {Shadowevil}

Посмотрел, а толку? Редактировать модуль не очень хочется, а заимствовать оттуда что-то смысла нет.

Хм, дело Ваше, но по сути TRegistry.MoveKey копирует ветку реестра из старого места в новое, и затем удаляет в старом.
То бишь, Вам можно было бы позаимствовать реализацию MoveKey исключив из неё удаление, и всё. Создать наследника TRegistry и дополнить его необходимыми методами ничего же не мешает?

Но, как говорится "Хозяин - барин".

[{Shadowevil}]

Сообщение от astecenko

Хм, дело Ваше, но по сути TRegistry.MoveKey копирует ветку реестра из старого места в новое, и затем удаляет в старом.
То бишь, Вам можно было бы позаимствовать реализацию MoveKey исключив из неё удаление, и всё. Создать наследника TRegistry и дополнить его необходимыми методами ничего же не мешает?

Но, как говорится "Хозяин - барин".

TRegistry.MoveKey удаляет исходный ключ только если поставить в вызове последним аргументом True, а так не удаляет.
Дело в том. что TRegistry.MoveKey не копирует ветки из разных секций ...тобишь ветку из HKLM скопировать в HKCU не получится ....по крайней мере у меня не получалось ну никак.

Поэтому написать процедуру с использованием рекурсии оказалось, на мой взгляд, самым оптимальным решением))
Но за помощь спасибо)

[nnm4evr]

Сообщение от {Shadowevil}

if (DT.RegData=rdInteger) then
Reg2.WriteInteger(SL[i], Reg.ReadInteger(SL[i]));
if (DT.RegData=rdString) then
Reg2.WriteString(SL[i], Reg.ReadString(SL[i]));

А как быть с бинарными данными? Пытался разобраться, но пока ни чего не вышло...