Вопрос Резервная копия реестра

[Хамик]

Подскажите как сделать резервную копию ключей реестра? Резервную копию надо сохранить в реестре. Допустим имеем такой ключ HKEY_CURRENT_USER\SOFTWARE\APOSTOL надо его забекапить в HKEY_CURRENT_USER\SOFTWARE\APOSTOL_BACKUP, но при этом не удалять резервируемый ключ.

 

[Krinkels]

Как вариант:
Открываем нужный ключ, строим список всех подключей, копируем их на новое место, далее строим список параметров содержащихся в подключе, копируем и их на новое место.

З.Ы. Может для этого есть какая то спецфункция, но лично я такой не знаю

 

[Хамик]

Как вариант:
Открываем нужный ключ, строим список всех подключей, копируем их на новое место, далее строим список параметров содержащихся в подключе, копируем и их на новое место.

З.Ы. Может для этого есть какая то спецфункция, но лично я такой не знаю

Это понятно. Как-бы программно все это сделать?

 

[Krinkels]

Можно все это попробовать сварганить на инно, или написать плагин. Но лично я не могу ни то ни другое, по независящим от меня причинам

 

[Хамик]

Можно все это попробовать сварганить на инно, или написать плагин. Но лично я не могу ни то ни другое, по независящим от меня причинам

Подождем того кто сможет!)

 

[sergey3695]

Хамик, экспорт реестра делай. и reg файл в нужную папку.

 

[Хамик]

sergey3695, нет так не подходит.

 

[sergey3695]

Ну почему же. Экспорт. Сохранить reg. Подредактировать. Добавить в реестр. Все же проще.

 

[Хамик]

проще. Но хотелось средствами inno сделать без regedit'a

 

[Хамик]

С помощью RegQueryStringValue, RegGetSubkeyNames можно реализовать данный замысел?

 

[Snoopak96]

http://krinkels.org/threads/faq-po-inno-setup.7/page-4#post-23832

Хренью какой то маюсь, там запись в файл, дальше значения из этого файла можно загрузить в любую директорию, разберёшься в коде - поймёшь. Дальше у меня интерес пропал.

 

[Хамик]

Snoopak96, Спасибо! Пригодится! А в реестре никак не можно сделать бэкап?

 

[Snoopak96]

Хамик,
что мешает сделать так?

 RegBackupTofile(HKEY_LOCAL_MACHINE, 'Software\1C', ExpandConstant('{app}\RegBackup.dat'), true);
 RegRestorefromfile(HKEY_LOCAL_MACHINE, 'Software\1C_BackUp', ExpandConstant('{app}\RegBackup.dat'), true);
 DeleteFile(ExpandConstant('{app}\RegBackup.dat'));

 

[Хамик]

что мешает сделать так?

Вроде и работает, но постоянно несколько раз появляется сообщение "Ошибка чтения файла".

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
RegBackupTofile(HKEY_LOCAL_MACHINE, 'Software\WinRAR', ExpandConstant('{app}\RegBackup.dat'), true);
RegRestorefromfile(HKEY_LOCAL_MACHINE, 'Software\WinRAR_BackUp', ExpandConstant('{app}\RegBackup.dat'), true);
DeleteFile(ExpandConstant('{app}\RegBackup.dat'));
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usPostUninstall then
RegBackupTofile(HKEY_LOCAL_MACHINE, 'Software\WinRAR_BackUp', ExpandConstant('{app}\RegBackup.dat'), true);
RegRestorefromfile(HKEY_LOCAL_MACHINE, 'Software\WinRAR', ExpandConstant('{app}\RegBackup.dat'), true);
DeleteFile(ExpandConstant('{app}\RegBackup.dat'));
RegDeleteKeyIncludingSubkeys(HKLM, 'Software\WinRAR_BackUp');
end;

 

[Snoopak96]

RegEdit закрой у себя на компе, комментарии же написал, привилегия редактирования реестра не доступна если реестр открыт в RegEdit. После всех манипуляций открывай только редактор реестра.

if RegRestoreKey(phkResult, infile, 0) > 0 then MsgBox('Ошибка чтения файла', mbInformation, MB_OK);  //RegEdit при вызове должен быть закрыт иначе вернёт отказ в доступе

 

[Хамик]

Snoopak96, RegEdit у меня не запущен.

 

[Snoopak96]

Хамик,
ну реестр занят каким-то процессом, так сделай:

if RegRestoreKey(phkResult, infile, 0) > 0 then MsgBox(inttostr(RegRestoreKey(phkResult, infile, 0)), mbInformation, MB_OK);

если массага выдаст "5" - то это отказ доступа. Другим может редактором реестр открыл.

 

[Хамик]

При установке сначала 3 потом 2. Что это значить?

 

[Snoopak96]

2:ERROR_FILE_NOT_FOUND - не найден файл
3:ERROR_PATH_NOT_FOUND - не найден путь
реестр экспортируй в reg и сюда залей
нет, на анси у меня тоже пашет
ёмаё я ж на анси не проверял может по этому

 

[Хамик]

ёмаё я ж на анси не проверял

Проверяю на unicode от restools.

реестр экспортируй в reg и сюда залей

А смысл? Сделайте у себя, а я потом уже под себя подкорректирую. Вот: