innosetup 打包安装之前卸载旧版本和删除旧文件

最新推荐文章于 2024-07-18 19:15:02 发布

祖坟冒青烟

最新推荐文章于 2024-07-18 19:15:02 发布

阅读量2.4k

点赞数 1

分类专栏： Qt Windows

本文链接：https://blog.csdn.net/weixin_42101997/article/details/104444875

版权

Qt 同时被 2 个专栏收录

40 篇文章 1 订阅

订阅专栏

Windows

6 篇文章 0 订阅

订阅专栏

[Code]
function InitializeSetup(): boolean;  
var  
  ResultStr: String;  
  ResultCode: Integer;  
begin  
  if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{9807F465-69CC-4FFE-936D-F0A5A6C09B45}_is1', 'UninstallString', ResultStr) then  
    begin  
      ResultStr := RemoveQuotes(ResultStr);  
      Exec(ResultStr, '/silent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);  
    end;  
    result := true;  
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usDone then
    begin
    DelTree(ExpandConstant('{app}'), True, True, True);
    end;
end;