InstallShield详细制作说明(三)

八、许可协议

打开【Installation Designer】->【Behavior and Logic】->【Support Files/Billboards】面板

这里【Language Independent】是指的设置将在任何语言下都会起作用相当于默认，下面还有【中文(简体)】，就相当于分支，只有中文下起作用。这里我们就只做通用的，在【Language Independent】，添加“软件许可协议.txt”文件。

然后，再点击【Disk1】,这里我们存放一些运行系统所需的先决条件，这些文件是不会打包到setup.exe里面，而是跟setup.exe平级的，因为这些条件不是每台机器都需要的，也不属于产品内的东西。

九、安装脚本

这部分是最复杂，也是最重要的。打开【Installation Designer】->【Behavior and Logic】->【InstallScript】面板

脚本事件主要有三大类：Before Move Data(安装数据前)、Move Data(安装数据过程中)、After Move Data(安装数据后)。

OnBegin:在初始化后，被调用

OnFirstUIBefore:第一次安装时，在复制安装数据之前触发的事件，更改这个事件的脚本可自定义安装步骤（一般我们都是修改这个）

OnMainUIBefore:在修改或卸载时，在复制安装数据之前触发的事件，例如安装程序在安装时添加了服务,在卸载时安装程序不会将此服务反安装，这就需要脚本删除服务。

OnSQLLogin:Ms SQL SERVER数据库安装登录函数。

MoveData：一般很少有人会去改

OnFirstUIAfter: 第一次安装时，在复制安装数据之后触发的事件，例如有些地方需要设置路径，在安装前路径不存在，必须安装后才能设置。

OnMainUIAfter: 在修改或卸载时，在修改或卸载数据之后触发的事件

OnEnd:在安装完成之后触发的事件，即点击【完成】按钮后触发的事件。

 

我们先写许可协议界面，可以看到现在脚本是空的。在右侧，将下拉列表选为【BeforeMoveData】【OnBegin】。这里注意不要看当前是OnBegin，就不选了，一定要选一下，才会触发代码生成。begin与end之间的内容就是我们要具体要执行的动作了。

function OnBegin()

begin

         //禁用上一步

Disable(BACKBUTTON);

         //判断安装程序处于何种状态，安装、修复、重新安装或卸载状态，后三者属于MAINTENANCE状态，因此判断只有在正常安装的状态下才显示许可协议

if(!MAINTENANCE)then

         //TRUE表示默认选中接受协议

SdLicense2("软件许可协议","","",SUPPORTDIR^"软件许可协议.txt",TRUE);

         endif;

end;  

•  

SdLicense2(szTitle,szOpt1,szOpt2,szLicenseFile,bLicenseAccepted);

参数szTitle: 界面左上角的标题，填””则默认为”License Agreement”

参 数szOpt1、szOpt2:两个选项“同意”和“不同意”。默认值“I accept the terms of the license agreement”和“I do not accept the terms of the license agreement”

参数 szLicenseFile:指定需要显示的文档，包含路径和带扩展名的文档名。“软件许可协议.txt”上面放在了supportfile下了，这个路 径在Installshield里有专门的静态变量，即SUPPORTDIR,后面再加上文件名，用^来连接，文件名需要加引号

 

这 里细说一下SdLicense2，这个你可以去【User Interface】->【Dialogs】,下面了一堆的对话框，你也可以自定义对话框。所以上面SdLicense2直接就是对话框的名字，这 种用法就跟构造器一样，那参数呢，你可以看到对话框右侧下方，有简单说明，你点击那个链接就会打开API文档了，那里会详细解释每个字段的含义。

下面在OnFirstUIBefore中添加先决条件和安装路径，点击下拉列表生成代码

如 果上面你已经试过编译，你会发现安装的步骤还挺多的，其实每一个步骤都对应着生成的代码中的Dlg_XXXXXX,有很多可能你都不需要的，下面是我修改 后的代码。主要就是检查是否安装了NetFramework,MySQL,没有则安装，另外就是让用户指定要安装的Feature。Dlg_XXXXXX 是按顺序执行的，当然你也可以看到通过goto可以跳转。

function OnFirstUIBefore()

    NUMBER nResult, nSetupType, nvSize, nUser;

    STRING szTitle, szMsg, szQuestion, svName, svCompany, szFile;

    STRING szLicenseFile;

         BOOL bCustom, bIgnore1, bIgnore2;

         STRING SETUPEXEDIR[MAX_PATH + 1];   //获取安装程序Setup.exe自身所在的路径

    NUMBER nBuffer; // local buffer-size variable                         

    STRING  svMsiexec,svMsiPackage,svParam;

begin       

    if( REMOVEONLY ) then

        Disable( DIALOGCACHE );

                   szMsg = SdLoadString( IDS_IFX_ERROR_PRODUCT_NOT_INSTALLED_UNINST );

               SdSubstituteProductInfo( szMsg );

                   MessageBox( szMsg, SEVERE );

                   abort;

    endif;

   

         nSetupType = TYPICAL;   

 

Dlg_SdWelcome:

    szTitle = "";

    szMsg = "单击'下一步',将安装XX产品，如果有先决条件未安装，将会先安装先决条件";

   

    nResult = SdWelcome(szTitle, szMsg);

         if (nResult = NEXT) then

             //检查先决条件   

        //设置默认的注册表键值根节点为HKEY_LOCAL_MACHINE

             RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);

             MsiGetProperty(ISMSI_HANDLE, "SETUPEXEDIR", SETUPEXEDIR, nBuffer);

            

             //判断.netFramework 4.0

             if(RegDBKeyExist("SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v4\\Full")<0) then

                if(LaunchAppAndWait(SETUPEXEDIR^"dotNetFx40_Full_x86_x64.exe","",LAAW_OPTION_WAIT)<0)then

                   MessageBox("安装NetFramework4.0失败",INFORMATION);

                endif;

             else

                //MessageBox("系统已安装NetFramework4.0",INFORMATION);

             endif;

            

             //判断MySQL

             if(RegDBKeyExist("SOFTWARE\\MySQL AB")<0) then

                if(LaunchAppAndWait(SETUPEXEDIR^"install_mysql.bat","",LAAW_OPTION_WAIT)<0)then

                   MessageBox("安装MySQL失败",INFORMATION);

                endif;

             else    

               // MessageBox("系统已安装MySQL",INFORMATION);

             endif;

       

            goto Dlg_SdFeatureDialog;

         endif;

        

 Dlg_SdFeatureDialog:

          szTitle = "";

          szMsg = "";

          nResult = SdFeatureDialog(szTitle, szMsg, INSTALLDIR, "");

          if (nResult = BACK) goto Dlg_SdWelcome;   

        

     // Added in IS 2009 - Set appropriate StatusEx static text.

     SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );

 

     // setup default status

     Enable(STATUSEX);

     return 0;        

end;

 

上面调用mysql的时候用的bat间接调用的，msi貌似能直接调用，但是我试了很多，没有试出来，如果试出来请告知。

这里我并没有研究太多的脚本代码，只是基本上实现了自己的需求，把一些难点都用database.exe的方式去实现了，不得不承认研究这个真的很头疼，需要深入研究的同仁，可以多学习。