码迷,mamicode.com
首页 > 其他好文 > 详细

InstallShield 一些事件说明

时间:2015-03-11 19:33:39      阅读:392      评论:0      收藏:0      [点我收藏+]

标签:

InstallShield 一些事件说明,和常量代码

 

 

大家可以把所有事件都点出来然后单步追踪就行了,我的经验是一般是从OnShowUI第一次显示UI界面开始,很容易就找到大家想处理的事件,另贴几个我发现的事件,这些事件描述不是很准确大家不要当真哦.

在加一些文件注册 服务开启 动作.

#include "ifx.h"       

//这是一个自定义函数

prototype MsgBox(STRING);//声名函数原型  

function MsgBox(msg)

begin

   //return MessageBox (msg,SEVERE);

   return MessageBox (msg,MB_YESNO);

end;

#include "ifx.h"

//---------------------------------------------------------------------------                                                                       

// OnFirstUIBefore

//

//---------------------------------------------------------------------------

function OnFirstUIBefore()

    number nResult, nLevel, nSize, nSetupType;

    string szTitle, szMsg, szOpt1, szOpt2, szLicenseFile,szKeyRoot;

    string szName, szCompany, szTargetPath, szDir, szFeatures;

    BOOL    bLicenseAccepted;   

    string szExePath,szCmdPath;

    NUMERIC szServiceState ;

begin

  

    nSetupType = COMPLETE;

    szDir = TARGETDIR;

    szName = "";

    szCompany = "";

    bLicenseAccepted = FALSE;

// Beginning of UI Sequence

Dlg_Start:

    nResult = 0;

Dlg_SdWelcome:

    szTitle = "";

    szMsg = "";

    //{{IS_SCRIPT_TAG(Dlg_SdWelcome)

    nResult = SdWelcome( szTitle, szMsg );

    //}}IS_SCRIPT_TAG(Dlg_SdWelcome)

    if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense2:

    szTitle = "";

    szOpt1 = "";

    szOpt2 = "";

    //{{IS_SCRIPT_TAG(License_File_Path)

    szLicenseFile = SUPPORTDIR ^ "License.rtf";

    //}}IS_SCRIPT_TAG(License_File_Path)

    //{{IS_SCRIPT_TAG(Dlg_SdLicense2)

    nResult = SdLicense2Rtf( szTitle, szOpt1, szOpt2, szLicenseFile, bLicenseAccepted );

    //}}IS_SCRIPT_TAG(Dlg_SdLicense2)

    if (nResult = BACK) then

        goto Dlg_SdWelcome;

    else

        bLicenseAccepted = TRUE;

    endif;

Dlg_SdRegisterUser:

    szMsg = "";

    szTitle = "";

    //{{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 = "";

    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_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 = "";

    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 = "";

    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 = "";

    szMsg = "";  

    //显示各种路径

    MessageBox("TARGETDIR=" + TARGETDIR + "\n"

    +"SUPPORTDIR=" + SUPPORTDIR + "\n"

    +"WINSYSDIR=" + WINSYSDIR + "\n"

    +"DISK1TARGET=" + DISK1TARGET + "\n"

    +"<FOLDER_APPLICATIONS>=" + FOLDER_APPLICATIONS + "\n"

    +"<IFX_COMPANY_NAME>=" + IFX_COMPANY_NAME + "\n"

    +"<IFX_PRODUCT_NAME>=" + IFX_PRODUCT_NAME + "\n"

    +"szOpt2=" + szOpt2 + "\n"

    +"szLicenseFile=" + szLicenseFile + "\n"  

    +"szTargetPath=" + szTargetPath + "\n"

    +"szDir=" + szDir + "\n"  

    +"szFeatures=" + szFeatures + "\n"

    +"szOpt1=" + szOpt1 + "\n",MB_YESNO);  

    //开始安装其他的程序

    szExePath = SUPPORTDIR ^ "test.exe";     //这个是放入缓存文件夹里面执行,执行完后自动删除

    //添加缓存文件夹步骤

    //1.选择Support Files /Billboards ->Language IndePendent -> INsert File

   

    //安装其他程序

    //只能判断程序执行没执行 不能判断执行安装成功,需要通过读取注册表来判断

    //if LaunchAppAndWait (szExePath, "", WAIT) < 0 then

    //   MessageBox("不能安装该程序,本次安装失败!",SEVERE);

    //   abort;

    //endif;

    

    //执行Bat文件

    //szExePath = SUPPORTDIR ^ "test.bat";

    //if LaunchAppAndWait (szExePath, "", WAIT) < 0 then

    //   MessageBox("bat程序执行失败",SEVERE);

    //   abort;

    //endif;

    

