Inno Setup 安装前卸载原程序

Inno Setup 安装前卸载原程序

分类： Install Setup 2013-02-02 15:53 2315人阅读 评论(0) 收藏 举报

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

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

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

 function InitializeSetup(): boolean;
 var
 ResultStr: String;
 ResultCode: Integer;
 begin
 if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\APP_NAME_is1', 'UninstallString', ResultStr) then
 begin
 ResultStr := RemoveQuotes(ResultStr);
 Exec(ResultStr, '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
 end;
 result := true;
 end;