InstallShield实例(OnFirstUIBefore分析、安装导航优化)

昨天学了一些基本语法《InstallShield脚本语言的初识》,只是试水,今天准备写个例子,看看具体脚本的写法。

创建一个空工程

  • 我使用的是InstallShield12,因为是以研究脚本为主,所以这里当然就建一个InstallScript工程。
  • 什么也不做,直接用助手build一下。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第1张图片

  • 控制台显示了build成功,并给了一个路径,顺着这个路径,能够找到打包好的setup.exe,就在项目工程中。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第2张图片

  • 安装一下试试。注意此时的安装程序都出现了什么内容,我们后面要通过脚本改动的就是这些。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第3张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第4张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第5张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第6张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第7张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第8张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第9张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第10张图片

  • ok,记录完成。这就是在没有脚本控制下默认生成的安装程序。

  • 如果现在再次打开安装程序会发生什么呢?
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第11张图片

  • 答案是卸载程序。此时我点了除去,就把刚刚装的软件完美的卸载掉了。
  • 再次打开可以重新安装。
  • 整个流程已经很清晰了,下面我们对应脚本来看下这个安装流程。

分析

  • 如果此刻去看看setup.rul脚本,会发现里面是空的,没有任何脚本,难道刚才这一过程没有调用脚本吗?
  • 先说答案:否。

事件

  • 此处不得不探讨一下InstallShield事件,或者说函数了。
  • 刚刚也看到,在通常情况下,setup.rul内是不显示脚本出来的,但这不代表脚本不被执行。
  • InstallShield中内置了很多固定的函数,这些函数在特定的安装阶段被执行。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第12张图片

  • 从两个下拉框中可以看到这些函数,无论在脚本中如何重写这些函数,它们的执行顺序总是固定的,就按照在下拉框中排列的顺序,从上到下执行。

  • 比如说OnFirstUIBefore函数,它是在开始安装之前被执行,负责一些准备工作。
  • 而OnBegin函数在OnFirstUIBefore的上面,说明OnBegin要优先于OnFirstUIBefore执行。实际上,OnBegin是在Setup脚本中第一个被触发。

实例

以下实例都是我在网上搜刮的,大多都是pdf中的看到然后我自己敲出来运行测试的,来源不可考证,就不备注了,还请原作者见谅。

实例1:操作系统的识别

  • 我暂时写入OnBegin事件,因为引入之后看到它完全是个空的,感觉非常适合拿来写着玩。
function OnBegin()  
string szMsg;
begin  

/*    
 * <操作系统的识别>
 * 相关变量 SYSINFO:存放本机的系统变量
 * 相关函数 AskYesNo:弹出消息窗口,用户通过按是或非来回答该窗口显示的问题
 */

    if(!SYSINFO.bIntel)then
        szMsg = "提示:该软件只能运行在Intel系列的处理器上!\n\n安装程序将终止";
        MessageBox(szMsg,SEVERE);
        abort;
    endif;
    if(SYSINFO.WIN9X.bWinMe ||
        SYSINFO.WINNT.bWinNT ||
        SYSINFO.WINNT.bWin2000)then
        szMsg = "提示:该软件只能运行在WIN9X系列上才能确保程序的正常工作!\n\n是否继续安装?";
        if(!AskYesNo(szMsg,NO))then
            abort;
        endif;
    endif; 

end;
  • build之后运行安装程序,在准备安装之后,出现了如下的画面,说明这段脚本已经起作用啦!(我本地是win7系统)
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第13张图片

  • 点击“是”,则正常安装;点击“否”,会退出安装。abort命令在《InstallShield脚本语言的初识》中有讲到。

  • 终于看到自己双手制造出的效果了,有点小激动,那些看不懂的知识点最后再总结,先继续找感觉,进行下一个例子!

实例2:内存容量的检测

  • 还是写在OnBegin中,之后我也会贴出全部代码,而不是只当前一个实例的片段代码。
function OnBegin()  
string szMsg,svResult;
number nvFreeMem;
begin  

