home *** CD-ROM | disk | FTP | other *** search
/ NEC MultiSpin 3X Tutorial / multispin3x.iso / pc / necdemo.mst < prev    next >
Encoding:
Text File  |  1989-01-27  |  7.4 KB  |  226 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. ''Dialog ID's
  5. CONST WELCOME       = 100
  6. CONST ASKQUIT       = 200
  7. CONST EXITFAILURE   = 400
  8. CONST EXITQUIT      = 600
  9. CONST EXITSUCCESS   = 700
  10. CONST APPHELP       = 900
  11. CONST BADPATH       = 6400
  12.  
  13. ''Bitmap ID
  14. CONST LOGO = 1
  15.  
  16. GLOBAL DEST$        ''Default destination directory.
  17. GLOBAL OPTCUR$      ''Option selection from option dialog.
  18.  
  19. DECLARE SUB Install
  20. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  21.  
  22.  
  23. INIT:
  24.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  25.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  26.  
  27.     SetBitmap CUIDLL$, LOGO
  28.     SetTitle "Nec Demo Setup"
  29.               
  30.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  31.     IF szInf$ = "" THEN
  32.     szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  33.     END IF
  34.     ReadInfFile szInf$
  35.  
  36.     OPTCUR$ = "1"
  37.     DEST$ = "C:\windows"
  38.  
  39. '$IFDEF DEBUG
  40.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  41.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  42.     IF IsDriveValid(WinDrive$) = 0 THEN
  43.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  44.     GOTO QUIT
  45.     END IF
  46. '$ENDIF ''DEBUG
  47.  
  48.  
  49. WELCOME:
  50.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  51.     IF sz$ = "CONTINUE" THEN
  52.     UIPop 1
  53.     ELSE
  54.     GOSUB ASKQUIT
  55.     GOTO WELCOME
  56.     END IF
  57.  
  58.     UIPop(1)
  59.  
  60.     DEST$ = GetWindowsDir()
  61.  
  62.     drive$ = MID$(DEST$, 1, 1)
  63.     ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
  64.     free& = GetFreeSpaceForDrive(drive$)
  65.     IF free& < 1000 THEN
  66.         ERROR STFQUIT
  67.     END IF
  68.     UIPop(1)
  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, call 555-1212!", "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.     sysdir$ = GetWindowsSysDir
  135.     windir$ = GetWindowsDir
  136.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  137.  
  138.     ''SrcDir$ = "E:\"     ' TEMP TEMP TEMP TEMP
  139.     
  140.     RomDrive$ = MID$(SrcDir, 1, 1)+ ":\"
  141.     SSPDir$ = RomDrive$ + "SSP\"
  142.     Player$ = "player " + SSPDir$
  143.     TW$ = SSPDir$ + "TWIG\"
  144.               
  145.     QDSetup$ =  RomDrive$ + "SETUP\SETUP.EXE"
  146.     VFWSetup$ = RomDrive$ + "DISK1\SETUP.EXE"
  147.     ''MSpin$ =    RomDrive$ + "MSPIN\MSPIN.EXE"
  148.     MSync$ =    RomDrive$ + "MSYNC\MSYNC.EXE"
  149.     NEC3X$ = RomDrive$ + "NEC3X\NEC3X.EXE"
  150.     ABI$ =      SSPDir$ + "ABI\RUN.BAT"
  151.     CPI$ =      SSPDir$ + "20CENTRY\CPI\TBOOK.EXE CPI.TBK"
  152.     Corel$ =    SSPDir$ + "COREL\DEMO.EXE"
  153.     Grolier$ =  Player$ + "GROLIER\NGME_WIN.MOV"
  154.     NewKid$ =   SSPDir$ + "NEWKID\NEWKID.EXE"
  155.     Dinosaur$ = SSPDir$ + "DINODEMO\DEMO.EXE"
  156.     ''DinoInst$ = SSPDir$ + "DINODEMO\SETUP.EXE"
  157.     ''MMD$ =          SSPDir$ + "MMD.EXE"     
  158.     ''TWComp$ =       TW$ + "Computer.MOV"
  159.     ''TWEarth$ =              TW$ + "Earth.MOV"
  160.     ''TWFlute$ =              TW$ + "Flute.MOV"
  161.     ''TWFunny$ =              TW$ + "Funny.MOV"
  162.     ''TWQuartet$ =    TW$ + "Quartet.MOV"
  163.     ''TWRequiem$ =    TW$ + "Requiem.MOV"
  164.     ''TWOrchestra$ =  TW$ + "Orchestra.MOV"
  165.     TWHell$ = TW$ + "HELLMPC\HELLCAB.EXE"                                       
  166.     TWHBO1$ = TW$ + "HBO1MPC\HBO1DEMO.EXE"
  167.     DriverSrcName$ = SrcDir$+"ICCVID.DRV"
  168.     DriverDestName$ = sysdir$+"ICCVID.DRV"
  169.     SysIniName$ = windir$+"SYSTEM.INI"
  170.     CreateIniKeyValue "WIN.INI", "ToolBook", "startupSysBooks", "tbkmm.sbk", cmoOverwrite
  171.     CreateIniKeyValue SysIniName$, "drivers", "VIDC.CVID", "ICCVID.DRV", cmoOverwrite
  172.  
  173.     CopyFile DriverSrcName, DriverDestName, cmoOverwrite, 0
  174.     CreateProgmanGroup "NEC Demo CD", "", cmoNone
  175.     ShowProgmanGroup  "NEC Demo CD", 1, cmoNone
  176.     QTWIcon$ = RomDrive$ + "QTW\BIN\PLAYER.EXE"
  177.  
  178.     CreateProgmanItem "NEC Demo CD", "Quick Time Setup", QDSetup$, "", cmoOverwrite
  179.     CreateProgmanItem "NEC Demo CD", "Video For Windows Setup", VFWSetup$, "", cmoOverwrite
  180.     ''CreateProgmanItem "NEC Demo CD", "NEC MultiSpin Demo", MSpin$, "", cmoOverwrite
  181.     CreateProgmanItem "NEC Demo CD", "3X Tutorial", NEC3X$, "", cmoOverwrite  
  182.     CreateProgmanItem "NEC Demo CD", "NEC MultiSync Demo", MSync$, "", cmoOverwrite
  183.     CreateProgmanItem "NEC Demo CD", "American Business Information", ABI$, "", cmoOverwrite
  184.     CreateProgmanItem "NEC Demo CD", "Compact Publishing", CPI$, "", cmoOverwrite
  185.     CreateProgmanItem "NEC Demo CD", "Corel Draw", Corel$, "", cmoOverwrite
  186.     CreateProgmanItem "NEC Demo CD", "Grolier Electronic Publishing", Grolier$, "", cmoOverwrite
  187.     CreateProgmanItem "NEC Demo CD", "Broderbund New Kid on the Block", NewKid$, "", cmoOverwrite
  188.     ''CreateProgmanItem "NEC Demo CD", "Dinosaur Setup", DinoInst$, "", cmoOverwrite
  189.     ''CreateProgmanItem "NEC Demo CD", "Knowledge Adventure Dinosaur", Dinosaur$, "", cmoOverwrite
  190.     ''CreateProgmanItem "NEC Demo CD", "Macromedia Director", MMD$, "", cmoOverwrite       
  191.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Computer", TWComp$, "", cmoOverwrite   
  192.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Earth", TWEarth$, "", cmoOverwrite     
  193.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Flute", TWFlute$, "", cmoOverwrite     
  194.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Funny", TWFunny$, "", cmoOverwrite     
  195.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Quartet", TWQuartet$, "", cmoOverwrite         
  196.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Requiem", TWRequiem$, "", cmoOverwrite         
  197.     ''CreateProgmanItem "NEC Demo CD", "Time Warner Orchestra", TWOrchestra$, "", cmoOverwrite     
  198.   CreateProgmanItem "NEC Demo CD", "HellCab", TWHell$, "", cmoOverwrite                                                                                                                                                        
  199.   CreateProgmanItem "NEC Demo CD", "HBO1", TWHBO1$, "", cmoOverwrite        
  200.   END SUB
  201.  
  202.  
  203.  
  204. '**
  205. '** Purpose:
  206. '**     Appends a file name to the end of a directory path,
  207. '**     inserting a backslash character as needed.
  208. '** Arguments:
  209. '**     szDir$  - full directory path (with optional ending "\")
  210. '**     szFile$ - filename to append to directory
  211. '** Returns:
  212. '**     Resulting fully qualified path name.
  213. '*************************************************************************
  214. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  215.     IF szDir$ = "" THEN
  216.     MakePath = szFile$
  217.     ELSEIF szFile$ = "" THEN
  218.     MakePath = szDir$
  219.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  220.     MakePath = szDir$ + szFile$
  221.     ELSE
  222.     MakePath = szDir$ + "\" + szFile$
  223.     END IF
  224. END FUNCTION
  225.  
  226.