|
function GetUninstallerPath: string;
var
RegKey: string;
begin
Result := '';
if ISWin64 then
RegKey := 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVer sion\Uninstall\' + ExpandConstant('{#AppName}') + '_is1'
else
RegKey := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninsta ll\' + ExpandConstant('{#AppName}') + '_is1';
if not RegQueryStringValue(HKLM, RegKey, 'UninstallString', Result) then
RegQueryStringValue(HKEY_CURRENT_USER, RegKey, 'UninstallString', Result);
StringChange(Result,'"','');
StringChange(Result,' /Silent','');
end;
|