Inno Setup 系列之先卸載以後再安裝

時間 2019-12-11

原文原文鏈接

需求
使用Inno Setup打包程序以後，不少時候咱們須要在安裝文件以前卸載原有的程序而不是覆蓋安裝，本文的Code就是實現了這樣的功能。若是想要在安裝前先卸載，那麼須要加下面代碼，須要注意的是雙星號裏面的 `{3FC1FD05-BEC7-430A-B7DB-F07155FDE93E}` 部分的改成大家本身的。網上看到有些說_is1前面用AppName，可是我這邊不行，下面code中 `{3FC1FD05-BEC7-430A-B7DB-F07155FDE93E}` 爲你的程序名，能夠去你的 Inno Setup 腳本中找到程序ID： AppId={`{3FC1FD05-BEC7-430A-B7DB-F07155FDE93E}` 也能夠到註冊表中確認，爲防止之後忘記，在這裏記錄一下，方便之後使用。php

實現原理是：從註冊表 'UninstallString' 項中讀取卸載信息，用Exec進行靜默卸載。app

[Setup]ide

; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={**{3FC1FD05-BEC7-430A-B7DB-F07155FDE93E}**
AppName={#MyAppName}
AppVersion={#MyAppVersion}

[Code]this

function InitializeSetup(): boolean; 
var 
ResultStr: String; 
ResultCode: Integer; 
begin 
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{3FC1FD05-BEC7-430A-B7DB-F07155FDE93E}_is1', 'UninstallString', ResultStr) then 
begin 
ResultStr := RemoveQuotes(ResultStr); 
Exec(ResultStr, '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode); 
end; 
result := true; 
end;