用 Installshield 12 Premier 制作 MSDE2000 SP4 安装包方法和步骤

折腾了整整一天，终于将 MSDE 2000 SP4  和 N 年前用 VB6 开发的一个系统完整的打包到一张光盘上。想当初，VB6 用提供那个安装部署向导制作的安装包需要用户把系统要用到 N 个程序安装 N  遍……甚至 N + X  遍 ！且不说用户抱怨，我也不省其繁。

1、从  http://www.microsoft.com/downloads/details.aspx?familyid=8E2DFC8D-C20E-4446-99A9-B7F0213F8BC5&displaylang=zh-cn 下载 MSDE 2000 SP4，打包备用；
2、在 Installshield 12 Premier  创建一个 InstallScript  项目。要创建这种项目需要现安装 Installshield Installscript Objects，这个部件可以从 http://www.installshield.com 下载；
选择 InstallScript  项目的原因是我们要利用 InstallScript 脚本代码来完成 MSDE 2000 SP4  的安装。设置 InstallScript  项目具体过程没什么别需要说明的，整个过程很比较简单。唯一要注意的是在“Build Installation”这一步骤是选择“CD-ROM”以便于随后我们向这个安装影像中添加 MSDE 2000 SP4 的安装目录；
3、编写 InstallScript 代码。在 Installation Designer 卡片中，单击左边那棵树中的“InstallScript” 结点。在右边的 Setup.Rul 窗格中顶部第一个DropDownList 中选中“After Move Data” ，在第二个DropDownList 中选中“OnFirstUIAfter”，系统自动添加 OnFirstUIAfter() 函数。对各位大侠来说，这些代码简直是小菜一碟。

// ---------------------------------------------------------------------------
//  OnFirstUIAfter
//
//  First Install UI Sequence - After Move Data
//
//  The OnFirstUIAfter event called by OnShowUI after the file transfer
//  of the setup when the setup is running in first install mode. By default
//  this event displays UI that informs the end user that the setup has been
//  completed successfully.
//
//  Note: This event will not be called automatically in a
//  programendprogram style setup.
// ---------------------------------------------------------------------------
function OnFirstUIAfter()
    STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;
    NUMBER bvOpt1, bvOpt2;
    NUMBER bShowUpdateServiceDlg;
    STRING szWaitText;
    STRING szServiceName;
    NUMBER svServiceState;
    STRING szMsde2000, szCmdLine,szStartServiceArgs;
begin
     //  如果安装程序以“维护”模式启动
     if  (MAINTENANCE) then
         goto  EndProcess;
    endif;

     //  检查系统是否安装了 MSDE 2000 SP4
    szWaitText  =   " 正在检查系统是否安装了 MSDE2000 SP4 ……. " ;
    SdShowMsg( szWaitText, TRUE);    
    
    szServiceName  =   " MSSQLSERVER " ;
     if (ServiceGetServiceState(szServiceName, svServiceState)  <  ISERR_SUCCESS) then
         //  没有安装 MSDE，转安装处理
         goto  InstallMSDE;    
    endif;
     goto  StartMSDE; 
    
InstallMSDE:   //  安装数据库服务  
    szWaitText  =   " 正在安装 MSDE2000 SP4。这个过程需要几分钟，请稍等 " ;
    SdShowMsg(szWaitText, TRUE); 
    
    szMsde2000  =  SRCDIR  ^   " MSDE "   ^   " setup.exe " ;
     //  将 MSDE 2000 SP4 安装到系统 Program File 目录下
    szCmdLine  =   " TARGETDIR=\ ""  + PROGRAMFILES +  " \ "  /q " ;
     if (LaunchAppAndWait(szMsde2000, szCmdLine, LAAW_OPTION_WAIT | LAAW_OPTION_MAXIMIZED)  <   0  ) then
        MessageBox ( " 安装 MSDE2000 SP4 失败，请联系系统管理员！ " , SEVERE);
         goto  EndProcess;
    endif;

