InstallShield创建自定义对话框 实例

1.在Dialogs视图中，右键All Dialog，选择新建对话框（New Dialog)
2.创建一个空白对话框，命名为MyDlg.
3.双击MyDlg下的子项即可进入对话框的编辑模式
4.这里我们添加一个Hello按钮。选择按钮控件然后在对话框的界面上拖拉出一个按钮控件。
    修改按钮属性text为Hello。注意一下这里的Control Identifer属性值，后面我们会用到。
5.在installscript视图中新建一个rul文件，命名为MyDlg.url
6.编写MyDlg.url
内容如下：
#define DLG_MYDLG "MyDlg" //MyDlg是我们的对话框名字
#define HELLOBTN 1301 //1301就是我们那个按钮的Control Identifer属性值

prototype NUMBER MyDlg(BYREF STRING);

function NUMBER MyDlg(msg)
     HWND    hDlg;     
     NUMBER nId, nResult;
    NUMBER nControl;
    BOOL bDone;
begin
    //初始对话框函数
     if (EzDefineDialog( DLG_MYDLG,ISUSER , "MyDlg", 0 ) = DLG_ERR) then        
     return ISERR_GEN_FAILURE;
    endif;   
      
    bDone = FALSE;
    //循环
    while (!bDone)
        nId = WaitOnDialog( DLG_MYDLG ); //获得对话框的消息   
        switch (nId)    
        case HELLOBTN:      //如果是HELLOBTN
            MessageBox(msg,WARNING);
            bDone=TRUE;                                       
        case DLG_ERR:       
            nId   = ISERR_GEN_FAILURE;
            SdError(nId, DLG_MYDLG);
bDone = TRUE;   
           
        case DLG_CLOSE:             
            SdCloseDlg(hDlg, nId, bDone);  
           
        default:
            // check standard handling
            if (SdIsStdButton(nId) && SdDoStdButton(nId)) then
                bDone = TRUE;
            endif;
                                           
        endswitch;
    endwhile;
end;


7.setup.url内容：
//添加的内容是 #include "MyDlg.rul"
//以及我们自定义的对话框。其他的代码都是自动生成的。
// First Install UI Sequence - Before Move Data
//
// The OnFirstUIBefore event is called by OnShowUI when the setup is
// running in first install mode. By default this event displays UI allowing
// the end user to specify installation parameters.
//
// Note: This event will not be called automatically in a
// program...endprogram style setup.
//---------------------------------------------------------------------------
#include "MyDlg.rul"
function OnFirstUIBefore()
    number nResult, nLevel, nSize, nSetupType;
    string szTitle, szMsg, szOpt1, szOpt2, szLicenseFile;
    string szName, szCompany, szTargetPath, szDir, szFeatures;
    BOOL    bLicenseAccepted;   
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_Hello:
我们自定义的对话框
    szTitle="";   
    szMsg="It's my hello DLG";
    nResult=MyDlg(szMsg);
    if (nResult=BACK) goto Dlg_Start;

。。。。

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_MyDlg;

。。。。

编译运行就可以看到自己的对方框了。