[saurn]

ключ со всеми значениями и подключами »

Предлагаю, так:

читать дальше »

Код:

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; AfterInstall: IsRegExport(); Flags: ignoreversion;


[code]
procedure IsRegExport();
var
    i: Integer;
    RegKey: String;
begin
    RegKey := 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Inno Setup 5_is1';

    Exec( ExpandConstant( '{win}\regedit.exe' ), '-ea export.reg ' + AddQuotes( RegKey ), ExpandConstant( '{app}' ), SW_HIDE, ewWaitUntilTerminated, i );
end;


procedure IsRegImport();
var
    i: Integer;
    RegFile: String;
begin
    RegFile:= ExpandConstant('{app}\export.reg');

    if FileExists(RegFile) <> False then
      Exec( 'regedit.exe', ' /s ' + AddQuotes( RegFile ), ExpandConstant( '{win}' ), SW_HIDE, ewWaitUntilTerminated, i );
end;


procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
    case CurUninstallStep of
        usUninstall: IsRegImport();
    end;
end;