/*    
 * <操作系统的识别>
 * 相关变量 SYSINFO  存放本机的系统变量
 * 相关函数 AskYesNo  弹出消息窗口,用户通过按是或非来回答该窗口显示的问题
 */
    if(!SYSINFO.bIntel)then
        szMsg = "提示:该软件只能运行在Intel系列的处理器上!\n\n安装程序将终止";
        MessageBox(szMsg,SEVERE);
        abort;
    endif; 

    if(SYSINFO.WIN9X.bWinMe ||
        SYSINFO.WINNT.bWinNT ||
        SYSINFO.WINNT.bWin2000)then
        szMsg = "提示:该软件只能运行在WIN9X系列上才能确保程序的正常工作!\n\n是否继续安装?";
        if(!AskYesNo(szMsg,NO))then
            abort;
        endif;
    endif;    


/* 
 * <内存容量的检测>    
 * 相关函数:GetSystemInfo()  返回目标系统的各种信息,
 *                            如CPU类型,磁盘容量,当前日期,当前操作系统,内存容量等   
 */
    if(GetSystemInfo(EXTENDEDMEMORY,nvFreeMem,svResult)<0)then
        MessageBox("内存检测失败,安装程序将终止!",SEVERE);
        abort;
    endif;

    if(nvFreeMem<16384)then
        szMsg = "该软件只能安装在16M以上内存的机器中。\n很遗憾,本机器可用内存不足16M!\n\n安装程序将终止!";
        MessageBox(szMsg,SEVERE);
        abort;
    endif;

end;
  • 我本机的内存肯定比16M要大,所以运行安装程序也看不出效果,所以我在测试的时候将if(nvFreeMem<16384)改成了if(nvFreeMem>16384),就可以看到如下效果了。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第14张图片

实例3:客户信息

  • 回顾一下,就是我们最早创建的工程中的这一界面。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第15张图片

  • 客户信息的缺省值已经被填写,而这一段内容则是来自一个很重要的事件,OnFirstUIBefore。

  • 打开OnFirstUIBefore,可以看到它和OnBegin不同,里面已经内置有很多代码。想知道这些代码都是干什么用的?一个一个试试看呗~

  • 找到下图这段代码(InstallShield版本不同可能代码不同,但是效果都是类似的)。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第16张图片

  • 我先试了一下注释掉它们,发现安装程序并没有什么变化。然后我改动了它们的值。

//只改了这两个
szName = "seven";
szCompany = "mosia";
  • 安装程序就跟着变了。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第17张图片

  • 顺便一提,我还改了bLicenseAccepted的值为TRUE,发现许可认证的选择默认会选择“我接受”,不禁让人想起来之前支付宝账单搞事情……总之这一项还是永远保持FALSE吧。

OnFirstUIBefore

  • 对InstallShield脚本有了一定感觉之后,我想来仔细研究一下OnFirstUIBefore这个函数。我们在Move Data前看到的所有界面都在这个函数中,想要改变这些界面,就不得不自己研究下这个函数。
  • 在这个函数中,除了开始的初始化部分,很明显后面每个分支代表一个界面。为了测试分支和界面的对应,我把每个分支中的szTitle定义为当前分支的名字,如下。
Dlg_SdWelcome:
    szTitle = "SdWelcome"; //我改动的地方
    szMsg = "";
    //{{IS_SCRIPT_TAG(Dlg_SdWelcome)
    nResult = SdWelcome( szTitle, szMsg );
    //}}IS_SCRIPT_TAG(Dlg_SdWelcome)
    if (nResult = BACK) goto Dlg_Start;
  • 然后再去执行安装程序,就可以明确的看到每个界面对应的分支了。方法虽然有点笨,但是好用~
  • 大家可以自己试一试,也可以直接看我下面的截图,省去一些时间。
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第18张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第19张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第20张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第21张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第22张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第23张图片
    InstallShield实例(OnFirstUIBefore分析、安装导航优化)_第24张图片

  • 之后来看看每个分支的代码。做一些改动。

    实例4:去掉输入公司和用户名的界面

  • 很简单的改动就能做到,完整代码如下,改动处见注释。
