Экспорт ветки реестра

[nibufep]

Как програмно выполнить экспорт ветки реестра \SOFTWARE\MyProgram

[nibufep]

Нашел пример, но почему то не работает

var
hk:HKEY;
begin
if RegOpenKey(HKEY_CURRENT_USER,'\SOFTWARE\MyProg',hk)=ERROR_SUCCESS then
RegSaveKey(hk,'C:\Users\nibufep\Desktop\hk.reg',nil);
RegCloseKey(hk);
end;

[Stilet]

А попробуй вызвать запуск команды

reg save HKLM\SOFTWARE\MyProg file.reg

[nibufep]

Я уже сделал через cmd, только проблема возникла, если в пути есть русские буквы то ошибка, как можно исправить?

[Stilet]

А как ты сделал?

[nibufep]

AssignFile(F, 'save.cmd');
Rewrite(F);
Writeln(F, 'regedit.exe -ea '+SaveDialog1.FileName+'.reg "HKEY_CURRENT_USER\Software\MyProg"');
Writeln(F, 'del save.cmd');
CloseFile(F);
ShellExecute(Application.Handle,'open','save.cmd ',nil,nil,SW_ShowNormal);

[min@y™]

Можно обойтись без создания файла save.cmd, если запихать его содержимое прямо в вызов ShellExecute().

[Stilet]

Writeln(F, 'regedit.exe -ea "'+SaveDialog1.FileName+'.reg" "HKEY_CURRENT_USER\Software\MyProg"');

Понял? Имя файла оковычивай. Должно помочь.

Можно обойтись без создания файла save.cmd, если запихать его содержимое прямо в вызов ShellExecute().

Согласен.

[nibufep]

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

Writeln(F, 'regedit.exe -ea "'+SaveDialog1.FileName+'.reg" "HKEY_CURRENT_USER\Software\MyProg"');

Понял? Имя файла оковычивай. Должно помочь.

не помогло

Сообщение от min@y™

Можно обойтись без создания файла save.cmd, если запихать его содержимое прямо в вызов ShellExecute().

а можно подробней как это сделать?

[min@y™]

а можно подробней как это сделать?

Неужели так влом потратить 3 минуты на чтение справки, что ты готов ждать 3 часа сообщение на форуме?

ShellExecute(0, 
             'open', 
             'regedit.exe',
             PChar('-ea "' + SaveDialog.FileName + '" HKEY_CURRENT_USER\Software\MyProg'),
             nil,
             SW_HIDE);

WARNING!!! ACHTUNG!!! PRECAUCION!!! ВНИМАНИЕ!!! УВАГА!!! ETTEVAATUST!!! 注意!!!