home *** CD-ROM | disk | FTP | other *** search
/ PC Collector 12 - Disc 4 / POOL_CHAMP.bin / DATA / INSTALL / MEDIAMAT / ARCADE.MST < prev    next >
Text File  |  1995-07-15  |  4KB  |  142 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit Sample 1
  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. GLOBAL DESTWIN$     ''Default Windows directory
  22. GLOBAL DESTSYS$     ''Default Windows/System directory
  23. GLOBAL DEST$        ''Default destination directory.
  24.  
  25. DECLARE SUB Install
  26.  
  27.  
  28. INIT:
  29.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  30.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  31.  
  32.     SetBitmap CUIDLL$, LOGO
  33.     SetTitle "Mediamatics MPEG Arcade(TM) Player Setup Program"
  34.  
  35.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  36.     IF szInf$ = "" THEN
  37.     szInf$ = GetSymbolValue("STF_CWDDIR") + "arcade.inf"
  38.     END IF
  39.     ReadInfFile szInf$
  40.  
  41.     DESTWIN$ = GetWindowsDir()
  42.     DESTSYS$ = GetWindowsSysDir()
  43.  
  44. '$IFDEF DEBUG
  45.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  46.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  47.     IF IsDriveValid(WinDrive$) = 0 THEN
  48.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  49.     GOTO QUIT
  50.     END IF
  51. '$ENDIF ''DEBUG
  52.  
  53.  
  54. WELCOME:
  55.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FLicDlgProc", APPHELP, HELPPROC$)
  56.     IF sz$ = "CONTINUE" THEN
  57.     UIPop 1
  58.     ELSE
  59.     GOSUB ASKQUIT
  60.     GOTO WELCOME
  61.     END IF
  62.  
  63.     Install
  64.  
  65.  
  66. QUIT:
  67.     ON ERROR GOTO ERRQUIT
  68.  
  69.     IF ERR = 0 THEN
  70.     dlg% = EXITSUCCESS
  71.     ELSEIF ERR = STFQUIT THEN
  72.     dlg% = EXITQUIT
  73.     ELSE
  74.     dlg% = EXITFAILURE
  75.     END IF
  76. QUITL1:
  77.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  78.     IF sz$ = "REACTIVATE" THEN
  79.     GOTO QUITL1
  80.     END IF
  81.     UIPop 1
  82.  
  83.     END
  84.  
  85. ERRQUIT:
  86.     i% = DoMsgBox("The disk was corrupted, Please contact your Hardware provider", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  87.     END
  88.  
  89.  
  90. ASKQUIT:
  91.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  92.  
  93.     IF sz$ = "EXIT" THEN
  94.     UIPopAll
  95.     ERROR STFQUIT
  96.     ELSEIF sz$ = "REACTIVATE" THEN
  97.     GOTO ASKQUIT
  98.     ELSE
  99.     UIPop 1
  100.     END IF
  101.     RETURN
  102.  
  103.  
  104.  
  105. '**
  106. '** Purpose:
  107. '**     Builds the copy list and performs all installation operations.
  108. '** Arguments:
  109. '**     none.
  110. '** Returns:
  111. '**     none.
  112. '*************************************************************************
  113. SUB Install STATIC
  114.  
  115.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  116.  
  117.     AddSectionFilesToCopyList "Files", SrcDir$, DESTSYS$
  118.     CopyFilesInCopyList
  119.  
  120.     CreateIniKeyValue DESTWIN$ + "WIN.INI", "mci extensions", "mpg", "MpegVideo" , cmoOverwrite
  121.     CreateIniKeyValue DESTWIN$ + "WIN.INI", "mci extensions", "mpg", "MpegVideo" , cmoOverwrite
  122.     RemoveIniKey DESTWIN$ + "MPLAYER.INI", "Devices", "VideoCD" , cmoNone
  123.     RemoveIniKey DESTWIN$ + "MPLAYER.INI", "Devices", "MpegVideo" , cmoNone
  124.     RemoveIniKey DESTWIN$ + "MPLAYER.INI", "Options", "VideoCD" , cmoNone
  125.     RemoveIniKey DESTWIN$ + "MPLAYER.INI", "Options", "MpegVideo" , cmoNone
  126.     RemoveIniKey DESTWIN$ + "SYSTEM.INI", "mci", "VideoCD" , cmoNone
  127.     RemoveIniKey DESTWIN$ + "SYSTEM.INI", "mci", "MpegVideo" , cmoNone
  128.     CreateIniKeyValue DESTWIN$ + "SYSTEM.INI", "mci", "VideoCD", "mpeg16.dll", cmoOverwrite
  129.     CreateIniKeyValue DESTWIN$ + "SYSTEM.INI", "mci", "MpegVideo", "mpeg16.dll", cmoOverwrite
  130.     '' set the ARCADE Player MMMPEG.INI ini file values - here
  131.     RemoveIniKey DESTWIN$ + "MMMPEG.INI", "ARCADE", "DCIOVERRIDE" , cmoNone
  132.     CreateIniKeyValue DESTWIN$ + "MMMPEG.INI", "ARCADE", "AQ", "4", cmoOverwrite
  133.     CreateIniKeyValue DESTWIN$ + "MMMPEG.INI", "ARCADE", "AC", "1", cmoOverwrite
  134.     CreateIniKeyValue DESTWIN$ + "MMMPEG.INI", "ARCADE", "FAST", "1", cmoOverwrite
  135.     CreateIniKeyValue DESTWIN$ + "MMMPEG.INI", "ARCADE", "A16BIT", "1", cmoOverwrite
  136.     CreateIniKeyValue DESTWIN$ + "MMMPEG.INI", "ARCADE", "SONYCDU77", "1", cmoOverwrite
  137.     CreateIniKeyValue DESTWIN$ + "CONTROL.INI", "drivers.desc", "mpeg16.dll", "[MCI] Mediamatics MPEG Arcade(tm) Player", cmoOverwrite
  138.  
  139.  
  140. END SUB
  141.  
  142.