有关制作安装软件的问题

[yuanl]

我作的程序有两种，一这客户端使用的，另一为服务器使用的。我想在安装时，将这两种程序都作在一起，在安装时，第一个界面将这两种程序安装提示就显示出，然后，让安装人员来根据需要进行软件安装。
请教应如何做？

[yuanl]

能给个实例吗？

[datianshi]

InstallSheild有这个功能方法是


Dlg_rr:
szMsg="请选择您要安装的类型:";
szText1="客户端";
szText2="服务器端";
// szText3="Win2000";
nvCheck1=TRUE;
if (nResult = BACK)
goto Dlg_SdRegisterUserEx;

nValue = EXCLUSIVE;
AskOptions(nValue, szMsg,
szText1, nvCheck1,
szText2, nvCheck2
//szText3, nvCheck3
);

[rofole]

gz

[modena]

好象要自己做对话框的DLL

[yuanl]

InstallSheild中有没有类型的功能？

[modena]

有，不知道“SdAskOption”可不可以实现

[yuanl]

datianshi(大天使)
不知道，这段的程序放在哪
谢谢

[datianshi]

不好意思刚刚
看见这段程序一般放在 UNtreberfore的函数中的
Dlg_welcome后面

[yuanl]

我是刚开始用InstallSheild的，请教了？
谢谢

[yuanl]

为什么我的程序中有Dlg_SdWelcome，而无Dlg_welcome
请教，能不能将与之有关的程序发给我。
谢谢


我的程序中：
Dlg_SdWelcome:
nResult = DialogShowSdWelcome();
if (nResult = BACK) goto Dlg_Start;

[datianshi]

function OnFirstUIBefore()
NUMBER nResult,nSetupType;
STRING szTitle, szMsg;
STRING szLicenseFile, szQuestion;
STRING svName, svCompany, svSerial;
STRING szDir;
STRING szfolder;
NUMBER rc;

STRING System32,Saccept,First,Temp,pathdir;
INT CacheNumber,i;
NUMBER nFileHandle;


STRING svMatchingFileName,svFindPath;

NUMBER findResult,findDirResult,listDirResult;

LIST listDirs;
b
begin
// TO DO: if you want to enable background, window title, and caption bar title
// SetTitle( @TITLE_MAIN, 24, WHITE );
// SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );
// Enable( FULLWINDOWMODE );
// Enable( BACKGROUND );
// SetColor(BACKGROUND,RGB (0, 128, 128));

TARGETDIR = szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
svName = "";
svCompany = "";
svSerial = "";

Dlg_Start:
// beginning of dialogs label

Dlg_SdWelcome:
szTitle = "";
szMsg = "";
nResult = SdWelcome( szTitle, szMsg );
if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense:
szLicenseFile = SUPPORTDIR ^ "license.txt";
szTitle = "";
szMsg = "";
szQuestion = "";
nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );
if (nResult = BACK) goto Dlg_SdWelcome;

Dlg_SdRegisterUserEx:
szMsg = "请输入您的用户名、所在的公司名称以及产品序列号。\n\n授权序列号您可以从用户卡、光盘封面或说明书封面获得！";
szTitle = "";
nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );
if (nResult = BACK) goto Dlg_SdLicense;

Dlg_rr:
szMsg="请选择您要安装的类型:";
szText1="客户端";
szText2="服务器端";
// szText3="Win2000";
nvCheck1=TRUE;
if (nResult = BACK)
goto Dlg_SdRegisterUserEx;

nValue = EXCLUSIVE;
AskOptions(nValue, szMsg,
szText1, nvCheck1,
szText2, nvCheck2
//szText3, nvCheck3
);


Dlg_SdAskDestPath:
szTitle = "";
szMsg = "";
nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );
TARGETDIR = szDir;
if (nResult = BACK) goto Dlg_rr;

Dlg_ObjDialogs:
nResult = ShowObjWizardPages(nResult);
if (nResult = BACK) goto Dlg_SdAskDestPath;

Dlg_SdSelectFolder:
szfolder = SHELL_OBJECT_FOLDER;
szTitle = "";
szMsg = "";
nResult = SdSelectFolder( szTitle, szMsg, szfolder );
SHELL_OBJECT_FOLDER = szfolder;
if (nResult = BACK) goto Dlg_ObjDialogs;
CreateDir(TARGETDIR);

VarSave(SRCTARGETDIR);
SRCDIR=SRCDIR+"\\BIN";
XCopyFile("*.*","*.*",INCLUDE_SUBDIR);
VarRestore(SRCTARGETDIR);
你看看吧

[sharpblade]

ok

[yuanl]

thank