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;

。。。。

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

转自：http://www.xue163.com/131/6/1317403.html