Inno Setup 安裝前卸載原程式

標籤：

Inno Setup 安裝前卸載原程式 分類： Install Setup 2013-02-02 15:53 2315人閱讀 評論(0) 收藏 舉報

很多時候我們需要在安裝檔案之前卸載原有的程式而不是覆蓋安裝，本文的code就是實現了這樣的功能。

實現原理是：從注冊表‘UninstallString‘項中讀取卸載資訊，用Exec進行靜默卸載。

下面code中APP_NAME為你的程式名，可以去注冊表中確認。

 1 function InitializeSetup(): boolean; 2 var 3 ResultStr: String; 4 ResultCode: Integer; 5 begin 6 if RegQueryStringValue(HKLM, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\APP_NAME_is1‘, ‘UninstallString‘, ResultStr) then 7 begin 8 ResultStr := RemoveQuotes(ResultStr); 9 Exec(ResultStr, ‘/silent‘, ‘‘, SW_HIDE, ewWaitUntilTerminated, ResultCode);10 end;11 result := true;12 end;

 

Inno Setup 安裝前卸載原程式