Скрипты Inno Setup. Помощь и советы [часть 7]

Dodakaedr · Конфигурация компьютера

Цитата Dodakaedr:

Как в этом коде указать HKU\{code:UsSID}\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts?

Код:

procedure BackupData(FileExt: String);
var
 OldValueData: string;
begin
 if RegKeyExists(HKCR, '.' + FileExt) then
 begin
 RegQueryStringValue(HKCR, '.' + FileExt, '', OldValueData);
 RegWriteStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData);
 end;
end;
procedure RestoreData(FileExt: String);
var
 OldValueData: string;
begin
 if RegKeyExists(HKCR, '.' + FileExt + '(backup)') then
 begin
 RegQueryStringValue(HKCR, '.' + FileExt + '(backup)', '', OldValueData);
 RegWriteStringValue(HKCR, '.' + FileExt, '', OldValueData);
 RegDeleteKeyIncludingSubkeys(HKCR, '.' + FileExt + '(backup)');
 end;
end;

»

С этим решено, теперь подскажите как сделать чтобы код бекапил полностью ключ со всеми значениями и подключами, потому что этот код бекапит только значение ключа.