StartMSDE:  //  启动 MSDE2000 服务
    szWaitText  =   " 正在启动 MSDE2000 SP4 ……. " ;
    SdShowMsg( szWaitText, TRUE);    
   
     //  安装了 MSDE 2000, 试着启动服务
    szStartServiceArgs  =   "" ;    
     if (svServiceState  !=  SERVICE_RUNNING) then
         if  (ServiceStartService (szServiceName, szStartServiceArgs)  <  ISERR_SUCCESS ) then
            MessageBox ( " 启动服务 "   +  szServiceName  +   " 出错。 " , SEVERE);
             goto  EndProcess;
        endif;        
    endif;

     //  加载用户数据库
    szWaitText  =   " 正在创建所需数据库. " ;
    SdShowMsg(szWaitText, TRUE);
    Delay( 2 ); 
    
     //  先试着分离先前已经加载的数据库
    szCmdLine  =   " -E -Q \ " exec exec sp_detach_db TestDB \ "" ;
     if (LaunchAppAndWait( " osql.exe  " , szCmdLine, LAAW_OPTION_WAIT | LAAW_OPTION_HIDDEN)  <   0 ) then 
        MessageBox ( " 分离原来的数据库失败！请确认系统中已安装 MSDE 2000 SP4 并且服务已启动。\n如问题仍无法解决，请与联系统管理员联系！ " , SEVERE); 
    endif; 
    
     //  将数据文件复制到程序安装目录
    CreateDir( TARGETDIR  ^   " Data " );
    CopyFile( SRCDIR  ^   " Data "   ^   " TestDB.mdf " , TARGETDIR  ^   " Data "   ^   " TestDB.mdf " );
    CopyFile( SRCDIR  ^   " Data "   ^   " TestDB.ldf " , TARGETDIR  ^   " Data "   ^   " TestDB.ldf " );    
    
     //  附加数据库    
    szCmdLine  =   " -E -Q \ " exec sp_attach_db  ' TestDB ' ,  ' "+  TARGETDIR ^ "Data" ^ "TestDB.mdf ' ,  ' " +  TARGETDIR ^ "Data" ^ "TestDB.ldf '  \ "" ; 
     if  (LaunchAppAndWait( " osql.exe  " , szCmdLine, LAAW_OPTION_WAIT | LAAW_OPTION_HIDDEN)  <   0 ) then 
          MessageBox ( " 数据库创建失败！请确认系统中已安装 MSDE 2000 SP4 并且服务已启动。\n如问题仍无法解决，请与联系统管理员联系！ " , SEVERE); 
    endif;
    
    SdShowMsg(szWaitText, FALSE);     
    
EndProcess:    
    
     //  以下代码是系统自动插入的
    ShowObjWizardPages(NEXT);
    
    szTitle  =   "" ;
    szMsg1  =   "" ; 
    szMsg2  =   "" ;
    szOpt1  =   "" ;
    szOpt2  =   "" ;
    bvOpt1    =  FALSE;
    bvOpt2    =  FALSE;    

     //  Set this to true if you have the update service enabled, and if you want to check for updates.
     //  Note: the ISUS Starter Edition does not support checking for updates programatically.  So, 
     //  only set this to true if you have at least the ISUS Professional Edition.
    bShowUpdateServiceDlg  =  FALSE;
    
     // {{IS_SCRIPT_TAG(Dlg_SdDinishEx)    
    
     if  ( BATCH_INSTALL ) then
        SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 ,  0  );
     else
        
         //  If the update service is enabled, show finish dialog that includes
         //  update check option.
         if ( bShowUpdateServiceDlg  &&  ( ENABLED_ISERVICES  &  SERVICE_ISUPDATE ) ) then

             if ( SdFinishUpdateEx( szTitle, szMsg1, szMsg2, szOpt1, szOpt2, TRUE ) ) then

                 //  Don't check for updates in silent mode.
                 if ( MODE  !=  SILENTMODE ) then
                    UpdateServiceCheckForUpdates(  "" , FALSE );
                endif;

            endif;

         else
            SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bvOpt1 , bvOpt2 );
        endif;

    endif;
     // }}IS_SCRIPT_TAG(Dlg_SdDinishEx)    
end; 

4、按F7 制作安装影像。生成的安装影像文件位于 [盘符:]\InstallShield Express Projects\[安装项目名称]\Media\cdrom\Disk Images\Disk1
5、向影像中添加 MSDE 2000 SP4 的安装文件。
    5a）请先参照 MSDE 2000 ReadmeSql2k32desksp4.htm 中《4.1 再分发 MSDE 2000 SP4》的说明。
    5b）打开文件夹 [盘符:]\InstallShield Express Projects\[安装项目名称]\Media\cdrom\Disk Images\Disk1， 然后创建两个子文件 MSDE  和 Data 。
            [盘符:]\InstallShield Express Projects\[安装项目名称]\Media\cdrom\Disk Images\Disk1\MSDE    用于存放 MSDE 2000 SP4  安装文件；
            [盘符:]\InstallShield Express Projects\[安装项目名称]\Media\cdrom\Disk Images\Disk1\Data   用于存放你要安装的数据库文件；
 6、说明：MSDE 2000 ReadmeSql2k32desksp4.htm 中《4.1 再分发 MSDE 2000 SP4》中的说明并太确切。实际上，为了让 MSDE 2000 SP4 的Setup.exe 正确运行，还需要将所下载并解压 MSDE 2000 SP4 中 *.dll  和 *.rll 复制到 [盘符:]\InstallShield Express Projects\[安装项目名称]\Media\cdrom\Disk Images\Disk1\MSDE  中