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 就会显示出保存输入值的常量)