function OnFirstUIBefore()
    number  nResult, nLevel, nSize, nSetupType;
    string  szTitle, szMsg, szOpt1, szOpt2, szLicenseFile;
    string  szName, szCompany, szTargetPath, szDir, szFeatures;
    BOOL    bLicenseAccepted;
begin   

    // Added in InstallShield 15 - Show an appropriate error message if
    // -removeonly is specified and the product is not installed.
    if( REMOVEONLY ) then
        Disable( DIALOGCACHE );
        szMsg = SdLoadString( IDS_IFX_ERROR_PRODUCT_NOT_INSTALLED_UNINST );
        SdSubstituteProductInfo( szMsg );
        MessageBox( szMsg, SEVERE );
        abort;
    endif;

    nSetupType = COMPLETE;  
    szDir = TARGETDIR;
    szName = "seven";
    szCompany = "mosia";
    bLicenseAccepted = FALSE; 

// Beginning of UI Sequence
Dlg_Start:
    nResult = 0;

Dlg_SdWelcome:
    szTitle = "SdWelcome";
    szMsg = "";
    //{{IS_SCRIPT_TAG(Dlg_SdWelcome)
    nResult = SdWelcome( szTitle, szMsg );
    //}}IS_SCRIPT_TAG(Dlg_SdWelcome)
    if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense2:
    szTitle = "SdLicense2";
    szOpt1 = "";
    szOpt2 = "";
    //{{IS_SCRIPT_TAG(License_File_Path)
    szLicenseFile = SUPPORTDIR ^ "License.rtf";
    //}}IS_SCRIPT_TAG(License_File_Path)
    //{{IS_SCRIPT_TAG(Dlg_SdLicense2)
    nResult = SdLicense2Ex( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted, TRUE );
    //}}IS_SCRIPT_TAG(Dlg_SdLicense2)
    if (nResult = BACK) then
        goto Dlg_SdWelcome;
    else
        bLicenseAccepted = TRUE;
    endif;

// 我的改动:注释了Dlg_SdRegisterUser分支
/*
Dlg_SdRegisterUser:
    szMsg = "";
    szTitle = "SdRegisterUser";
    //{{IS_SCRIPT_TAG(Dlg_SdRegisterUser)   
    nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );
    //}}IS_SCRIPT_TAG(Dlg_SdRegisterUser)
    if (nResult = BACK) goto Dlg_SdLicense2;
*/
Dlg_SetupType2:   
    szTitle = "SetupType2";
    szMsg = "";
    nResult = CUSTOM;
    //{{IS_SCRIPT_TAG(Dlg_SetupType2)   
    nResult = SetupType2( szTitle, szMsg, "", nSetupType, 0 );
    //}}IS_SCRIPT_TAG(Dlg_SetupType2)
    if (nResult = BACK) then
        goto Dlg_SdLicense2;  // 我的改动:原本是gotoDlg_SdRegisterUser
    else
        nSetupType = nResult;
        if (nSetupType != CUSTOM) then
            szTargetPath = TARGETDIR;
            nSize = 0;
            FeatureCompareSizeRequired( MEDIA, szTargetPath, nSize );
            if (nSize != 0) then      
                MessageBox( szSdStr_NotEnoughSpace, WARNING );
                goto Dlg_SetupType2;
            endif;
        endif;   
    endif;

Dlg_SdAskDestPath2:
    if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType2;
    szTitle = "SdAskDestPath2";
    szMsg = "";
    if (nSetupType = CUSTOM) then
                //{{IS_SCRIPT_TAG(Dlg_SdAskDestPath2)   
        nResult = SdAskDestPath2( szTitle, szMsg, szDir );
                //}}IS_SCRIPT_TAG(Dlg_SdAskDestPath2)
        TARGETDIR = szDir;
    endif;
    if (nResult = BACK) goto Dlg_SetupType2;

Dlg_SdFeatureTree: 
    if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath2;
    szTitle = "SdFeatureTree";
    szMsg = "";
    szFeatures = "";
    nLevel = 2;
    if (nSetupType = CUSTOM) then
        //{{IS_SCRIPT_TAG(Dlg_SdFeatureTree)    
        nResult = SdFeatureTree( szTitle, szMsg, TARGETDIR, szFeatures, nLevel );
        //}}IS_SCRIPT_TAG(Dlg_SdFeatureTree)
        if (nResult = BACK) goto Dlg_SdAskDestPath2;  
    endif;

