极光下载站 - 打造齐全的绿色软件家园

极光下载站

当前位置: 首页 技术开发 ASP专区 看人家用使用InstallShield制作ASP安装程序 (续3)

看人家用使用InstallShield制作ASP安装程序 (续3)

时间:2006/7/19 13:37:19 作者:佚名 人气:32

////////////////////////////////////////////////////////////////////////////////
//
//IIIIIII SSSSSS
//IISSInstallShield (R)
//IISSSSSS(c) 1996-1999, InstallShield Software Corporation
//IISS(c) 1990-1996, InstallShield Corporation
//IIIIIII SSSSSSAll Rights Reserved.
//
//
//This code is generated as a starting setup template.You should
//modify it to provide all necessary steps for your setup.
//
//
//File Name:Setup.rul
//
//Description:InstallShield script
//
//Comments:This template script performs a basic setup. With minor
//modifications, this template can be adapted to create
//new, customized setups.
//
////////////////////////////////////////////////////////////////////////////////


// Include header files

#include "ifx.h" //DO NOT REMOVE

////////////////////// string defines ////////////////////////////

//////////////////// installation declarations ///////////////////

// ----- DLL function prototypes -----


// your DLL function prototypes


// ---- script function prototypes -----


// your script function prototypes

// your global variables



//////////////////////////////////////////////////////////////////////////////
//
//FUNCTION:OnFirstUIBefore
//
//EVENT:FirstUIBefore event is sent when installation is run for the first
//time on given machine. In the handler installation usually displays
//UI allowing end user to specify installation parameters. After this
//function returns, ComponentTransferData is called to perform file
//transfer.
//
///////////////////////////////////////////////////////////////////////////////
function OnFirstUIBefore()
NUMBERnResult,nSetupType;
STRINGszTitle, szMsg;
STRINGszLicenseFile, szQuestion;
STRINGsvName, svCompany, svSerial;
STRINGszDir;
STRINGszfolder;
STRINGszComponents, szTargetdir;
NUMBERnLevel;

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 = "C:\\Inetpub\\wwwroot\\WebApp";
szDir = TARGETDIR;
SHELL_OBJECT_FOLDER = @FOLDER_NAME;
svName= "Daniel";
svCompany = "N/A";
svSerial = "111-1111111";

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= "";
szTitle = "";
nResult = SdRegisterUserEx( szTitle, szMsg, svName, svCompany, svSerial );
//验证序列号
if (svSerial !="111-1111111") then
MessageBox ("InValid Serial!",WARNING);
goto Dlg_SdRegisterUserEx;
endif;
if (nResult = BACK) goto Dlg_SdLicense;

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

Dlg_SdComponentTree:
if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SdAskDestPath;
szTitle= "";
szMsg= "";
szTargetdir = TARGETDIR;
szComponents = "";
nLevel = 2;
if (nSetupType = CUSTOM) then
nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel);
if (nResult = BACK) goto Dlg_SdAskDestPath;
endif;

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


// setup default status
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);

return 0;

end;
<
标签
分享到:

公众号