home *** CD-ROM | disk | FTP | other *** search
/ Presentation Partner / Presentation Partner.iso / setup.mst < prev    next >
Encoding:
Text File  |  1994-09-15  |  40.5 KB  |  1,064 lines
  1. '**************************************************************************
  2. '*                       Presentation Partner CD-ROM Setup
  3. '*                       Started 5/3/94 Tim Swetonic
  4. '*                       originally adapted from the Music Mentor
  5. '*                       CD-ROM Edition Setup
  6. '*
  7. '*
  8. '* Changes:
  9. '* 1\10\94
  10. '* Bitmap fills screen for 800x600 and greater, title bar and border is on background bitmap,
  11. '* checks if directory is already present, checks for enough hard drive space.
  12. '*
  13. '* 8\18\94 Added VFW installation Alan page
  14. '*
  15. '**************************************************************************
  16.  
  17. '$DEFINE PRESPART
  18.  
  19. '$INCLUDE 'setupapi.inc'
  20. '$INCLUDE 'msdetect.inc'
  21. ''$INCLUDE 'mscpydis.inc'    ''System needed for VFW
  22.  
  23. DECLARE FUNCTION ShowWindow  LIB "user.exe" (hWnd%,iShow%) AS INTEGER
  24. DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG
  25. DECLARE FUNCTION GetWindowLong LIB "user.exe" (hWnd%, offset%) AS LONG
  26.  
  27. 'from VFW
  28. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  29. DECLARE FUNCTION VflatdPresent LIB "iniupd.DLL" AS INTEGER
  30. DECLARE SUB Reboot LIB "iniupd.dll"
  31. DECLARE FUNCTION ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  32.  
  33.  
  34. ''Dialog ID's
  35.  
  36. CONST WELCOME        = 100
  37. CONST WELCOMEX       = 150
  38. CONST ASKQUIT        = 200
  39. CONST ASKQUITX       = 250
  40. CONST DESTPATH1       = 300
  41. CONST DESTPATH1X      = 350
  42. CONST DESTPATH2      = 6401
  43. CONST DESTPATH2X     = 6451
  44. CONST EXITFAILURE    = 400
  45. CONST EXITFAILUREX   = 450
  46. CONST EXITQUIT       = 600
  47. CONST EXITQUITX      = 6452
  48. CONST EXITSUCCESS    = 700
  49. CONST EXITSUCCESSX   = 750
  50. CONST APPHELP        = 900
  51. CONST APPHELPX       = 950
  52. CONST ALREADYEXISTS  = 1000
  53. CONST ALREADYEXISTSX = 1050
  54. CONST RESTART       = 2600
  55. CONST RESTARTII     = 2700
  56. CONST VFWCHOOSE      = 3000
  57. CONST VFWCHOOSEX     = 3050
  58. CONST TOOBIG         = 6300
  59. CONST TOOBIGX        = 6350
  60. CONST BADPATH        = 6400
  61. CONST BADPATHX       = 6450
  62. CONST INFO1          = 118
  63. CONST INFO1X         = 6453
  64. CONST INFO2          = 6454
  65. CONST INFO2X         = 6455
  66. CONST INFO3X         = 6457
  67. CONST INFO3          = 6458
  68.  
  69. CONST CARDLIST       = 8030
  70. CONST CARDLISTX      = 6030
  71.  
  72.  
  73.  
  74. CONST HDSPACE        =  20480000
  75.  
  76. CONST WS_VISIBLE = &H10000000
  77. CONST WS_CLIPCHILDREN = &H2000000
  78. CONST WS_BORDER = &H800000
  79. CONST SW_SHOWMAXIMIZED = 3
  80. CONST GWL_STYLE =-16
  81.  
  82. CONST TITLE = "Midisoft« Presentation Partner Setup"
  83.  
  84.  
  85. CONST LOGO1 = 3
  86. CONST LOGO2 = 3
  87.  
  88. GLOBAL DEST$        ''Default destination directory.
  89. GLOBAL SESDEST$     ''Default Session directory.
  90. GLOBAL RUNDEST$     ''Default Runtime subdirectory.
  91. GLOBAL OPTCUR$      ''Option selection from option dialog.
  92. GLOBAL SCRWID%
  93. GLOBAL PRESPARTDIR$
  94. GLOBAL CUIDLL$
  95. GLOBAL hdList$
  96. GLOBAL PRESPARTDESTDIR$
  97. GLOBAL QTDIR$
  98. GLOBAL SELECTED$
  99.  
  100. CONST NOTATIONTITLE = "Introduction to Musical Notation"
  101. CONST MIDITITLE = "Introduction to MIDI"
  102. CONST GENERALTITLE = "General MIDI"
  103. CONST SIHELPTITLE = "Sound Impression Help"
  104. CONST HELPTITLE = "MusicMagic Help"
  105.  
  106. GLOBAL WINDRIVE$
  107. GLOBAL WinDir$
  108. GLOBAL WinSysDir$
  109.  
  110. GLOBAL vfw$ 'if this gets set to off, VFW is installed  on, not installed
  111.  
  112. DECLARE SUB Install
  113. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  114. DECLARE SUB CreateProgGroup
  115. DECLARE FUNCTION FindWindow Lib "User" (lpClassName$, lpWindowNam$) As Integer
  116. DECLARE FUNCTION MessageBox Lib "User" (hWnd%, lpText$, lpCaption$,wType%) As Integer
  117.  
  118.  
  119. CONST MIDIEXE           = "Musmagic.exe"
  120. CONST HELPEXE       = "Musmagic.hlp"
  121. CONST RUNNING       = "MM_Running"
  122. CONST SETUPPATH     = "MM_SetupPath"
  123. CONST LASTRUNFROM   = "MM_LastRunFrom"
  124. CONST MIDIEDITOR    = "MusicMagic"
  125.  
  126. ''////////////////////////////////// check if Sound Impression is currently running
  127.  
  128.     findclass1$ = "EDITPARENT"
  129.     findclass2$ = "AUDRKPARENT"
  130.     findtitle$ = "Sound Impression"
  131.     lookforsi1% = FindWindow (findclass1$, findtitle$)
  132.     lookforsimin% = FindWindow (findclass2$,NULL)
  133.     IF lookforsi1% <> 0 OR lookforsimin% <> 0 THEN
  134.         runningstop% = MessageBox (hwnd%, "Sound Impression is running.  Close it, then run Setup again.","Sound Impression Setup", MB_OK+MB_TASKMODAL+MB_ICONSTOP)
  135.         IF IDOK THEN
  136.             STOP
  137.         END IF
  138.     END IF
  139.  
  140.  
  141.  
  142. INIT:
  143.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  144.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  145.  
  146.  
  147. '*   The following determines the version information for VFW
  148. '*
  149.     WIN32ENABLED% = 0
  150.     MajorVer% = GetWindowsMajorVersion()
  151.     MinorVer% = GetWindowsMinorVersion()
  152.  
  153.     IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
  154.     i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for Video.  Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  155.     END
  156.     END IF
  157.  
  158.     IF OnWindowsNT() THEN
  159.       i% = DoMsgBox("This version of Video for Windows does not run on Windows NT.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  160.       END
  161.     END IF
  162.  
  163.  
  164.     aboutStr1$ = "Midisoft Presentation Partner" + Chr$(13)
  165.     aboutStr1$ = aboutStr1$ + "Copyright (c) 1994" + Chr$(13)
  166.     aboutStr2$ = "Version 1.0" + Chr$(13)
  167.     aboutStr2$ = aboutStr2$ + "May 5, 1994" + Chr$(13)
  168.  
  169.     mainWnd%=HwndFrame()
  170.     curLong& = GetWindowLong (mainWnd%, GWL_STYLE)                        'Creates window with
  171.     curLong& = curLong& OR (WS_BORDER OR WS_CLIPCHILDREN OR WS_CAPTION)   'title bar (Note: using
  172.     w&=SetWindowLong (mainWnd%, GWL_STYLE, curLong&)                      'HT video drivers icon
  173.                                                                           'on one screen is corrupt)
  174.  
  175.  
  176.     'Set text shown in the About dialog, selected from the system menu
  177.     SetAbout aboutStr1$, aboutStr2$
  178.     'w&=SetWindowLong(mainWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
  179.     j%=ShowWindow(mainWnd%,SW_SHOWMAXIMIZED)
  180.  
  181.     'GetLocalHardDrivesList hdList$
  182.     'listStr$ = GetListItem(hdList$, 1)
  183.  
  184.     SCRWID% = GetScreenWidth()
  185.         IF SCRWID% = 640 THEN
  186.             SetBitmap CUIDLL$, LOGO1
  187.         ELSE
  188.             SetBitmap CUIDLL$, LOGO2
  189.         END IF
  190.  
  191.     SetTitle TITLE
  192.  
  193.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  194.     IF szInf$ = "" THEN
  195.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  196.     END IF
  197.     ReadInfFile szInf$
  198.  
  199.     WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
  200.  
  201.     OPTCUR$ = "1"
  202.     DEST$ = "C:\PRESPART"
  203.  
  204.  
  205. WELCOME:
  206.  
  207.     IF scrwid% = 640 THEN
  208.         sz$ = UIStartDlg(CUIDLL$, WELCOMEX, "FInfoDlgProc", APPHELP, HELPPROC$)
  209.     ELSE
  210.         sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  211.     END IF
  212.  
  213.  
  214.     IF sz$ = "CONTINUE" THEN
  215.         UIPop 1
  216.     ELSE
  217.         GOSUB ASKQUIT
  218.         GOTO WELCOME
  219.     END IF
  220.  
  221. ' added from here
  222. CARD$ = "ListItemsIn"
  223. CARDPICK$ = "ListItemsOut"
  224.     AddListItem CARD$,"UNLISTED"
  225.         AddListItem CARD$,"Antex VP Series"
  226.         AddListItem CARD$,"Antex Audio Port"
  227.         AddListItem CARD$,"Antex AV-16"
  228.         AddListItem CARD$,"Antex SX Series"
  229.         AddListItem CARD$,"ATI"
  230.         AddListItem CARD$,"Audiotrix Pro"
  231.         AddListItem CARD$,"Aztech"
  232.         AddListItem CARD$,"Cardinal"
  233.         AddListItem CARD$,"Creative Labs"
  234.         AddListItem CARD$,"Diamond SonicSound LX"
  235.         AddListItem CARD$,"Ensoniq Soundscape"
  236.         AddListItem CARD$,"Genoa Systems"
  237.         AddListItem CARD$,"Jovian Logic"
  238.         AddListItem CARD$,"Logitech SoundMan 16"
  239.         AddListItem CARD$,"Media Chips MAD-16"
  240.         AddListItem CARD$,"Media Master"
  241.         AddListItem CARD$,"Mediasonic"
  242.         AddListItem CARD$,"Media Vision all cards"
  243.         AddListItem CARD$,"Media Vision AudioPort"
  244.         AddListItem CARD$,"MIDI Land"
  245.         AddListItem CARD$,"Oak Mozart"
  246.         AddListItem CARD$,"Omni Labs AudioMaster"
  247.         AddListItem CARD$,"Orchid SoundWave 32"
  248.         AddListItem CARD$,"ProMEDIA"
  249.         AddListItem CARD$,"Roland RAP-10"
  250.         AddListItem CARD$,"Sound FX 16"
  251.         AddListItem CARD$,"Turtle Beach"
  252. SINGLELIST:
  253.     SetSymbolValue "ListItemsOut", "UNLISTED"
  254.  
  255.  
  256. LISTIT1:
  257. IF SCRWID% = 640 THEN
  258.     sz$ = UIStartDlg (CUIDLL$, CARDLISTX, "FListDlgProc", APPHELPX, HELPPROC$)
  259. else
  260.     sz$ = UIStartDlg (CUIDLL$, CARDLIST, "FListDlgProc", APPHELP, HELPPROC$)
  261. END IF
  262.         CARDLOADLIST$ = GetSymbolValue (CARD$)
  263.         SELECTED$ = GetSymbolValue (CARDPICK$)
  264.  
  265.     'MsgBox "selected = " + SELECTED$
  266.     IF sz$ = "CONTINUE" THEN
  267.     UIPop 1
  268.  
  269.     ELSEIF sz$ = "REACTIVATE" THEN
  270.         GOTO LISTIT1
  271.     ELSE
  272.         GOSUB ASKQUIT
  273.         GOTO SINGLELIST
  274.     END IF
  275.  
  276.  
  277.  
  278. 'VFWOPTION:
  279.  
  280. '    IF scrwid% = 640 THEN
  281. '        sz$ = UIStartDlg(CUIDLL$, VFWCHOOSEX, "FCustInstDlgProc", APPHELP, HELPPROC$)
  282. '    ELSE
  283. '        sz$ = UIStartDlg(CUIDLL$, VFWCHOOSE, "FCustInstDlgProc", APPHELP, HELPPROC$)
  284. '    END IF
  285.  
  286.  
  287. '    CHECKSTATES$ = "CheckItemsState"
  288. '    For i% = 1 to 1
  289.  
  290. '    AddListItem CHECKSTATES$, "ON"
  291.  
  292. '    next i%
  293.  
  294. '    vfw$ = GetListItem (CHECKSTATES$, 1)
  295.  
  296. '   IF sz$ = "CONTINUE" THEN
  297. '      UIPop 1
  298. '       GOTO GETPATH
  299. '        ELSEIF sz$ = "EXIT" THEN
  300. '       GOSUB ASKQUIT
  301. '       GOTO VFWOPTION
  302.  
  303. '    ELSE
  304. '        GOTO VFWOPTION
  305. '    END IF
  306.  
  307.  
  308. '    ELSE
  309. '        GOSUB ASKQUIT
  310. '        GOTO VFWOPTION
  311. '    END IF
  312.  
  313.  
  314.  
  315.  
  316.  
  317.  
  318. GETPATH:
  319.     SetSymbolValue "EditTextIn", DEST$   'from dest$
  320.     SetSymbolValue "EditFocus", "END"
  321. GETPATHL1:
  322.  
  323.     IF scrwid% = 640 THEN
  324.         sz$ = UIStartDlg(CUIDLL$, DESTPATH1X, "FEditDlgProc", APPHELP, HELPPROC$)
  325.     ELSE
  326.         sz$ = UIStartDlg(CUIDLL$, DESTPATH1, "FEditDlgProc", APPHELP, HELPPROC$)
  327.     END IF
  328.  
  329.  
  330.     DEST$ = GetSymbolValue("EditTextOut")
  331.  
  332.     IF sz$ = "CONTINUE" THEN
  333.         IF IsDirWritable(DEST$) = 0 THEN
  334.             GOSUB BADPATH
  335.             GOTO GETPATHL1
  336.         END IF
  337.         UIPop 1
  338.     ELSEIF sz$ = "REACTIVATE" THEN
  339.         GOTO GETPATHL1
  340.     ELSEIF sz$ = "BACK" THEN
  341.         UIPop 1
  342.         GOTO WELCOME
  343.     ELSE
  344.         GOSUB ASKQUIT
  345.         GOTO GETPATH
  346.     END IF
  347.  
  348.             'Check if directory exists
  349.     IF DoesDirExist(DEST$) THEN
  350.         UIPop 1
  351.  
  352.         IF SCRWID% = 640 THEN
  353.             sz$ = UIStartDlg(CUIDLL$, ALREADYEXISTSX, "FInfoDlgProc", 0, "")
  354.         ELSE
  355.             sz$ = UIStartDlg(CUIDLL$, ALREADYEXISTS, "FInfoDlgProc", 0, "")
  356.         END IF 'Screen resolution
  357.  
  358.         IF sz$ = "CONTINUE" THEN
  359.                 UIPop 1
  360.  
  361.         ELSEIF sz$ = "REACTIVATE" THEN
  362.             UIPop 1
  363.             GOTO GETPATHL1
  364.  
  365.         ELSEIF sz$ = "BACK" THEN
  366.             UIPop 1
  367.             GOTO GETPATHL1
  368.  
  369.         ELSE
  370.             UIPop 1
  371.             GOSUB ASKQUIT
  372.             GOTO GETPATH
  373.         END IF  'User responses for already exists dialog
  374.  
  375.     END IF  'If directory already exists
  376.  
  377.     checkdltr$ = mid$(DEST$, 1, 1)
  378.     checkdspc& = GetFreeSpaceForDrive(checkdltr$)
  379.     IF checkdspc& < HDSPACE THEN
  380.         IF scrwid% = 640 THEN
  381.             sz$ = UIStartDlg(CUIDLL$, TOOBIGX, "FInfoDlgProc", APPHELP, HELPPROC$)
  382.         ELSE
  383.             sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfoDlgProc", APPHELP, HELPPROC$)
  384.         END IF
  385.  
  386.  
  387.         ERROR STFQUIT
  388.         GOTO QUIT
  389.     END IF
  390.  
  391. '$IFNDEF PRESPART
  392. GETPATH2:
  393.     SetSymbolValue "EditTextIn", SESDEST$
  394.     SetSymbolValue "EditFocus", "END"
  395. GETPATHL2:
  396.  
  397.     IF scrwid% = 640 THEN
  398.         sz$ = UIStartDlg(CUIDLL$, DESTPATH2X, "FEditDlgProc", APPHELP, HELPPROC$)
  399.     ELSE
  400.         sz$ = UIStartDlg(CUIDLL$, DESTPATH2, "FEditDlgProc", APPHELP, HELPPROC$)
  401.     END IF
  402.  
  403.  
  404.     SESDEST$ = GetSymbolValue("EditTextOut")
  405.  
  406.     IF sz$ = "CONTINUE" THEN
  407.         IF IsDirWritable(SESDEST$) = 0 THEN
  408.             GOSUB BADPATH
  409.             GOTO GETPATHL2
  410.         END IF
  411.         UIPop 1
  412.     ELSEIF sz$ = "REACTIVATE" THEN
  413.         GOTO GETPATHL2
  414.     ELSEIF sz$ = "BACK" THEN
  415.         UIPop 1
  416.  
  417.         GOTO GETPATH
  418.     ELSE
  419.         GOSUB ASKQUIT
  420.         GOTO GETPATH2
  421.     END IF
  422.  
  423.               'Check if directory exists
  424.     IF DoesDirExist(SESDEST$) THEN
  425.         UIPop 1
  426.  
  427.         IF SCRWID% = 640 THEN
  428.             sz$ = UIStartDlg(CUIDLL$, ALREADYEXISTSX, "FInfoDlgProc", 0, "")
  429.         ELSE
  430.             sz$ = UIStartDlg(CUIDLL$, ALREADYEXISTS, "FInfoDlgProc", 0, "")
  431.         END IF 'Screen resolution
  432.  
  433.         IF sz$ = "CONTINUE" THEN
  434.             UIPop 1
  435.  
  436.         ELSEIF sz$ = "REACTIVATE" THEN
  437.             UIPop 1
  438.             GOTO GETPATHL2
  439.  
  440.         ELSEIF sz$ = "BACK" THEN
  441.             UIPop 1
  442.             GOTO GETPATHL2
  443.  
  444.         ELSE
  445.             UIPop 1
  446.             GOSUB ASKQUIT
  447.             GOTO GETPATH2
  448.         END IF  'User responses for already exists dialog
  449.  
  450.     END IF  'If directory already exists
  451. '$ENDIF MENTORCD
  452.  
  453.     Install
  454.  
  455.  
  456. QUIT:
  457.     ON ERROR GOTO ERRQUIT
  458.  
  459.     IF ERR = 0 THEN
  460.         IF SCRWID% = 640 THEN
  461.             dlg% = EXITSUCCESSX
  462.         ELSE
  463.             dlg% = EXITSUCCESS
  464.         END IF
  465.  
  466.  
  467.     ELSEIF ERR = STFQUIT THEN
  468.         IF SCRWID% = 640 THEN
  469.             dlg% = EXITQUITX
  470.         ELSE
  471.             dlg% = EXITQUIT
  472.         END IF
  473.     ELSE
  474.         IF SCRWID% = 640 THEN
  475.             dlg% = EXITFAILUREX
  476.         ELSE
  477.             dlg% = EXITFAILURE
  478.         END IF
  479.     END IF
  480. QUITL1:
  481.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  482.     IF sz$ = "REACTIVATE" THEN
  483.         GOTO QUITL1
  484.     END IF
  485.     UIPop 1
  486.  
  487.     END
  488.  
  489. ERRQUIT:
  490.     i% = DoMsgBox("Setup sources were corrupted, please call Midisoft Technical Support", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  491.     END
  492.  
  493.  
  494.  
  495. BADPATH:
  496.     IF scrwid% = 640 THEN
  497.         sz$ = UIStartDlg(CUIDLL$, BADPATHX, "FInfoDlgProc", APPHELP, HELPPROC$)
  498.     ELSE
  499.         sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfoDlgProc", APPHELP, HELPPROC$)
  500.     END IF
  501.  
  502.  
  503.     IF sz$ = "REACTIVATE" THEN
  504.         GOTO BADPATH
  505.     END IF
  506.     UIPop 1
  507.     RETURN
  508.  
  509.  
  510.  
  511. ASKQUIT:
  512.     IF scrwid% = 640 THEN
  513.         sz$ = UIStartDlg(CUIDLL$, ASKQUITX, "FQuitDlgProc", APPHELP, HELPPROC$)
  514.     ELSE
  515.         sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", APPHELP, HELPPROC$)
  516.     END IF
  517.  
  518.  
  519.  
  520.     IF sz$ = "EXIT" THEN
  521.         UIPop 5
  522.         ERROR STFQUIT
  523.     ELSEIF sz$ = "REACTIVATE" THEN
  524.         GOTO ASKQUIT
  525.     ELSE
  526.         UIPop 1
  527.     END IF
  528.     RETURN
  529.  
  530.  
  531.  
  532. '**
  533. '** Purpose:
  534. '**     Builds the copy list and performs all installation operations.
  535. '** Arguments:
  536. '**     none.
  537. '** Returns:
  538. '**     none.
  539. '*************************************************************************
  540. SUB Install STATIC
  541.  
  542.     RemoveSymbol "ListItemsIn"
  543.     RemoveSymbol "ListItemsOut"
  544.  
  545.     'Source Directories
  546.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  547.  
  548.     ROOTDIR$ = SrcDir$
  549.     PRESPARTDIR$ = MakePath (ROOTDIR$, "PRESPART")
  550.     WINSYSSOURCEDIR$ = MakePath (ROOTDIR$, "SYSTEM")
  551.     FAVORITEDIR$ = MakePath (PRESPARTDIR$, "FAVORITE")
  552.     HELPDIR$ = MakePath (PRESPARTDIR$, "HELP")
  553.     RESOURCEDIR$ = MakePath (PRESPARTDIR$, "RESOURCE")
  554.     SSTDIR$ = MakePath (ROOTDIR$, "SSTV1")
  555.     IMAGESDIR$ = MakePath(SSTDIR$, "IMAGES")
  556.     MOVIESDIR$ = MakePath(SSTDIR$, "MOVIES")
  557.     RUNTIMEDIR$ = MakePath(SSTDIR$, "RUNTIME")
  558.     SOUNDSDIR$ = MakePath(SSTDIR$, "SOUNDS")
  559.     VFWDIR$ = MakePath(ROOTDIR$, "VFW")
  560.     SIDIR$ = MakePath(ROOTDIR$, "AUDIOSIM")
  561.     MMDIR$ = MakePath(ROOTDIR$, "MUSMAGIC")
  562.     QTDIR$ = MakePath(ROOTDIR$, "QUIKTOUR")
  563.  
  564.  
  565.     'Destination Directories
  566.     PRESPARTDESTDIR$ = DEST$
  567.     FAVORITEDESTDIR$ = MakePath (DEST$, "FAVORITE")
  568.     HELPDESTDIR$ = MakePath (DEST$, "HELP")
  569.     RESOURCEDESTDIR$ = MakePath (DEST$, "RESOURCE")
  570.     SSTDESTDIR$ = MakePath (DEST$, "SSTV1")
  571.     IMAGESDESTDIR$ = MakePath(SSTDESTDIR$, "IMAGES")
  572.     MOVIESDESTDIR$ = MakePath(SSTDESTDIR$, "MOVIES")
  573.     RUNTIMEDESTDIR$ = MakePath(SSTDESTDIR$, "RUNTIME")
  574.     SOUNDSDESTDIR$ = MakePath(SSTDESTDIR$, "SOUNDS")
  575.     SIDESTDIR$ = MakePath(DEST$, "AUDIOSIM")
  576.     MMDESTDIR$ = MakePath(DEST$, "MUSMAGIC")
  577.  
  578.     WinDir$ = GetWindowsDir()
  579.     WinSysDir$ = GetWindowsSysDir()
  580.  
  581.     CreateDir PRESPARTDESTDIR$, cmoNone
  582.     CreateDir FAVORITEDESTDIR$, cmoNone
  583.     CreateDir HELPDESTDIR$, cmoNone
  584.     CreateDir RESOURCEDESTDIR$, cmoNone
  585.     CreateDir SSTDESTDIR$, cmoNone
  586.     CreateDir IMAGESDESTDIR$, cmoNone
  587.     CreateDir MOVIESDESTDIR$, cmoNone
  588.     CreateDir RUNTIMEDESTDIR$, cmoNone
  589.     CreateDir SOUNDSDESTDIR$, cmoNone
  590.     CreateDir SIDESTDIR$, cmoNone
  591.     CreateDir MMDESTDIR$, cmoNone
  592.  
  593.             'CreateDir DEST$, cmoNone
  594.         'CreateDir MakePath(DEST$, "RUNTIME"), cmoNone
  595.         'CreateDir MakePath(DEST$, "MIDFILES"), cmoNone
  596.  
  597.     AddSectionFilesToCopyList "Prespart", PRESPARTDIR$, PRESPARTDESTDIR$
  598.     AddSectionFilesToCopyList "Favorite", FAVORITEDIR$, FAVORITEDESTDIR$
  599.     AddSectionFilesToCopyList "Help", HELPDIR$, HELPDESTDIR$
  600.     AddSectionFilesToCopyList "Resource", RESOURCEDIR$, RESOURCEDESTDIR$
  601.     AddSectionFilesToCopyList "SST", SSTDIR$, SSTDESTDIR$
  602.     AddSectionFilesToCopyList "Images", IMAGESDIR$, IMAGESDESTDIR$
  603.     AddSectionFilesToCopyList "Movies", MOVIESDIR$, MOVIESDESTDIR$
  604.     AddSectionFilesToCopyList "Runtime", RUNTIMEDIR$, RUNTIMEDESTDIR$
  605.     AddSectionFilesToCopyList "Sounds", SOUNDSDIR$, SOUNDSDESTDIR$
  606.  
  607.     AddSectionFilesToCopyList "Audiosim", SIDIR$, SIDESTDIR$
  608.     AddSectionFilesToCopyList "Midisoft", MMDIR$, MMDESTDIR$
  609.  
  610.  
  611.  
  612.     AddSectionFilesToCopyList "System", WINSYSSOURCEDIR$, winSysDir$
  613.  
  614. '****************************************************************************
  615. '   These are the files for Video for Windows
  616. 'IF vfw$ = "OFF" THEN
  617. '    AddSectionFilesToCopyList "VfW Runtime", VFWDIR$, WinSysDir$
  618. '    AddSectionFilesToCopyList "OLE2", VFWDIR$, WinSysDir$
  619. '    AddSectionFilesToCopyList "ACM Drivers", VFWDIR$, WinSysDir$
  620. '    AddSectionFilesToCopyList "MPlayer", VFWDIR$, WinDir$
  621. '    AddSectionFilesToCopyList "AVICodecs", VFWDIR$, WinSysDir$
  622. '    AddSectionFilesToCopyList "Indeo-ini", VFWDIR$, WinDir$
  623. 'END IF
  624.  
  625.  
  626.  
  627.  
  628.     If ScrWid% = 640  Then
  629.         AddToBillboardList CUIDLL$, INFO1X, "FModelessDlgProc", 200
  630.     Else
  631.         AddToBillboardList CUIDLL$, INFO1, "FModelessDlgProc", 200
  632.     End If
  633.  
  634.     If ScrWid% = 640  Then
  635.         AddToBillboardList CUIDLL$, INFO2X, "FModelessDlgProc", 200
  636.     Else
  637.         AddToBillboardList CUIDLL$, INFO2, "FModelessDlgProc", 200
  638.     End If
  639.  
  640.     If ScrWid% = 640  Then
  641.         AddToBillboardList CUIDLL$, INFO3X, "FModelessDlgProc", 200
  642.     Else
  643.         AddToBillboardList CUIDLL$, INFO3, "FModelessDlgProc", 200
  644.     End If
  645.  
  646.     CopyFilesInCopyList
  647.  
  648.     CreateIniKeyValue "Win.ini", "Extensions", "sst", MakePath(SSTDESTDIR$,"SST.EXE"), cmoOverwrite
  649.  
  650. '//////Write the audio.ini file
  651.  
  652. ini$ = MakePath (WinDir$ , "AUDIO.INI")
  653.  
  654.     CreateIniKeyValue ini$, "SetupInfo",  "SetupPath", SIDESTDIR$ , cmoOverwrite
  655.     CreateIniKeyValue ini$, "SetupInfo",  "LastRunFrom", SIDESTDIR$ + "\audiosim.exe", cmoOverwrite
  656.     CreateIniKeyValue ini$, "SetupInfo",  "RATProduct", "No" , cmoOverwrite
  657.     CreateIniKeyValue ini$, "SetupInfo",  "Running", "No" , cmoOverwrite
  658.     CreateIniKeyValue ini$, "SetupInfo",  "MidiEditor", MIDIEDITOR , cmoOverwrite
  659.  
  660.     CreateIniKeyValue ini$, "Audio",      "PitchType", "Fixed", cmoOverwrite
  661.     CreateIniKeyValue ini$, "Audio",      "StartupDirectory",  MMDESTDIR$, CmoOverwrite
  662.  
  663.     CreateIniKeyValue ini$, "Audio",      "VirtualBoundary", "2" , cmoOverwrite
  664.  
  665.     CreateIniKeyValue ini$, "AudioLevel", "InputImpedance", "Mic", cmoOverwrite
  666.     CreateIniKeyValue ini$, "AudioLevel", "InputPatch", "On" , cmoOverwrite
  667.     CreateIniKeyValue ini$, "AudioLevel", "OutputPatch", "On" , cmoOverwrite
  668.     CreateIniKeyValue ini$, "AudioLevel", "MicPatch", "Record" , cmoOverwrite
  669.     CreateIniKeyValue ini$, "AudioLevel", "LinePatch", "Record" , cmoOverwrite
  670.     CreateIniKeyValue ini$, "AudioLevel", "AuxPatch", "Record" , cmoOverwrite
  671.     CreateIniKeyValue ini$, "AudioLevel", "Focus", "Mic" , cmoOverwrite
  672.     CreateIniKeyValue ini$, "AudioLevel", "OutputChannels", "Normal", cmoOverwrite
  673.  
  674.     IF SELECTED$ = "Other" THEN
  675.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  676.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  677.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  678.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  679.         CreateIniKeyValue ini$, "AudioLevel", "OutputChannels", "Normal" , cmoOverwrite
  680.     END IF
  681.     IF SELECTED$ = "MediaVision" THEN
  682.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  683.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaVisionStd" , cmoOverwrite
  684.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  685.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  686.         CreateIniKeyValue ini$, "AudioLevel", "OutputChannels", "Reversed" , cmoOverwrite
  687.     END IF
  688.  
  689.     IF SELECTED$ = "UNLISTED" THEN
  690.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  691.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  692.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  693.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  694.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  695.     END IF
  696.     IF SELECTED$ = "Antex VP Series" THEN
  697.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  698.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  699.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  700.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "7100" , cmoOverwrite
  701.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "36000" , cmoOverwrite
  702.     END IF
  703.     IF SELECTED$ = "Antex Audio Port" THEN
  704.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  705.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  706.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  707.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "7100" , cmoOverwrite
  708.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "36000" , cmoOverwrite
  709.     END IF
  710.     IF SELECTED$ = "Antex AV-16" THEN
  711.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  712.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  713.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  714.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "6000" , cmoOverwrite
  715.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "32000" , cmoOverwrite
  716.     END IF
  717.     IF SELECTED$ = "Antex SX Series" THEN
  718.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  719.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  720.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  721.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "6250" , cmoOverwrite
  722.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "50000" , cmoOverwrite
  723.     END IF
  724.     IF SELECTED$ = "ATI" THEN
  725.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  726.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  727.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  728.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  729.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  730.     END IF
  731.     IF SELECTED$ = "Audiotrix Pro"  THEN
  732.         CreateIniKeyValue ini$, "Audio", "MixerType", "AudiotrixPro" , cmoOverwrite
  733.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  734.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  735.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  736.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  737.     END IF
  738.     IF SELECTED$ = "Aztech" THEN
  739.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  740.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  741.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  742.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  743.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  744.     END IF
  745.     IF SELECTED$ = "Cardinal" THEN
  746.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  747.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  748.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  749.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  750.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  751.     END IF
  752.     IF SELECTED$ = "Creative Labs" THEN
  753.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  754.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  755.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  756.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "4001" , cmoOverwrite
  757.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  758.     END IF
  759.     IF SELECTED$ = "Diamond SonicSound LX" THEN
  760.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaChips" , cmoOverwrite
  761.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  762.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  763.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  764.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  765.     END IF
  766.     IF SELECTED$ = "Ensoniq Soundscape" THEN
  767.         CreateIniKeyValue ini$, "Audio", "MixerType", "Soundscape" , cmoOverwrite
  768.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  769.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  770.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  771.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  772.     END IF
  773.     IF SELECTED$ = "Genoa Systems" THEN
  774.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "Yes", cmoOverwrite
  775.         CreateIniKeyValue ini$, "Audio", "MixerType", "Genoa" , cmoOverwrite
  776.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  777.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  778.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  779.     END IF
  780.     IF SELECTED$ = "Jovian Logic" THEN
  781.         CreateIniKeyValue ini$, "Audio", "MixerType", "Jovian" , cmoOverwrite
  782.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  783.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  784.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  785.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  786.     END IF
  787.     IF SELECTED$ = "Logitech SoundMan 16" THEN
  788.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaVision" , cmoOverwrite
  789.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  790.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  791.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  792.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  793.     END IF
  794.     IF SELECTED$ = "Media Chips MAD-16" THEN
  795.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaChips" , cmoOverwrite
  796.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  797.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  798.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  799.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  800.     END IF
  801.     IF SELECTED$ = "Media Master" THEN
  802.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaMaster" , cmoOverwrite
  803.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  804.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  805.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  806.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  807.     END IF
  808.     IF SELECTED$ = "Media Vision all cards" THEN
  809.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaVisionStd" , cmoOverwrite
  810.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  811.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  812.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  813.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  814.         CreateIniKeyValue ini$, "AudioLevel", "OutputChannels", "Reversed", cmoOverwrite
  815.     END IF
  816.     IF SELECTED$ = "Media Vision AudioPort" THEN
  817.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  818.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  819.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  820.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  821.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  822.     END IF
  823.     IF SELECTED$ = "Mediasonic" THEN
  824.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  825.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  826.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  827.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  828.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  829.     END IF
  830.     IF SELECTED$ = "MIDI Land" THEN
  831.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  832.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  833.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  834.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  835.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  836.     END IF
  837.     IF SELECTED$ = "Oak Mozart" THEN
  838.         CreateIniKeyValue ini$, "Audio", "MixerType", "MediaChips" , cmoOverwrite
  839.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  840.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  841.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  842.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  843.     END IF
  844.     IF SELECTED$ = "Omni Labs AudioMaster" THEN
  845.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  846.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  847.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  848.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  849.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  850.     END IF
  851.     IF SELECTED$ = "Orchid SoundWave 32" THEN
  852.         CreateIniKeyValue ini$, "Audio", "MixerType", "Orchid" , cmoOverwrite
  853.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  854.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Fixed" , cmoOverwrite
  855.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "11025" , cmoOverwrite
  856.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  857.     END IF
  858.     IF SELECTED$ = "ProMEDIA" THEN
  859.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  860.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  861.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  862.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "6300" , cmoOverwrite
  863.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "48000" , cmoOverwrite
  864.     END IF
  865.     IF SELECTED$ = "Roland RAP-10" THEN
  866.         CreateIniKeyValue ini$, "Audio", "MixerType", "Roland" , cmoOverwrite
  867.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  868.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  869.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  870.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "88200" , cmoOverwrite
  871.     END IF
  872.     IF SELECTED$ = "Sound FX 16" THEN
  873.         CreateIniKeyValue ini$, "Audio", "MixerType", "SoundFX16" , cmoOverwrite
  874.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  875.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  876.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  877.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  878.     END IF
  879.  
  880.     IF SELECTED$ = "Turtle Beach" THEN
  881.         CreateIniKeyValue ini$, "Audio", "MixerType", "Standard" , cmoOverwrite
  882.         CreateIniKeyValue ini$, "Audio", "RoundMixerKnobs", "No", cmoOverwrite
  883.         CreateIniKeyValue ini$, "Audio", "SamplerType", "Variable" , cmoOverwrite
  884.         CreateIniKeyValue ini$, "Audio", "SamplerMin", "5000" , cmoOverwrite
  885.         CreateIniKeyValue ini$, "Audio", "SamplerMax", "44100" , cmoOverwrite
  886.     END IF
  887.  
  888.     ini$ = MakePath (GetWindowsDir, "MIDISOFT.INI")
  889.     CreateIniKeyValue ini$, "SetupInfo", RUNNING, "NO", cmoOverwrite
  890.     CreateIniKeyValue ini$, "SetupInfo", SETUPPATH, MMDESTDIR$, cmoOverwrite
  891.     CreateIniKeyValue ini$, "SetupInfo", LASTRUNFROM, MakePath(MMDESTDIR$,MIDIEXE), cmoOverwrite
  892.  
  893.  
  894.  
  895. ' More VFW stuff
  896.  
  897. 'IF vfw$ = "OFF" THEN
  898.  
  899. 'IF VflatdPresent() = 0 THEN
  900. '       CreateSysIniKeyValue WinDir$ + "system.ini", "386Enh", "device", "dva.386", cmoOverwrite
  901. '    END IF
  902. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.CVID", "iccvid.drv", cmoOverwrite
  903. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MSVC", "msvidc.drv", cmoOverwrite
  904. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.IV31", "indeov.drv", cmoOverwrite
  905. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.MRLE", "MSRLE.drv", cmoOverwrite
  906. '    I% = DoesIniKeyExist ("system.ini", "Drivers", "VIDC.RT21")
  907. '    IF I% = 0  THEN
  908. '       CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.RT21", "indeov.drv", cmoOverwrite
  909. '    END IF
  910. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "VIDC.YVU9", "indeov.drv", cmoOverwrite
  911. '    CreateIniKeyValue WinDir$ + "WIN.INI", "mci extensions", "avi", "AVIVideo", cmoOverwrite
  912. '    CreateIniKeyValue WinDir$ + "system.ini", "mci", "AVIVideo", "mciavi.drv", cmoOverwrite
  913. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "WaveMapper", "msacm.drv", cmoOverwrite
  914. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.msadpcm", "msadpcm.acm", cmoOverwrite
  915. '    CreateIniKeyValue WinDir$ + "system.ini", "Drivers", "MSACM.imaadpcm", "imaadpcm.acm", cmoOverwrite
  916. '    CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msacm.drv", "Microsoft Sound Mapper V2.00", cmoOverwrite
  917. '    CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "msadpcm.acm", "Microsoft ADPCM Codec V2.00", cmoOverwrite
  918. '    CreateIniKeyValue WinDir$ + "control.ini", "drivers.desc", "imaadpcm.acm", "Microsoft IMA ADPCM Codec V2.00", cmoOverwrite
  919. '    Run ("regedit.exe /s " + MakePath(WinDir$, "mplayer.reg"))
  920. '    Run ("regedit.exe /s " + MakePath(WinSysDir$, "OLE2.reg"))
  921. '    Run ("regedit.exe /s " + MakePath(WinSysDir$, "cleanup.reg"))
  922.  
  923. 'END IF
  924.  
  925.     ICONPATH$ = MakePath(SrcDir$,"PRESPART.ICO")
  926.     ICONPATH3$ = MakePath(SrcDir$,"ASSIST.ICO")
  927.     ICONPATH2$ = MakePath(SrcDir$,"SST.ICO")
  928.     HLPICONPATH$ = MakePath(SrcDir$, "HELP.ICO")
  929.  
  930.     CreateProgmanGroup "Presentation Partner", "", cmoNone
  931.     ShowProgmanGroup  "Presentation Partner", 1, cmoNone
  932.     CreateProgmanItem "Presentation Partner", "Presentation Partner", PRESPARTDESTDIR$ + "\PRESPART.EXE", ICONPATH$, cmoOverwrite
  933.     CreateProgmanItem "Presentation Partner", "ShowScript Assistant", PRESPARTDESTDIR$ + "\ASSIST.EXE", ICONPATH3$, cmoOverwrite
  934.     CreateProgmanItem "Presentation Partner", "Super Show & Tell 1.1", SSTDESTDIR$ + "\SST.EXE", ICONPATH2$, cmoOverwrite
  935.      ''CreateProgmanItem "Presentation Partner", "ShowScript Assistant", PRESPARTDESTDIR$ + "\SSASSIST.HLP", HLPICONPATH$, cmoOverwrite
  936.     CreateProgmanItem "Presentation Partner", "Presentation Partner Quick Tour", QTDIR$ + "\PLAYACT.EXE QUIKTOUR.ACP", "", cmoOverwrite
  937.      findpm$ = FindTargetOnEnvVar ("progman.exe","path")
  938. IF findpm$ <> "" THEN
  939.     CreateProgmanItem "Presentation Partner", HELPTITLE, MakePath(MMDESTDIR$, HELPEXE),"", cmoOverwrite
  940.     CreateProgmanItem "Presentation Partner", NOTATIONTITLE, "WINHELP -i INTRO_NOTATION " + MMDESTDIR$ + "\INTRO.HLP","", cmoOverwrite
  941.     CreateProgmanItem "Presentation Partner", MIDITITLE, "WINHELP -i INTRO_MIDI " + MMDESTDIR$ + "\INTRO.HLP","", cmoOverwrite
  942.     CreateProgmanItem "Presentation Partner", GENERALTITLE, "WINHELP -i INTRO_GENERAL_MIDI " + MMDESTDIR$ + "\INTRO.HLP","", cmoOverwrite
  943.     CreateProgmanItem "Presentation Partner", "Music Magic", MakePath (MMDESTDIR$, MIDIEXE), "", cmoOverwrite
  944.  
  945.  
  946.     CreateProgmanItem "Presentation Partner", "Waveform Editor", MakePath (SIDESTDIR$ , "audiored.exe"), "", cmoOverwrite
  947.     CreateProgmanItem "Presentation Partner", "Wave Composer", MakePath (SIDESTDIR$ , "audiorcm.exe"), "", cmoOverwrite
  948.     CreateProgmanItem "Presentation Partner", "Session Manager", MakePath (SIDESTDIR$ , "audiormn.exe"), "", cmoOverwrite
  949.  
  950.  
  951.     CreateProgmanItem "Presentation Partner", SIHELPTITLE, MakePath (SIDESTDIR$ , "audiohlp.hlp"), "", cmoOverwrite
  952.     CreateProgmanItem "Presentation Partner", "Sound Impression", MakePath (SIDESTDIR$ , "audiosim.exe"), "", cmoOverwrite
  953.  
  954. ELSE
  955.     nopm% = MessageBox(hwnd%,"Program Manager not found on your path. Add Sound Impression paths and properties to your shell after installation.", "Sound Impression Setup)", MB_OK+MB_ICONINFORMATION)
  956. END IF 'Program manager present
  957.  
  958.     'VFW Stuff
  959.     'If vfw$ = "OFF" THEN
  960.  
  961.     'Run ("profdisp.exe")
  962.     'End if
  963.  
  964.     'end vfw
  965.  
  966.  
  967.  
  968.  
  969. 'This stuff restarts Windows for VFW
  970.  
  971. 'IF vfw$ = "OFF" THEN
  972. 'SetRestartDir WinDir$
  973.  
  974. 'RESTRT% = RestartListEmpty ()
  975. '    Exe$ = DEST$ + "\_msrstrt.exe"
  976. '    Batch$ = DEST$ + "\_mssetup.bat"
  977. '    empty$ = ""
  978.  
  979.  
  980. 'RESTART:
  981. '    IF RESTRT% = 0 THEN
  982. '       sz$ = UIStartDlg(cuidll$, RESTART, "FInfo0DlgProc", 0, "")
  983. '       IF sz$ = "REACTIVATE" THEN
  984. '      GOTO RESTART
  985. '       ENDIF
  986. '       I% = ExitExecRestart ()
  987. '       RemoveFile Exe$, cmoForce
  988. '       RemoveFile Batch$, cmoForce
  989. '       END
  990. '    ELSE
  991. '       sz$ = UIStartDlg(CUIDLL$, RESTARTII, "FQuitDlgProc", 0, "")
  992. '       IF sz$ = "CONTINUE" THEN
  993. '      I% = ExitWindowsExec (Exe$, empty$)
  994. '      IF I% = 0 THEN
  995. '         GOTO RESTART
  996. '      ELSE
  997. '         END
  998. '     ENDIF
  999. '       ELSEIF sz$ = "EXIT" THEN
  1000. '      UIPopAll
  1001. '      END
  1002. '       ELSEIF sz$ = "REACTIVATE" THEN
  1003. '      GOTO RESTART
  1004. '       ELSE
  1005. '      UIPop 1
  1006. '       END IF
  1007. '    END IF
  1008.  
  1009. 'END IF
  1010.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  1011.     RUN SrcDir$ + "_setup.exe", NOWAIT
  1012. END SUB
  1013.  
  1014.  
  1015.  
  1016. '**
  1017. '** Purpose:
  1018. '**     Appends a file name to the end of a directory path,
  1019. '**     inserting a backslash character as needed.
  1020. '** Arguments:
  1021. '**     szDir$  - full directory path (with optional ending "\")
  1022. '**     szFile$ - filename to append to directory
  1023. '** Returns:
  1024. '**     Resulting fully qualified path name.
  1025. '*************************************************************************
  1026. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  1027.     IF szDir$ = "" THEN
  1028.         MakePath = szFile$
  1029.     ELSEIF szFile$ = "" THEN
  1030.         MakePath = szDir$
  1031.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  1032.         MakePath = szDir$ + szFile$
  1033.     ELSE
  1034.         MakePath = szDir$ + "\" + szFile$
  1035.     END IF
  1036. END FUNCTION
  1037.  
  1038.  
  1039. '************************************************************************
  1040. '   CreateProgGroup
  1041. '   This subroutine creates a program manager group if the user elects
  1042. '   to run mentor from the cd-rom
  1043. SUB CreateProgGroup STATIC
  1044.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  1045.     RUNDEST$ = MakePath(SrcDir$, "RUNTIME")
  1046.     ICONPATH$ = MakePath(RUNDEST$,"MENTOR.ICO")
  1047.     CreateIniKeyValue "Win.ini", "Extensions", "mtr", MakePath(DEST$,"TBOOK.EXE"), cmoOverwrite
  1048.     CreateProgmanGroup "Music Mentor CD-ROM Edition", "", cmoNone
  1049.     ShowProgmanGroup  "Music Mentor CD-ROM Edition", 1, cmoNone
  1050.     CreateProgmanItem "Music Mentor CD-ROM Edition", "Music Mentor CD-ROM Edition", MakePath(RUNDEST$,"TBOOK.EXE") + " " + SrcDir$ + "MENTOR.MTR", ICONPATH$, cmoOverwrite
  1051. END SUB
  1052.  
  1053.  
  1054.  
  1055.  
  1056.  
  1057.  
  1058.  
  1059.  
  1060.  
  1061.  
  1062.  
  1063.  
  1064.