home *** CD-ROM | disk | FTP | other *** search
/ Coin Critters / CCRITTER.ISO / mac / SAMPLE1.MST < prev    next >
Text File  |  1996-08-19  |  4KB  |  133 lines
  1. '**************************************************************************
  2. '*                       "Coin Critters Setup"
  3. '*                       with demoplay.exe install (8/19/96)
  4. '**************************************************************************
  5.  
  6. '$DEFINE DEBUG  ''Define for script development/debugging
  7.  
  8. '$INCLUDE 'setupapi.inc'
  9. '$INCLUDE 'msdetect.inc'
  10.  
  11. ''Dialog ID's
  12. ''CONST WELCOME       = 100
  13. ''CONST ASKQUIT       = 200
  14. ''CONST DESTPATH      = 300
  15. CONST EXITFAILURE   = 400
  16. CONST EXITQUIT      = 600
  17. CONST EXITSUCCESS   = 700
  18. ''CONST OPTIONS       = 800
  19. ''CONST APPHELP       = 900
  20. ''CONST BADPATH       = 6400
  21.  
  22. ''Bitmap ID
  23. CONST LOGO = 1
  24.  
  25. ''GLOBAL DEST$        ''Default destination directory.
  26. ''GLOBAL OPTCUR$      ''Option selection from option dialog.
  27. GLOBAL GROUPNAME$      
  28. GLOBAL EXENAME$        
  29. GLOBAL TITLE$        
  30.  
  31. DECLARE SUB Install
  32. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  33.  
  34.  
  35. INIT:
  36.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  37.  
  38. '    SetBitmap CUIDLL$, LOGO
  39.     SetTitle "Coin Critters Setup"
  40.     EXENAME$ =   "ccritter.exe"            
  41.     GROUPNAME$ = "Nordic Software"
  42.     TITLE$   =   "Coin Critters"
  43.  
  44.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  45.     IF szInf$ = "" THEN
  46.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SAMPLE1.INF"
  47.     END IF
  48.     ReadInfFile szInf$
  49.  
  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.  
  57.  
  58.     Install
  59.  
  60.  
  61. QUIT:
  62.     ON ERROR GOTO ERRQUIT
  63.  
  64.     IF ERR = 0 THEN
  65.         dlg% = EXITSUCCESS
  66.     ELSEIF ERR = STFQUIT THEN
  67.         dlg% = EXITQUIT
  68.     ELSE
  69.         dlg% = EXITFAILURE
  70.     END IF
  71. QUITL1:
  72.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  73.     IF sz$ = "REACTIVATE" THEN
  74.         GOTO QUITL1
  75.     END IF
  76.     UIPop 1
  77.  
  78.     END
  79.  
  80. ERRQUIT:
  81. ''    i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  82.     i% = DoMsgBox("Setup could not be completed!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  83.     END
  84.  
  85.  
  86.  
  87. '**
  88. '** Purpose:
  89. '**     Builds the copy list and performs all installation operations.
  90. '** Arguments:
  91. '**     none.
  92. '** Returns:
  93. '**     none.
  94. '*************************************************************************
  95. SUB Install STATIC
  96.  
  97.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  98.     
  99.     CreateProgmanGroup GROUPNAME$, "", cmoNone
  100.     ShowProgmanGroup  GROUPNAME$, 1, cmoNone
  101.     CreateProgmanItem GROUPNAME$, TITLE$, MakePath(SrcDir$,EXENAME$), "", cmoOverwrite
  102.  
  103.     CreateProgmanItem "Nordic Software", "Nordic Software Demos", MakePath(SrcDir$,"demoplay.exe"), MakePath(SrcDir$,"space1.ico"), cmoOverwrite
  104. ''    CreateProgmanItem GROUPNAME$, "Turbo Math Demo", MakePath(SrcDir$,"demos\turbo.exe"), "", cmoOverwrite
  105. ''    CreateProgmanItem GROUPNAME$, "Language Explorer Demo", MakePath(SrcDir$,"demos\language.exe"), "", cmoOverwrite
  106.  
  107. END SUB
  108.  
  109.  
  110.  
  111. '**
  112. '** Purpose:
  113. '**     Appends a file name to the end of a directory path,
  114. '**     inserting a backslash character as needed.
  115. '** Arguments:
  116. '**     szDir$  - full directory path (with optional ending "\")
  117. '**     szFile$ - filename to append to directory
  118. '** Returns:
  119. '**     Resulting fully qualified path name.
  120. '*************************************************************************
  121. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  122.     IF szDir$ = "" THEN
  123.         MakePath = szFile$
  124.     ELSEIF szFile$ = "" THEN
  125.         MakePath = szDir$
  126.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  127.         MakePath = szDir$ + szFile$
  128.     ELSE
  129.         MakePath = szDir$ + "\" + szFile$
  130.     END IF
  131. END FUNCTION
  132.  
  133.