inno setup的一点用法

来源：互联网发布：数据备份方案模板编辑：程序博客网时间：2024/05/19 13:42

在安装和卸载时对控件进行注册和反注册

[Code]
var
FinishedInstall: Boolean;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
begin
FinishedInstall := True;
RegisterServer(False, ExpandConstant('{app}/myocx.dll'), False);
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
    usUninstall:
      begin
        //MsgBox('CurUninstallStepChanged:' #13#13 '卸载开始。', mbInformation, MB_OK)
        // ...在这里插入执行卸载前任务的代码...
        UnregisterServer(False, ExpandConstant('{app}/myocx.dll'), False);
      end;
    usPostUninstall:
      begin
        //MsgBox('CurUninstallStepChanged:' #13#13 '卸载完成。', mbInformation, MB_OK);
        // ...在这里插入执行卸载后任务的代码...
      end;
end;
end;

自定义卸载后弹出信息的内容

[Messages]
UninstalledAll=%1 已顺利地从您的电脑中删除，欢迎访问www.xxxxx.cn获得更多信息。
UninstalledMost=%1 已顺利地从您的电脑中删除，欢迎访问www.xxxxx.cn获得更多信息。