InstallShield SQL 数据库安装

来源:http://hi.baidu.com/czgblog/blog/item/3abd5aa911d51ff51f17a292.html
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(LaunchAppAndWaitszMsde2000, szCmdLine, LAAW_OPTION_WAIT|LAAW_OPTION_MAXIMIZED) < 0 ) then
         Mes