campo-sirio/support/interni/src/aga/setup.rul

// File principale della installazione EuroCAMPO
declare
  // Windows API
  #include "WINSUB.H" 
//  #include "sddialog.h"
  // Dichiarazioni di costanti per questo script
  #include "DECLARE.RUL"
  // File di include con gli ID dei dialog usati in questo script
  #include "PRADIAGS.H"

  NUMBER nHandle;
  NUMBER nTerminatedConv, nResult;
  STRING szSXTR1,szSXTR2, szDoMnu, szText, szModifiedPath, szBaCnv;
  STRING sInstType;
  BOOL bPurchase, bInstallModules, bInstallAutoform, bInstallEnv, bInstallFirm, bInstallDemo, bInstallDemoData, bInstallNetWrk;
  BOOL bInstallData, bInstallPrg, bInstallManual, bInstallDongleServer, bUseDongleServer;
  // Function declarations.
  prototype _SetupScreen();
  prototype _CheckRequirements();




//----------------------------------
  NUMBER nDirection;
program


Step_start:
//---------------------------------- defaults
  bInstallPrg = TRUE;
  bInstallData = FALSE;
  bInstNTEutron=FALSE;
  bInstNTHardlock=FALSE;
  bCannotExecute=FALSE;

  _ProgramPrologue();

#define SPACE_REQUIRED          3000          // Disk space in bytes.
#define APP_NAME                "EuroCAMPO"
#define PROGRAM_FOLDER_NAME     "EuroCAMPO"
#define APPBASE_PATH            "\\"
#define COMPANY_NAME            "A.G.A. Informatica srl"
#define PRODUCT_NAME            "Euro Campo"
#define PRODUCT_VERSION         "1.0 beta"
#define DEINSTALL_KEY           "SampleDeinstKey"
#define PRODUCT_KEY             "ba0.exe"
#define DATATYPE_FILE           "datatype."

  Disable( BACKGROUND );
  // Set installation info., which is required for registry entries.
  InstallationInfo( COMPANY_NAME, PRODUCT_NAME, PRODUCT_VERSION, PRODUCT_KEY );
  // Set up the installation screen.
  _SetupScreen();
  Enable( DIALOGCACHE );
  _CheckRequirements();

Step_welcome:
  nDirection=0;
  Disable( BACKBUTTON );
  Welcome( "", 0 );
  Enable( BACKBUTTON );

  _CopiaINSTALLINI();

Step_chooseinst:
  // sceglie cosa installare
  _SelectInstall(nDirection);
  if (nDirection=BACK) then
    goto Step_welcome;
  endif ;   

Step_choosewhere:
    _ChiediDestinazione(nDirection);
    if nDirection=BACK then
      goto Step_chooseinst;
    endif;

Step_choosecomp:
    _SelectComponents(nDirection );
    if nDirection=BACK then
      goto Step_choosewhere;
    endif;

Step_netprg:
    _ChiediPrgSuRete(nDirection);
    if (nDirection  =BACK) then 
      goto Step_choosecomp;
    endif;

Step_choosedata:
    _SelectDataType(nDirection);
    if nDirection=BACK then
      goto Step_netprg;
    endif;

Step_choosewhereD:
    _ChiediDestDati(nDirection);
    if nDirection=BACK then
      goto Step_choosedata;
    endif;


Step_chooseDongleServer:
    _ChooseDongleServer(nDirection);
    if nDirection=BACK then
      goto Step_choosewhereD;
    endif;

Step_chooseNTDongle:
    _ChooseNTDongle(nDirection);
    if nDirection=BACK then
      goto Step_chooseDongleServer;
    endif;

Step_whereDongleServer:
    _ChiediDestDongleServer(nDirection);
    _WhereIsDongleServer(nDirection);
    if nDirection=BACK then
      goto Step_chooseNTDongle;
    endif;

    if nDirection=NEXT then
      if bInstallNetWrk then
        goto Step_installnet;
      endif;
    endif;

// ***********************************
// *          local installation

Step_newORupdate:
    _AddOrOverwrite(nDirection);
  if nDirection=BACK then
    goto Step_whereDongleServer;
  endif;

Step_confirm1:
  _ConfirmInstallation(nDirection);
  if nDirection=BACK then
    goto Step_newORupdate;
  endif;

Step_installData:
    _InstallazioneDati(nDirection);
    if (nDirection=BACK) then
      goto Step_newORupdate;
    endif;

Step_installPrg:
    _InstallazioneMinima(nDirection);
    if (nDirection=BACK) then
      goto Step_newORupdate;
    endif;

Step_installDongleServer:
    if bInstallDongleServer then
      _InstallDongleServer(nDirection);
    endif;
    if (nDirection=BACK) then
      goto Step_newORupdate;
    endif;

Step_purchase:
    if bPurchase then
      ChangeDirectory(szAppPath);
      LaunchAppAndWait("ba1.exe","-4 -uPRASSI",WAIT);
    endif;
// ... never purchase (new) modules
// ... always lauch installer
    if bInstallModules then
      ChangeDirectory(szAppPath);
      LaunchAppAndWait("ba1.exe","-6 -uPRASSI",WAIT);
    endif;

    _ProgramEpilogue();
    exit;

// ***********************************
// *           network installation

Step_installnet:
  _ConfirmInstallation(nDirection);
  if nDirection=BACK then
    goto Step_whereDongleServer;
  endif;

nStep_installData:
    _InstallazioneDati(nDirection);
    if (nDirection=BACK) then
      goto Step_whereDongleServer;
    endif;

Step_installwrkst:
  _NewNetWorkPlace(nDirection);
  if (nDirection=BACK) then
    goto Step_whereDongleServer;
  endif;

  _ProgramEpilogue();
  exit;

  #include "setup1.rul"
  #include "setup2.rul"
  #include "setup3.rul"
  #include "setup4.rul"
  #include "winsub.rul"
//  #include "sddialog.rul"