版本升级后未创建卸载程序

Question

我已经设置我的安装程序以使用此post中提及的代码检查现有版本，然后在安装新版本之前调用卸载程序。很棒。我的问题是，卸载/安装步骤后，新版本卸载（unins000.exe）没有创建（或者它可能是但被删除的IDK）。这可以防止稍后再正确卸载新版本。如果没有现有版本，则始终创建卸载程序。我究竟做错了什么？

Answer 1

你可以使用克雷格·麦昆的解决方案在这里原贴：InnoSetup: How to automatically uninstall previous installed version?

function GetUninstallString(): String; 
var 
    sUnInstPath: String; 
    sUnInstallString: String; 
    begin 
     sUnInstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\{{A227028A-40D7-4695-8BA9-41DF6A3895C7}_is1'); //Your App GUID/ID 
     sUnInstallString := ''; 
      if not RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then 
       RegQueryStringValue(HKCU, sUnInstPath, 'UninstallString', sUnInstallString); 
       Result := sUnInstallString; 
    end; 

function IsUpgrade(): Boolean; 
    begin 
     Result := (GetUninstallString() <> ''); 
    end; 

function InitializeSetup: Boolean; 
var 
    V: Integer; 
    iResultCode: Integer; 
    sUnInstallString: String; 
    begin 
     if RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\{A227028A-40D7-4695-8BA9-41DF6A3895C7}_is1', 'UninstallString') then begin 
//Your App GUID/ID 
      V := MsgBox(ExpandConstant('{cm:YesNoUninstall}'), mbInformation, MB_YESNO); //Custom Message if App installed 
      if V = IDYES then begin 
       sUnInstallString := GetUninstallString(); 
       sUnInstallString := RemoveQuotes(sUnInstallString); 
       Exec(ExpandConstant(sUnInstallString), '', '', SW_SHOW, ewWaitUntilTerminated, iResultCode); 
       Result := True; //if you want to proceed after uninstall 
       //Exit; //if you want to quit after uninstall 
      end 
      else begin 
       Result := False; //when older version present and not uninstalled 
      end; 
     end 
     else begin 
      Result := True; //when no previous version found 
     end; 
    end;