//注意了 执行这些.exe .bat 文件一定要放到SUPPORTDIR 文件夹去,直接D:\test.bat不能直接执行成的

    //当然下面的cmd.exe 系统命令除外,我估计是他内至支持的(估计的!)

    //执行CMd命令   /c 注意这个/ 不是\记住

   // szExePath = WINSYSDIR^ "cmd.exe";

   // if LaunchAppAndWait (szExePath, "/c del c:\\01.txt", WAIT) < 0 then

    //   MessageBox("CMD执行失败",SEVERE);

    //   abort;

    //endif;   

    

//关于注册 在我们使用InstallShield导入文件时,可以设置selt-register 他就会自动注册与卸载了.

    //执行RegSvr32注册组件命令

    //szExePath = "/s C:\\Example\\原始文件\\jmail.dll"; //注意/s 参数要放在参数命令里

   // if LaunchAppAndWait (WINSYSDIR ^ "Regsvr32", szExePath , WAIT) < 0 then

    //   MessageBox("注册组件执行失败",SEVERE);

    //   abort;

    //endif;   

   

    //取消注册

    //szExePath = "/s /u C:\\Example\\原始文件\\jmail.dll"; // /u 卸载

   // if LaunchAppAndWait (WINSYSDIR ^ "Regsvr32", szExePath , WAIT) < 0 then

    //   MessageBox("取消注册组件执行失败",SEVERE);

    //   abort;

    //endif;   

      

    //关闭服务

    //szExePath = WINSYSDIR^ "NET";

    //if LaunchAppAndWait (szExePath, "STOP   MSSQLSERVER", WAIT) < 0 then

    //   MessageBox("关闭服务失败",SEVERE);

    //   abort;

   // endif;

   

    //开启服务

    //szExePath = WINSYSDIR^ "NET";

    //if LaunchAppAndWait (szExePath, "START   MSSQLSERVER", WAIT) < 0 then

    //   MessageBox("开启服务失败",SEVERE);

   // abort;

    //endif;   

    //判断服务是否开启

    szServiceState = SERVICE_STOP_PENDING; //这里主要是定义数据类型,这个很重要 否则出错.

    if ServiceGetServiceState("MSSQLSERVER", szServiceState)< ISERR_SUCCESS then

         MessageBox("MSSQLSERVER服务关闭",SEVERE);

    else

    MessageBox("MSSQLSERVER服务开启",SEVERE);         

    endif;

    // ServiceAddService 添加服务 ServiceRemoveService 删除服务

    //ServiceExistsService 判断服务是否存在 ServiceGetServiceState 检查服务是否启动

    //if MessageBox("是否关闭服务!",MB_YESNO) = IDYES then    

    // ServiceStopService("MSSQLSERVER");

    //endif;

     

    //if MessageBox("是否开启服务!",MB_YESNO) = IDYES then    

    // ServiceStartService("MSSQLSERVER","");

    //endif;

   

    if MessageBox("是否退出本次安装!",MB_YESNO) = IDYES then    

    abort;

    endif;

       

    //{{IS_SCRIPT_TAG(Dlg_SdStartCopy2)

    nResult = SdStartCopy2( szTitle, szMsg );

    //}}IS_SCRIPT_TAG(Dlg_SdStartCopy2)

    if (nResult = BACK) goto Dlg_ObjDialogs;

   

    //这里开始写注册表

    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); //设置注册表函数默认值

    //szKeyRoot = "SOFTWARE\\ISsample" ; //需创建多个子项时要一个一个创建否则卸载不了

    //RegDBCreateKeyEx (szKeyRoot , "" ); //了用""代替类

    //设置键值   size = -1 InstallShield自动设置大小

    //RegDBSetKeyValueEx(szKeyRoot,"config_string",REGDB_STRING,"Hello",-1);

    //RegDBSetKeyValueEx(szKeyRoot,"config_numer",REGDB_NUMBER,"1",-1);

   

    //在本身创建的目录下写注册表   

    szKeyRoot = "SOFTWARE"^IFX_COMPANY_NAME^IFX_PRODUCT_NAME ;

    RegDBSetKeyValueEx(szKeyRoot,"Path",REGDB_STRING,TARGETDIR,-1);

    RegDBSetKeyValueEx(szKeyRoot,"config",REGDB_NUMBER,"1",-1);

   

    // Added in 11.0 - Set appropriate StatusEx static text.

    SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_FIRSTUI ) );

    return 0;

