Ниже мое решение, в основном выполните xxxxx-runtime.exe в разделе [code], прежде чем получить путь от reg. Ниже приведен исходный код:
[Files]
Source: ".\xxxxx-runtime.exe"; DestDir: "{tmp}"; Flags: deleteafterinstall
[UninstallRun]
Filename: {code:GetUninstallString}; BeforeInstall: SetUninstallString; RunOnceId: {code:GetUninstallString}
[Code]
var
uninstallString: String;
function getUninstallString(p: String): String;
begin
Result := uninstallString;
end;
// execute xxxxx-runtime.exe
procedure exe();
var
iResultCode: Integer;
begin
Exec(ExpandConstant('{tmp}\xxxxx-runtime.exe'), '/SILENT /NORESTART /SUPPRESSMSGBOXES','', SW_HIDE, ewWaitUntilTerminated, iResultCode);
end;
procedure SetUninstallString();
var
sUnInstPath: String;
sUnInstallString: String;
begin
exe();
sUnInstPath := ExpandConstant('Software\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\xxxxx_is1');
sUnInstallString := '';
if not RegQueryStringValue(HKEY_LOCAL_MACHINE, sUnInstPath, 'UninstallString', sUnInstallString) then
RegQueryStringValue(HKEY_CURRENT_USER, sUnInstPath, 'UninstallString', sUnInstallString);
uninstallString := RemoveQuotes(sUnInstallString);
end;