Inno Setup设置在安装Finished页面，点击finish后打开网页

浏览数：46 / 时间：2015年06月09日

在安装的最后一个页面FinishPage中点击Finished然后打开一个网页

这个功能貌似很简单，不就是在点击finish按钮给它绑定事件，问题立马解决。

在普通的桌面应用程序开发中的确是这样做的，可是这里是InnoSetup

这个事件不是你能控制的，

所以我们应该换一种思维，点击finish后，相当于程序全部安装完毕了，而在InnoSetup的脚本中，我们可以获取到这个状态

先上代码：

 1 //这个方法innosetup会自动调用的，当安装步骤有所改变时，它就会被触发
 2 procedure CurStepChanged(CurStep: TSetupStep);
 3 var
 4 ErrorCode: Integer;
 5 isVerySilent: boolean;
 6 j:Cardinal;
 7 
 8 begin
 9   //ssDone，就是点击Finish后的状态，后面会有详细解释
10   if(CurStep=ssDone) then
11   begin
12        for j := 1 to ParamCount do
13        begin
14            //这里是判断程序是否为静默安装，是则不打开网页
15            if(CompareText(ParamStr(j),‘/verysilent‘)=0) then
16                isVerySilent := true
17        end;
18 
19        if(not isVerySilent) then
20        begin 
21            ShellExec(‘open‘,‘http://www.baidu.com‘,‘‘,‘‘,SW_SHOWNORMAL,ewNoWait,ErrorCode);
22        end;
23   end;
View Code

 

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

标签： class style 代码 src com log 问题 http 方法 class style 代码 src com log 问题 http 方法

相关文章

随机文章

您可能还喜欢

您可能还喜欢