end;

//---------------------------------------------------------------------------

// OnMaintUIBefore

// 卸载向导页

//---------------------------------------------------------------------------

function OnMaintUIBefore()

    number nResult, nType, nMediaFlags;

    string szTitle, szMsg, szIgnore;

    string szKeyRoot,szPath ,szConfigStr;

    int szConfig;

    NUMBER   nType1,nType2,nvSize;   //提取注册表时,一定要把他转换成这种数据类型,否则出错

begin

//显示注册表值

nType1 =   REGDB_STRING;

nType2 =   REGDB_NUMBER;

nvSize = -1;

RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);

szKeyRoot = "SOFTWARE"^IFX_COMPANY_NAME^IFX_PRODUCT_NAME;

//RegDBSetKeyValueEx (szKeyRoot, "Path", nType1, "Hello",nvSize);//看能否取到值

RegDBGetKeyValueEx (szKeyRoot, "Path", nType1, szPath,nvSize);

//RegDBGetKeyValueEx (szKeyRoot, "config",nType2, szConfig,nvSize);

MessageBox("路径:" + szKeyRoot + "注册表值:"+ szPath ,MB_YESNO);

// nType defaults to MODIFY.

nType = MODIFY; //可修改这个默认值

    //Initialize SQL

    OnSQLServerInitializeMaint();

// Beginning of UI Sequence

Dlg_Start:

    // Added in Version 9.5 - Support for REMOVEONLY option.

    if( !REMOVEONLY ) then

    // In standard mode show maintenance dialog

     Disable( BACKBUTTON );

     nType = SdWelcomeMaint( szTitle, szMsg, nType );

     Enable( BACKBUTTON );

        nResult = NEXT;

    else

        // Hide the initial progress dialog as otherwise the user can

        // click on it, and hide the MessageBox.

        Disable( DIALOGCACHE );

        // In RemoveOnly mode, set to remove.

        nType = REMOVEALL;

    endif;

// Show Uninstall Confirmation Dialog

    if ( nType = REMOVEALL ) then          //删除事件

   nResult = MessageBox( SdLoadString( IFX_MAINTUI_MSG ), MB_YESNO );

   if (nResult != IDYES ) then

           

            if( REMOVEONLY ) then

                // In REMOVEONLY mode, abort the setup.

                abort;

            else

                // In non-REMOVEONLY mode, redisplay the previous dialog.

       goto Dlg_Start;

            endif;

   endif;

endif;

Dlg_SdFeatureTree:

if ( nType = MODIFY ) then

   szTitle = "";

   szMsg = SdLoadString( SD_STR_COMPONENT_MAINT_MSG );

   nResult = SdFeatureTree( szTitle, szMsg, TARGETDIR, "", -1 );

   if ( nResult = BACK ) goto Dlg_Start;

    endif;

