首页 > 代码库 > Inno Setup设置在安装Finished页面,点击finish后打开网页

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

在安装的最后一个页面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) then11   begin12        for j := 1 to ParamCount do13        begin14            //这里是判断程序是否为静默安装,是则不打开网页15            if(CompareText(ParamStr(j),/verysilent)=0) then16                isVerySilent := true17        end;18 19        if(not isVerySilent) then20        begin 21            ShellExec(open,http://www.baidu.com,‘‘,‘‘,SW_SHOWNORMAL,ewNoWait,ErrorCode);22        end;23   end;
View Code

 

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