home *** CD-ROM | disk | FTP | other *** search
/ MultiMedia! Sing-n-Story Time / SINGNSTORY.bin / setup.inf < prev    next >
Text File  |  1993-12-17  |  8KB  |  190 lines
  1. SetVariable( Titlename, "Sing-n-Story Time")
  2. SetVariable( TitleTBK, "AllStory")
  3.  
  4. GetCurPath (BookSrcDir)        ; Source directory of the App
  5. SetVariable (BookSize, 6 000 000)    ; Size of the App files that will
  6.                     ;  be copied over (measured in bytes)
  7. SetVariable (BookDestDir, "C:\STRYTIME\")    ; Destination directory for
  8.                         ;  the Book.  Set default
  9. SetVariable (VFWSrcDir, <BookSrcDir> "VFW\")
  10. WindowTitle (<TitleName> " Setup")
  11.  
  12. SetVariable (InitialInstructions,
  13.     "Click on {\b OK} or press {\b Enter} to continue.  "
  14.     "To abort the setup, click on the {\b Exit} button at the "
  15.     "bottom right corner of the screen, or press {\b F3}.  ")
  16.  
  17. DisplayMessage ("    
  18.     Installing " <TitleName> ". 
  19.     
  20.  
  21.     The setup program will install " <TitleName> " into the 
  22.     default directory, which it will create on your hard disk. 
  23.     
  24.     To install " <TitleName> " in a different directory or drive, 
  25.     type the name of the directory you want. 
  26.     
  27.  
  28.              Click OK to begin installation. ",
  29.         <InitialInstructions>)
  30.  
  31. AskAgain:
  32. PromptBookDestDir:
  33. PromptPath (BookDestDir, <BookDestDir>,
  34.     "Where should Setup install the Program?",
  35.     "Modify the default path if necessary, and then click on {\b OK} or "
  36.     "press {\b Enter} to continue.  ",
  37.     "The path is currently not valid.  You must specify a drive "
  38.     "letter, a colon, and a directory from the root of the drive.  ")
  39.  
  40.  
  41. ; Don't allow Application to be installed in the Windows directory
  42. ;
  43. GetWinPath (WinPath)
  44.  
  45. GetWinSystemPath (SystemPath)
  46. IfNotEqualGoto (<BookDestDir>, <WinPath>, CheckSpace)
  47. DisplayMessage (
  48.     "You cannot install the Application into the Windows directory.  "
  49.     "Please enter another directory.",
  50.     "Click on {\b OK} or press {\b Enter} to enter another directory "
  51.     "for the Application.")
  52. Goto (PromptBookDestDir)
  53.  
  54. CheckSpace:
  55. GetSpaceAvailable (SpaceAvailable, <BookDestDir>)
  56.  
  57. IfLowerGoto (<BookSize>, <SpaceAvailable>, BookDestDirOK)
  58.  
  59. DisplayMessage ("
  60.     There is not enough disk space.
  61.  
  62.     Make room first and restart Setup.
  63.     or change to another hard drive and try again. ",
  64.         "Click OK to acknowledge ")
  65.     
  66. goto(endnotOK)
  67.  
  68. BookDestDirOK:
  69. AskYesNo (AskAgain, "No",
  70.     "Would you like to change anything before proceeding with "
  71.     "the installation?",
  72.     "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  73.     "Click on {\b No} or press {\b 'N'} to proceed with installation.  ")
  74. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  75.  
  76. ; Create the tree structure.
  77. ;
  78. MakePath (<BookDestDir>)
  79. ;Copy the files
  80.  
  81. OpenCopyProgress (
  82.     "Setup is copying the Application files.",
  83.     "Please wait while Setup is copying files.")
  84. Copyfile(<BookSrcDir> "TBOOK.EXE", <BookDestDir> "TBOOK.EXE", 10000)
  85. Copyfile(<BookSrcDir> "TBKBASE.DLL", <BookDestDir> "TBKBASE.DLL", 10000)
  86. Copyfile(<BookSrcDir> "TBKUTIL.DLL",<BookDestDir> "TBKUTIL.DLL", 10000)
  87. Copyfile(<BookSrcDir> "TBKNET.EXE ", <BookDestDir> "TBKNET.EXE ", 10000)
  88. Copyfile(<BookSrcDir> "TBKDLG.DLL", <BookDestDir> "TBKDLG.DLL", 10000)
  89. Copyfile(<BookSrcDir> "TBKCOMP.DLL ", <BookDestDir> "TBKCOMP.DLL ", 10000)
  90. Copyfile(<BookSrcDir> "TBKFILE.DLL", <BookDestDir> "TBKFILE.DLL", 10000)
  91. Copyfile(<BookSrcDir> "TBKWIN.DLL", <BookDestDir> "TBKWIN.DLL", 10000)
  92. Copyfile(<BookSrcDir> "TBKMM.DLL", <BookDestDir> "TBKMM.DLL", 10000)
  93. Copyfile(<BookSrcDir> "TBKBMP.DLL", <BookDestDir> "TBKBMP.DLL", 10000)
  94. Copyfile(<BookSrcDir> "TBKMMWID.FON", <BookDestDir> "TBKMMWID.FON", 10000)
  95. Copyfile(<BookSrcDir> "TBKMM.SBK", <BookDestDir> "TBKMM.SBK", 10000)
  96. Copyfile(<BookSrcDir> "TBKMM.INI", <BookDestDir> "TBKMM.INI", 10000)
  97. Copyfile(<BookSrcDir> "MDIABLTZ.DLL", <BookDestDir> "MDIABLTZ.DLL", 10000)
  98. Copyfile(<BookSrcDir> "MYCURSOR.DLL", <BookDestDir> "MYCURSOR.DLL", 10000)
  99. SetProgressBarMsg("Setup is copying Readme files")
  100. Copyfile(<BookSrcDir> "readme.ico", <BookDestDir> "readme.ico", 10000)
  101. Copyfile(<BookSrcDir> "readme.txt", <BookDestDir> "readme.txt", 10000)
  102. SetProgressBarMsg("Setup is copying Application files")
  103. Copyfile(<BookSrcDir> "ALLSTORY.tbk", <BookDestDir> "ALLSTORY.tbk", 10000)
  104. Copyfile(<BookSrcDir> "805.ico", <BookDestDir> "805.ico", 10000)
  105.  
  106. SetProgressBarMsg("Setup is copying Video for Window runtime files")
  107. Copyfile(<VFWSrcDir> "dispdib.dll", <SystemPath> "dispdib.dll", 100000)
  108. Copyfile(<VFWSrcdir> "mciole.dll", <WinPath> "mciole.dll", 100000)
  109. Copyfile(<VFWSrcDir> "msvideo.dll", <SystemPath> "msvideo.dll", 100000)
  110. Copyfile(<VFWSrcdir> "indeo.drv", <SystemPath> "indeo.drv", 100000)
  111. Copyfile(<VFWSrcDir> "mciavi.drv", <SystemPath> "mciavi.drv", 100000)
  112. Copyfile(<VFWSrcdir> "msvidc.drv", <SystemPath> "msvidc.drv", 100000)
  113. Copyfile(<VFWSrcDir> "mplayer.hlp", <WinPath> "mplayer.hlp", 100000)
  114. Copyfile(<VFWSrcDir> "mplayer.exe", <WinPath> "mplayer.exe", 100000)
  115. Copyfile(<VFWSrcdir> "mplayer.reg", <WinPath> "mplayer.reg", 100000)
  116.  
  117. CloseCopyProgress ()
  118.  
  119. OpenProgmanProgress (
  120.     "Setup is adding Program Manager groups.",
  121.     "Please wait while Setup adds {\b Program Manager} groups".)
  122.  
  123.  
  124. OpenProgmanGroup (<TitleName>, Delete)
  125. AddProgmanItem ("Readme", <BookDestDir> "README.TXT",
  126.     <BookDestDir> "README.ICO", 0)
  127. AddProgmanItem (<TitleName>,
  128.     <BookDestDir> "TBOOK.EXE " <TitleTBK> ".TBK",
  129.     <BookDestDir> "805.ICO", 0)    
  130.  
  131. CloseProgmanProgress ()
  132.  
  133. ModifyAutoexec (<BookDestDir>, "", "",
  134.     "Setup must now make some changes to your {\b AUTOEXEC.BAT} file.  "
  135.     "Click on the desired option and click on {\b OK} to continue.  With "
  136.     "the keyboard, use the arrow keys to select the desired option, and "
  137.     "then press {\b Enter} to continue.\par\par "
  138.     "{\b o} Select the first option to let Setup modify your "
  139.     "AUTOEXEC.BAT file\par "
  140.     "{\b o} Select the second option to view and change the changes "
  141.     "first\par "
  142.     "{\b o} Select the third option if you want to make the changes "
  143.     "yourself later on\par\par ",
  144.     "You can now view the proposed changes to the {\b AUTOEXEC.BAT} "
  145.     "file.  If the changes were not made to your satisfaction, you can "
  146.     "modify the proposed batch file by editing the file in the top "
  147.     "window.  Click on {\b OK} or press {\b Enter} to replace the "
  148.     "current batch file with the proposed one.  To return to the "
  149.     "AUTOEXEC modification options dialog, click on {\b Cancel} or press "
  150.     "{\b Esc}.",
  151.     "Setup can save the proposed {\b AUTOEXEC.BAT} file to a file that "
  152.     "you specify.  You will have to modify your own {\b AUTOEXEC.BAT} "
  153.     "file yourself and then reboot your computer in order for the App "
  154.     "to function normally.  To return to the AUTOEXEC modification "
  155.     "options dialog, click on {\b Cancel} or press {\b Esc}.")
  156.  
  157.  
  158. ;Update WIN.INI.
  159. ;
  160. AddToWinIni ("mci extensions", "avi", "AVIVIDEO")
  161. AddToWinIni ("Extensions", "avi", <WinPath> "mplayer.exe ^.avi")
  162. AddToWinIni ("ToolBook", "StartupSysbooks", <Bookdestdir> "tbkmm.sbk")
  163.  
  164. ; AddToProfileIni (File, Tag, Name, Value)
  165.  
  166. AddToProfileIni ("SYSTEM.INI", "Drivers", "VIDC.MSVC","msvidc.drv")
  167. AddToProfileIni ("SYSTEM.INI", "Drivers", "VIDC.RT21","indeo.drv")
  168. AddToProfileIni ("SYSTEM.INI", "mci", "AVIVIDEO","mciavi.drv")
  169.  
  170. end:
  171. SetVariable (Message,"
  172.     The installation is completed. 
  173.     
  174.     You should read the Readme.txt before running the program.
  175.     Double click on the Readme Icon to see the file Readme.txt. ")
  176. DisplayMessage (<Message>,
  177.     "Click on {\b OK} or press {\b Enter} to return to the "
  178.     "Program Manager.")
  179.  
  180.  
  181. goto(endOK)
  182. endNotOK:
  183. SetVariable (Message,"The installation is NOT complete. ")        
  184. DisplayMessage (<Message>,
  185.     "Click on {\b OK} or press {\b Enter} to return to the "
  186.     "Program Manager.")
  187.  
  188. EndOK:
  189.  
  190.