Dlg_ObjDialogs:

    nResult = ShowObjWizardPages( nResult );

    if ( ( nResult = BACK ) && ( nType != MODIFY ) ) goto Dlg_Start;

    if ( ( nResult = BACK ) && ( nType = MODIFY ) ) goto Dlg_SdFeatureTree;

switch(nType)

        case REMOVEALL:          //卸载调用 (有卸载有做的动作都可以放到这里来)

     

    // Ensure that all previously installed features are removed

    // for media that supports updating.

    MediaGetData( MEDIA, MEDIA_FIELD_MEDIA_FLAGS, nMediaFlags, szIgnore );

  

    if( nMediaFlags & MEDIA_FLAG_UPDATEMODE_SUPPORTED ) then

     FeatureRemoveAllInMediaAndLog();

    else

     FeatureRemoveAllInMedia();

    endif;

            // Added in 11.0 - Set appropriate StatusEx static text.

            SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ) );

        case REPAIR:       //修复

   

    // Changed for DevStudio 9, Disk1 files are now always updated when installed

    // so when running from ADDREMOVE we need to prevent these files from being

    // updated since this will result in files being updated that are locked by the setup.

    // Updating these files when running from ADDREMOVE should not be needed since updates

    // are not run directly from Add/Remove.

            if( ADDREMOVE ) then

                // Reinstall all previously installed features, except

                // disk1 features.

                FeatureUpdate( "" );

            else

                // Reinstall all previously installed features.

                FeatureReinstall();

            endif;

            // Added in 11.0 - Set appropriate StatusEx static text.

            SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REPAIR ) );

        case MODIFY:           //修改事件

           

            // Added in 11.0 - Set appropriate StatusEx static text.

            SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_MODIFY ) );

    endswitch;

end;

//---------------------------------------------------------------------------

// OnFirstUIAfter

// 安装完成后,点完成前发生的事件

//

//---------------------------------------------------------------------------

function OnFirstUIAfter()

    STRING szTitle, szMsg1, szMsg2, szOpt1, szOpt2;

    NUMBER bvOpt1, bvOpt2;

NUMBER bShowUpdateServiceDlg;

begin

    //MessageBox("开始了OnFirStUIAfter!",MB_YESNO ) ;

    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;

//---------------------------------------------------------------------------

// OnAbort

//取消按钮退出,最后点完成发生事件

//---------------------------------------------------------------------------

function OnAbort()

begin    

//MessageBox("发生OnAbort事件!", MB_YESNO ) ;

end;

//---------------------------------------------------------------------------

// OnUpdateUIAfter

//

// Update Mode UI Sequence - After Move Data

//

// The OnUpdateUIAfter event called by OnShowUI after the file transfer

// of the setup when the setup is running in update mode. By default

// this event displays UI that informs the end user that the maintenance setup

// has been completed successfully.

//

// Note: This event will not be called automatically in a

// program...endprogram style setup.

//---------------------------------------------------------------------------

function OnUpdateUIAfter()

    string szTitle, szMsg1, szMsg2, szOpt1, szOpt2;

    BOOL bOpt1, bOpt2;

begin

    MessageBox("OnUninstall", MB_YESNO ) ;

    ShowObjWizardPages(NEXT);

   

szTitle = SdLoadString(IDS_IFX_SDFINISH_UPDATE_TITLE);   

    szMsg1 = SdLoadString(IDS_IFX_SDFINISH_UPDATE_MSG1);

szMsg2 = "";   

    szOpt1 = "";

    szOpt2 = "";

bOpt1   = FALSE;

    bOpt2   = FALSE;   

   

    if ( BATCH_INSTALL ) then

    SdFinishReboot ( szTitle , szMsg1 , SYS_BOOTMACHINE , szMsg2 , 0 );

    else   

       SdFinish ( szTitle , szMsg1 , szMsg2 , szOpt1 , szOpt2 , bOpt1 , bOpt2 );

    endif;

