home *** CD-ROM | disk | FTP | other *** search
/ Movie Select / Movie_Select_for_Windows_Paramount_Interactive_1993.iso / movsetup.mst < prev    next >
Text File  |  1993-08-19  |  4KB  |  146 lines
  1. '**************************************************************************
  2. '*                       Setup function for MovieSelect PC
  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 EXITFAILURE   = 400
  14. CONST EXITQUIT      = 600
  15. CONST EXITSUCCESS   = 700
  16. CONST APPHELP       = 900
  17.  
  18. ''Bitmap ID
  19. CONST LOGO = 1
  20.  
  21. DECLARE SUB Install
  22. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  23.  
  24.  
  25. INIT:
  26.     CUIDLL$ = "movsetup.dll"            ''Custom user interface dll
  27.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  28.     DEST$ = GetWindowsSysDir()
  29.  
  30.     SetBitmap CUIDLL$, LOGO
  31.     SetTitle "MovieSelect Setup"
  32.     SetAbout "Welcome to MovieSelect version 1.0", ""
  33.     
  34.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  35.     IF szInf$ = "" THEN
  36.         szInf$ = GetSymbolValue("STF_CWDDIR") + "MOVSETUP.INF"
  37.     END IF
  38.     ReadInfFile szInf$
  39.  
  40.  
  41. WELCOME:
  42.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  43.     IF sz$ = "CONTINUE" THEN
  44.         UIPop 1
  45.     ELSE
  46.         GOSUB ASKQUIT
  47.         GOTO WELCOME
  48.     END IF
  49.  
  50.  
  51.     Install
  52.  
  53.  
  54. QUIT:
  55.     ON ERROR GOTO ERRQUIT
  56.  
  57.     IF ERR = 0 THEN
  58.         dlg% = EXITSUCCESS
  59.     ELSEIF ERR = STFQUIT THEN
  60.         dlg% = EXITQUIT
  61.     ELSE
  62.         dlg% = EXITFAILURE
  63.     END IF
  64. QUITL1:
  65.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  66.     IF sz$ = "REACTIVATE" THEN
  67.         GOTO QUITL1
  68.     END IF
  69.     UIPop 1
  70.  
  71.     END
  72.  
  73. ERRQUIT:
  74.     i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  75.     END
  76.  
  77.  
  78. ASKQUIT:
  79.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  80.  
  81.     IF sz$ = "EXIT" THEN
  82.         UIPopAll
  83.         ERROR STFQUIT
  84.     ELSEIF sz$ = "REACTIVATE" THEN
  85.         GOTO ASKQUIT
  86.     ELSE
  87.         UIPop 1
  88.     END IF
  89.     RETURN
  90.  
  91.  
  92.  
  93. '**
  94. '** Purpose:
  95. '**     Builds the copy list and performs all installation operations.
  96. '** Arguments:
  97. '**     none.
  98. '** Returns:
  99. '**     none.
  100. '*************************************************************************
  101. SUB Install STATIC
  102.  
  103.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  104.     WinDir$ = GetWindowsDir()
  105.     WinSysDir$ = GetWindowsSysDir()
  106.     
  107. ''    AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  108. ''    CopyFilesInCopyList
  109.     CopyFile MakePath(SrcDir$,"MCIQTW.DRV"), MakePath(WinSysDir$,"MCIQTW.DRV"), cmoNone, 0 
  110.  
  111.     CreateIniKeyValue MakePath(WinDir$,"SYSTEM.INI"), "mci", "QTWVideo", "mciqtw.drv", cmoNone
  112.  
  113.     CreateProgmanGroup "MovieSelect", "", cmoNone
  114.     ShowProgmanGroup  "MovieSelect", 1, cmoNone
  115.     CreateProgmanItem "MovieSelect", "MovieSelect", MakePath(SrcDir$,"MOVSEL.EXE"), "", cmoOverwrite
  116.     CreateProgmanItem "MovieSelect", "ReadMe", "notepad.exe " + MakePath(SrcDir$,"readme.txt"), "", cmoOverwrite
  117.  
  118.     ''AddDos5Help "YOURAPP", "A brief help text for your Windows application."+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone
  119.  
  120. END SUB
  121.  
  122.  
  123.  
  124. '**
  125. '** Purpose:
  126. '**     Appends a file name to the end of a directory path,
  127. '**     inserting a backslash character as needed.
  128. '** Arguments:
  129. '**     szDir$  - full directory path (with optional ending "\")
  130. '**     szFile$ - filename to append to directory
  131. '** Returns:
  132. '**     Resulting fully qualified path name.
  133. '*************************************************************************
  134. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  135.     IF szDir$ = "" THEN
  136.         MakePath = szFile$
  137.     ELSEIF szFile$ = "" THEN
  138.         MakePath = szDir$
  139.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  140.         MakePath = szDir$ + szFile$
  141.     ELSE
  142.         MakePath = szDir$ + "\" + szFile$
  143.     END IF
  144. END FUNCTION
  145.  
  146.