home *** CD-ROM | disk | FTP | other *** search
/ Compton's Interactive Encyclopedia 1.01VW / CIE.ISO / ciecd.mst < prev    next >
Encoding:
Text File  |  1992-10-01  |  4.1 KB  |  171 lines
  1. '**************************************************************************
  2. '*          Compton's Interactive Encyclopedia Installation FOR CDROM
  3. '************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST OPTIONS       = 800
  18. CONST APPHELP       = 900
  19. CONST BADPATH       = 6400
  20. CONST WELCOMCD      = 1000 
  21. CONST CDPATH        = 1100 
  22.  
  23. ''Bitmap ID
  24. CONST LOGO = 1
  25.  
  26. GLOBAL DEST$        ''Default destination directory.
  27. GLOBAL DRIVE$
  28.  
  29. DECLARE SUB Install
  30. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  31.  
  32.  
  33. INIT:
  34.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  35.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  36.  
  37.     SetBitmap CUIDLL$, LOGO
  38.     SetTitle "Compton's Interactive Encyclopedia"
  39.  
  40.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  41.     IF szInf$ = "" THEN
  42.         szInf$ = GetSymbolValue("STF_CWDDIR") + "CIECD.INF"
  43.     END IF
  44.     ReadInfFile szInf$
  45.  
  46.     OPTCUR$ = "1"
  47.     
  48.  
  49. '$IFDEF DEBUG
  50.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  51.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  52.     IF IsDriveValid(WinDrive$) = 0 THEN
  53.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  54.         GOTO QUIT
  55.     END IF
  56. '$ENDIF ''DEBUG
  57.  
  58.  
  59. WELCOME:
  60.     sz$ = UIStartDlg(CUIDLL$, WELCOMCD, "FInfoDlgProc", APPHELP, HELPPROC$)
  61.     IF sz$ = "CONTINUE" THEN
  62.         UIPop 1
  63.     ELSE
  64.         GOSUB ASKQUIT
  65.         GOTO WELCOME
  66.     END IF
  67.  
  68.  
  69.  
  70.  
  71.     Install
  72.  
  73.  
  74. QUIT:
  75.     ON ERROR GOTO ERRQUIT
  76.  
  77.     IF ERR = 0 THEN
  78.         dlg% = EXITSUCCESS
  79.     ELSEIF ERR = STFQUIT THEN
  80.         dlg% = EXITQUIT
  81.     ELSE
  82.         dlg% = EXITFAILURE
  83.     END IF
  84. QUITL1:
  85.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  86.     IF sz$ = "REACTIVATE" THEN
  87.         GOTO QUITL1
  88.     END IF
  89.     UIPop 1
  90.  
  91.     END
  92.  
  93. ERRQUIT:
  94.     i% = DoMsgBox("Setup sources were corrupted", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  95.     END
  96.  
  97.  
  98.  
  99. BADPATH:
  100.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  101.     IF sz$ = "REACTIVATE" THEN
  102.         GOTO BADPATH
  103.     END IF
  104.     UIPop 1
  105.     RETURN
  106.  
  107.  
  108.  
  109. ASKQUIT:
  110.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  111.  
  112.     IF sz$ = "EXIT" THEN
  113.         UIPopAll
  114.         ERROR STFQUIT
  115.     ELSEIF sz$ = "REACTIVATE" THEN
  116.         GOTO ASKQUIT
  117.     ELSE
  118.         UIPop 1
  119.     END IF
  120.     RETURN
  121.  
  122.  
  123.  
  124. '**
  125. '** Purpose:
  126. '**     Builds the copy list and performs all installation operations.
  127. '** Arguments:
  128. '**     none.
  129. '** Returns:
  130. '**     none.
  131. '*************************************************************************
  132. SUB Install STATIC
  133.  
  134.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  135.     DEST$ = SrcDir$
  136.     CreateDir DEST$, cmoNone
  137.  
  138.  
  139.     CreateProgmanGroup "Comptons", "", cmoNone
  140.     ShowProgmanGroup  "Comptons", 1, cmoNone
  141.     CreateProgmanItem "Comptons", "Compton's Interactive Encyclopedia CD", " "+MakePath(DEST$,"CIE.EXE"),MakePath(DEST$,"CIE.EXE"), cmoOverwrite
  142.     AddDos5Help "YOURAPP", "A brief help text for your Windows application."+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone
  143.  
  144.     
  145. END SUB
  146.  
  147.  
  148.  
  149. '**
  150. '** Purpose:
  151. '**     Appends a file name to the end of a directory path,
  152. '**     inserting a backslash character as needed.
  153. '** Arguments:
  154. '**     szDir$  - full directory path (with optional ending "\")
  155. '**     szFile$ - filename to append to directory
  156. '** Returns:
  157. '**     Resulting fully qualified path name.
  158. '*************************************************************************
  159. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  160.     IF szDir$ = "" THEN
  161.         MakePath = szFile$
  162.     ELSEIF szFile$ = "" THEN
  163.         MakePath = szDir$
  164.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  165.         MakePath = szDir$ + szFile$
  166.     ELSE
  167.         MakePath = szDir$ + "\" + szFile$
  168.     END IF
  169. END FUNCTION
  170.  
  171.