end;

//---------------------------------------------------------------------------

// OnShowUI

//在第一次弹出向导页发生

//---------------------------------------------------------------------------

function OnShowUI()

BOOL bMaintenanceMode, bUpdateMode;

string szIgnore, szTitle;

begin

   //MessageBox("OnShowUI", MB_YESNO ) ;

   // Enable dialog caching

   Enable( DIALOGCACHE );

  

   // Determine what events to show.

   bUpdateMode = FALSE;

   bMaintenanceMode = FALSE;

   // Remove this to disabled update mode.

   if( UPDATEMODE ) then

    bUpdateMode = TRUE;

   endif;

   // Remove this to disable maintenance mode.

   if ( MAINTENANCE ) then

    bMaintenanceMode = TRUE;

   endif;

   // Show appropriate UI

   // TODO: Enable if you want to enable background etc.

   //if ( LoadStringFromStringTable( "TITLE_MAIN", szTitle ) < ISERR_SUCCESS ) then // Load the title string.

   // szTitle = IFX_SETUP_TITLE;

   //endif;

   //SetTitle( szTitle, 24, WHITE );

   //Enable( FULLWINDOWMODE );        

   //Enable( BACKGROUND );

   //SetColor( BACKGROUND, RGB( 0, 128, 128 ) );

   if( bUpdateMode ) then

    OnUpdateUIBefore();

   else

    if ( bMaintenanceMode ) then

     OnMaintUIBefore();

    else

     OnFirstUIBefore();

    endif;

   endif;

   // Move Data

   OnMoveData();

  

   if( bUpdateMode ) then

    OnUpdateUIAfter();

   else

    if ( bMaintenanceMode ) then

     OnMaintUIAfter();

    else

     OnFirstUIAfter();

    endif;

   endif;

   // Disable dialog caching

   Disable(DIALOGCACHE);

end;

//下面介绍一些长用常量:

BATCH_INSTALL 指示当传输文件采用LOCKEDFILE或SHAREDFILE时是否锁定文件

CMDLINE Setup.exe传递的命令行参数

COMMONFILES Common files全路径如“c:\program file\common files”

ERRORFILENAME

FOLDER_DESKTOP Windows 95 或Windows NT 4.0桌面folder的路径

FOLDER_PROGRAMS Windows 95 或Windows NT 4.0 开始菜单中 开始\程序 的folder

FOLDER_STARTMENU Windows 95 或Windows NT 4.0 开始菜单中 开始 的folder

FOLDER_STARTUP Windows 95 or Windows NT 4.0 开始菜单中 启动 的folder

INFOFILENAME InstallShield创建的备份文件全文件名

ISRES _isres.dll全文件名

ISUSER _isuser.dll全文件名

ISVERSION 版本

MEDIA 当前Media库名

MODE 指示程序运行于normal还是silent模式

PROGRAMFILES Windows 95 or Windows NT 4.0 “Program files” folder

SELECTED_LANGUAGE 安装选择的语言号

SRCDIR 安装源目录的全路径

SRCDISK 安装源目录的盘符

SUPPORTDIR 临时文件路径

TARGETDIR 安装目的目录的全路径

TARGETDISK 安装目的目录的盘符

UNINST unInstallShield程序用的反安装文件全文件名

WINDIR Windows的全路径(c:\windows)

WINDISK Windows位于的盘符

WINSYSDIR Windows\system的全路径(c:\windows\system32)

WINSYSDISK Windows\system位于的盘符

FOLDER_LOCAL_APPDATA //用户系统目录

DISK1TARGET // 安装文件所在路径

FOLDER_APPLICATIONS

IFX_COMPANY_NAME //发布者名

IFX_PRODUCT_NAME //程序名

IFX_PRODUCT_VERSION //版本号

(你也可以在帮助文件中搜索 IFX 就会显示出保存输入值的常量)

InstallShield 一些事件说明

标签:

原文地址:http://www.cnblogs.com/Alex80/p/4330436.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!