See people use InstallShield to make ASP installation program (1)

Source: Internet
Author: User
Tags copy goto
installshield| program I am now doing ASP installation program, so that users can easily use. The InstallShield version I use is InstallShield Professional-standard Edition6.3.
I have not used this stuff, the questions are as follows:

Question One
Copy package work is done with Project wizard-generated script. However, the 6.3 version of the image does not support the main program ... Endprogram, because I see the copy-packed script is implemented through two fuction. So my script doesn't add in, unless it's called in these two fuction! May I ask if version 6.3 cannot use program ... Endprogram, if you can use it, how to use it?

Question Two
Want to copy the ASP program directly after the implementation of IIS settings, that is, through the installation program can be completed, do not need to manually set up, how can I ask how to achieve it?

Here are two fuction that I do with Project wizard-generated script, they do not need to call or declare the definition of automatic execution, really don't understand! Where should my script be added?
Include Header Files

#include "ifx.h"
function Onfirstuibefore ()
Number Nresult,nsetuptype;
String SzTitle, szmsg;
String Szlicensefile, szquestion;
String SzName, Szcompany, szserial;
String Sztargetpath;
String Szdir;
String szcomponents, Sztargetdir;
Number Nlevel;
LIST liststartcopy;
Number nvsize;
Begin
Nsetuptype = typical;
TARGETDIR = "C:" ^ "inetpub" ^ "wwwroot" ^ @PRODUCT_NAME;
Szdir = TARGETDIR;
SzName = "";
Szcompany = "";
Szserial = "";

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, SzName, Szcompany, szserial);
if (nresult = back) goto dlg_sdlicense;

Dlg_sdaskdestpath:
SzTitle = "";
szmsg = "Please select Setup folder";
Nresult = Sdaskdestpath (SzTitle, szmsg, szdir, 0);
TARGETDIR = Szdir;
if (nresult = back) goto Dlg_sdregisteruserex;

Dlg_setuptype:
SzTitle = "";
szmsg = "";
Nresult = SetupType (SzTitle, szmsg, "", Nsetuptype, 0);
if (nresult = back) Then
Goto Dlg_sdaskdestpath;
Else
Nsetuptype = Nresult;
if (Nsetuptype!= CUSTOM) Then
Sztargetpath = TARGETDIR;
nvsize = 0;
Componentcomparesizerequired (media,sztargetpath,nvsize);
if (nvsize!= 0) Then
MessageBox (Szsdstr_notenoughspace, WARNING);
Goto Dlg_setuptype;
endif
endif
endif

Dlg_sdcomponenttree:
if ((Nresult = back) && (Nsetuptype!= CUSTOM)) goto Dlg_setuptype;
SzTitle = "";
szmsg = "";
Sztargetdir = TARGETDIR;
Szcomponents = "";
Nlevel = 2;
if (Nsetuptype = CUSTOM) Then
Nresult = Sdcomponenttree (SzTitle, szmsg, Sztargetdir, szcomponents, nlevel);
if (nresult = back) goto Dlg_setuptype;
endif

Dlg_objdialogs:
Nresult = Showobjwizardpages (nresult);
if (nresult = back) goto Dlg_sdcomponenttree;

Dlg_sdstartcopy:
SzTitle = "";
szmsg = "";
Liststartcopy = Listcreate (stringlist);
Nresult = SdStartCopy (SzTitle, szmsg, liststartcopy);
Listdestroy (liststartcopy);
if (nresult = back) goto dlg_objdialogs;

Setup Default Status
Setstatuswindow (0, "");
Enable (Statusex);
Statusupdate (on, 100);
return 0;
End

///////////////////////////////////////////////////////////////////////////////
//
Function:onmoving
//
Event:moving event is sent when file transfer is started as a
Componenttransferdata call, before any file transfer operations
are performed.
//
///////////////////////////////////////////////////////////////////////////////
function onmoving ()
String Szapppath;
Begin
Szapppath = TARGETDIR;
Regdbsetitem (Regdb_apppath, Szapppath);
Regdbsetitem (Regdb_apppath_default, Szapppath ^ @PRODUCT_KEY);
End
---include Script file section---



Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.