inno setup的一点用法

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

[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获得更多信息。