Dlg_SQLServer:
    nResult = OnSQLServerInitialize( nResult );
    if( nResult = BACK ) goto Dlg_SdFeatureTree;

Dlg_ObjDialogs:
    nResult = ShowObjWizardPages( nResult );
    if (nResult = BACK) goto Dlg_SQLServer;

Dlg_SdStartCopy2:
    szTitle = "SdStartCopy2";
    szMsg = "";
    //{{IS_SCRIPT_TAG(Dlg_SdStartCopy2) 
    nResult = SdStartCopy2( szTitle, szMsg );   
    //}}IS_SCRIPT_TAG(Dlg_SdStartCopy2)
    if (nResult = BACK) goto Dlg_ObjDialogs;

    // Added in 11.0 - Set appropriate StatusEx static text.
    SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );

    return 0;
end;

实例5:优化安装导航

  • 过程比较多,改动方法和上面类似,不一一列举了,直接放出结果。
  • 具体的效果是:去掉安装类型的选择,直接进入选择安装路径的界面;调整每个界面的顺序;删除没有用的界面。
  • 优化后的安装导航如下,方便快捷,再也没有那么多繁琐的界面了。
function OnFirstUIBefore()
    number  nResult, nLevel, nSize, nSetupType;
    string  szTitle, szMsg, szOpt1, szOpt2, szLicenseFile;
    string  szName, szCompany, szTargetPath, szDir, szFeatures;
    BOOL    bLicenseAccepted;
begin   

    // Added in InstallShield 15 - Show an appropriate error message if
    // -removeonly is specified and the product is not installed.
    if( REMOVEONLY ) then
        Disable( DIALOGCACHE );
        szMsg = SdLoadString( IDS_IFX_ERROR_PRODUCT_NOT_INSTALLED_UNINST );
        SdSubstituteProductInfo( szMsg );
        MessageBox( szMsg, SEVERE );
        abort;
    endif;

    szDir = TARGETDIR;
    bLicenseAccepted = FALSE; 

// Beginning of UI Sequence
Dlg_Start:
    nResult = 0;

Dlg_SdLicense2:
    szTitle = "SdLicense2";
    szOpt1 = "";
    szOpt2 = "";
    //{{IS_SCRIPT_TAG(License_File_Path)
    szLicenseFile = SUPPORTDIR ^ "License.rtf";
    //}}IS_SCRIPT_TAG(License_File_Path)
    //{{IS_SCRIPT_TAG(Dlg_SdLicense2)
    nResult = SdLicense2Ex( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted, TRUE );
    //}}IS_SCRIPT_TAG(Dlg_SdLicense2)
    if (nResult = BACK) then
        goto Dlg_Start;
    else
        bLicenseAccepted = TRUE;
    endif;         

Dlg_SdWelcome:
    szTitle = "SdWelcome";
    szMsg = "";
    //{{IS_SCRIPT_TAG(Dlg_SdWelcome)
    nResult = SdWelcome( szTitle, szMsg );
    //}}IS_SCRIPT_TAG(Dlg_SdWelcome)
    if (nResult = BACK) goto Dlg_SdLicense2;

Dlg_SdAskDestPath2: 
    if (nResult = BACK) goto Dlg_SdWelcome;
    szTitle = "SdAskDestPath2";
    szMsg = "";
        //{{IS_SCRIPT_TAG(Dlg_SdAskDestPath2)   
    nResult = SdAskDestPath2( szTitle, szMsg, szDir );
        //}}IS_SCRIPT_TAG(Dlg_SdAskDestPath2)
    TARGETDIR = szDir;
    if (nResult = BACK) goto Dlg_SdWelcome;    

    // Added in 11.0 - Set appropriate StatusEx static text.
    SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );

    return 0;
end;
  • 拷贝到自己的工程中试一试吧~

今天主要是优化了下安装前导航,比较皮毛。明天继续研究更深层一些的东西,比如注册表写入。

你可能感兴趣的:(二七七的学习日志)