BS项目的安装包代码.docx

BS 项目的安装包代码
使用 Installshield 制作 asp， 应用的安装程序
日期：2007年03月30日来源：BLOG作者：Rinso添加：伊扬得分： 度：
在使用 asp， 编写 m file
// transfer.
//
/////////////////////////////////////////////////////////////////////////////// function OnFirstUIBefore()
// number nResult,nSetupType;
// string szTitle, szMsg;
// string szLicenseFile, szQuestion;
// string szName, szCompany;
// string szTargetPath;
// string szDir;
// string
szFeatures, szTargetdir;
// number nLevel;
// LIST listStart
Copy;
//number nvSize;
//number nUser;
number nResult,nSetupType;
string szTitle, szMsg;
string szLicenseFile, szQuestion;
string szName, szCompany, szSerial;
string szFeatures, szTargetdir;
number nLevel;
LIST listStartCopy,list;
number nvSize;
number nUser;
number nOpt,svEdit1,svEdit2;
STRING szServerIP,szServerPort,szServerIPDefault,szServerPortDefault;
STRING szSQLsvr,szSQLusr,szSQLpwd,svSQLsvr,svSQLusr,svSQLpwd;
STRING svName, svCompany, svSerial;
STRING szFile,szTargetPath,szDir,szfolder;
STRING szField1,szField2;
STRING szDefault,svResult;
string szComponents;
OBJECT piisObj;
STRING szTitle1;
STRING szMsg1,szMsg2;
STRING szMsg11, szMsg12, szOpt1, szOpt2;
BOOL bvOpt1, bvOpt2;
begin
// TO DO: if you want to enable background, window title, and caption bar title //SetTitle( ***@PRODUCT_NAME, 24, WHITE );
// SetTitle( ***@PRODUCT_NAME, 0, BACKGROUNDCAPTION );
// Enable( FULLWINDOWMODE );
// Enable( BACKGROUND );
// SetColor(BACKGROUND,RGB (0, 128, 128));
//SetFo nt (FONT_TITLE, STYLE_NORMAL, & quot;宋体");
SHELL_OBJECT_FOLDER = ***@PRODUCT_NAME;
nSetupType = TYPICAL;
szDir = INSTALLDIR;
szName = "";
szCompany = "";
Dlg_Start:
// beginning of dialogs label
Dlg_SdWelcome:
szTitle = "";
szMsg = "";
nResult = SdWelcome( szTitle, szMsg );
if (nResult = BACK) goto Dlg_Start;
Dlg_SdLicense:
szLice nseFile = SUPPORTDIR A & quot;lice ";
szTitle = "";
szMsg = "";
szQuestio