home *** CD-ROM | disk | FTP | other *** search
/ A World of Art - The Ult…ate Multimedia Collection / EEA_RenaissanceMastersVol1.bin / setup.inf < prev    next >
Text File  |  1995-02-17  |  12KB  |  335 lines
  1. SetVariable(ProgPath,"C:\TDC")
  2. SetVariable(ProgName,"RM1.EXE")
  3. SetVariable(InstallName, "Renaissance Masters Vol. I")
  4. SetVariable(DataSpace,"1.7 Megabytes")
  5. SetVariable(ProgSpace,"1.1 Megabytes")
  6. SetVariable(EbookSize, 1 100 000)
  7. SetVariable(DataSize, 1 700 000)
  8. SetVariable(TitleName,"Renaissance Masters Vol. I")
  9. SetVariable(IniName,"RM1EA.INI")
  10. GetCurPath (CurPath)
  11.  
  12. ; The following instructions are displayed several times so we put the
  13. ; text in a variable.
  14. ;
  15. SetVariable (InsAskPath,
  16.     "Modify the default path if necessary, and then click on {\b OK} or "
  17.     "press {\b Enter} to continue.  ")
  18. SetVariable (InsBadPath,
  19.     "The path is currently not valid.  You must specify a drive "
  20.     "letter, a colon, and a directory from the root of the drive.  ")
  21.  
  22. ; Set the title of all dialog windows.
  23. ;
  24. WindowTitle (<InstallName>" Setup")
  25.  
  26. ; Set the instruction text used in the initial instructions window.
  27. ; Add Help instructions if the file SETUP.HLP exists.
  28. ;
  29. SetVariable (InitialInstructions, 
  30.     "Click on {\b OK} or press {\b Enter} to continue.  "
  31.     "To abort the setup, click on the {\b Exit} button at the "
  32.     "bottom right corner of the screen, or press {\b F3}.  ")
  33. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  34.     Goto (DisplayInitialMessage)
  35. AddHelpInstructions:
  36.     SetVariable (InitialInstructions, 
  37.         <InitialInstructions> "You can always obtain help by "
  38.         "clicking on the {\b Help} button or pressing {\b F1}.  ")
  39.  
  40. ; Display the initial message.
  41. ;
  42. DisplayInitialMessage:
  43. DisplayMessage (
  44. "The Setup program will install the " <InstallName> " on your hard disk."
  45. "  There are two options available for installation:%n%n"
  46.  
  47. "Run " <InstallName> " Entirely off of the CD-ROM.%n%n"
  48. "Copy " <ProgName> " to your Hard Disk to improve execution speed.%n%n",
  49. <InitialInstructions>)
  50.  
  51. ;ask if user wants to copy the ebook files to hard disk
  52. AskYesNo (Prompt, "Yes",
  53.     "The " <TitleName> " files require about " <ProgSpace> " of disk "
  54.     "space.  Would you like to copy them to your hard disk?",
  55.     <TitleName> " Can be run from the CD-ROM, but copying it to your "
  56.     "Hard disk will improve execution speed.\par\par "
  57.     "Click on {\b Yes} or press {\b 'Y'} to copy the " <TitleName> 
  58.     " files.\par "
  59.     "Click on {\b No} or press {\b 'N'} to proceed without copying the "
  60.     <TitleName> " source files.")
  61. IfEqualGoto (<Prompt>, "No", DontPromptTitlePath)
  62.  
  63.  
  64.  
  65.  
  66. AskAgain:
  67.  
  68.  
  69. ; Ask for where the Ebook files should be installed.
  70. ;
  71. PromptEbookPath:
  72. PromptPath (ProgPath, <ProgPath>,
  73.     "Where should Setup install the Program files?",
  74.     <InsAskPath>, <InsBadPath>)
  75.  
  76.  
  77. ; Don't allow Ebook to be installed in the Windows directory
  78. ;
  79. GetWinPath (WinPath)
  80. GetWinSystemPath (SystemPath)
  81. IfNotEqualGoto (<ProgPath>, <WinPath>, CheckSpace)
  82. DisplayMessage (
  83.     "You cannot install this program into the Windows directory.  "
  84.     "Please enter another directory.",
  85.     "Click on {\b OK} or press {\b Enter} to enter another directory "
  86.     "for this program.")
  87. Goto (PromptEbookPath)
  88.  
  89. ; Check if there is enough space to install the Ebook files.
  90. ;
  91. CheckSpace:
  92. GetSpaceAvailable (SpaceAvailable, <ProgPath>)
  93. IfLowerGoto (<EbookSize>, <SpaceAvailable>, EbookPathOK)
  94. AskYesNo (Prompt, "Yes",
  95.     "There may not be enough space to install the "<InstallName>" Files."
  96.     "  Would you like to enter a new path for the files?  ",
  97.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  98.     "program files.\par "
  99.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  100.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  101.     "You may wish to exit Setup and make some more space on your hard "
  102.     "disk.  Run Setup again when there is enough space on your hard "
  103.     "disk.  ")
  104. IfEqualGoto (<Prompt>, "Yes", PromptEbookPath)
  105.  
  106. EbookPathOK:
  107. ;create the subdirectory
  108. MakePath(<ProgPath>)
  109. ;copy the ebook files
  110. OpenCopyProgress(
  111.     "Setup is copying the "<InstallName> " Program files.",
  112.     "Please wait while Setup is copying files.")
  113.  
  114. CopyFile("RM1.EXE",<ProgPath> "RM1.EXE", 250000)
  115. CopyFile("TITLE.DIB",<ProgPath> "TITLE.DIB", 93000)
  116. CopyFile("TITLE.WAV",<ProgPath> "TITLE.WAV", 550000)
  117. CopyFile("TDCEEA.HLP",<ProgPath> "TDCEEA.HLP",50000)
  118. CopyFile("INTRO.EXE",<ProgPath> "INTRO.EXE",50000)
  119. CopyFile("TDC.BMP",<ProgPath> "TDC.BMP",50000)
  120. CopyFile("TDC.ICO",<ProgPath> "TDC.ICO",50000)
  121.  
  122. CloseCopyProgress()
  123.  
  124.  
  125.  
  126.  
  127.  
  128. SetVariable(DataPath,<CurPath>"DATA")
  129. GoTo(EbookCopied)
  130. DontPromptTitlePath:
  131. SetVariable(DataPath,<CurPath>"DATA")
  132. SetVariable(ProgPath,<CurPath>)
  133. GoTo(EbookNotCopied)
  134.  
  135. EbookCopied:
  136. SetVariable(ProgPath,<ProgPath>)
  137. EbookNotCopied:
  138.  
  139. ;copy the ebook.ini file and add the paths
  140. AddToProfileIni(<IniName>,"PATHS","CDROM",<CurPath>)
  141. AddToProfileIni(<IniName>,"PATHS","PICTURE",<CurPath>"PIX")
  142. AddToProfileIni(<IniName>,"PATHS","DATA",<CurPath>"DATA")
  143. AddToProfileIni(<IniName>,"PATHS","INDEX",<CurPath>"DATA")
  144. AddToProfileIni(<IniName>,"PATHS","PSTAMPPATH",<CurPath>"DATA")
  145. AddToProfileIni(<IniName>,"PATHS","MIDIPATH",<CurPath>"MIDI")
  146.  
  147. ;add the info for this title to ebook.ini
  148. AddToProfileIni(<IniName>,"EEAVOL2","Title","Renaissance Masters Vol. I")
  149. AddToProfileIni(<IniName>,"EEAVOL2","Card","WINCARD2")
  150. AddToProfileIni(<IniName>,"EEAVOL2","NumberIndex","6")
  151. AddToProfileIni(<IniName>,"EEAVOL2","IndexNames","ARTIST2,TITLE2,MEDIUM2,DATE2,OBJ2,CSCHOOL2");
  152. AddToProfileIni(<IniName>,"EEAVOL2","IndexTitles","Artist,Title,Medium,Date,Object,School");
  153. AddToProfileIni(<IniName>,"EEAVOL2","PStamp","1")
  154. AddToProfileIni(<IniName>,"EEAVOL2","BrowseMode","0")
  155. AddToProfileIni(<IniName>,"EEAVOL2","NumberPixColumns","5")
  156. AddToProfileIni(<IniName>,"EEAVOL2","NumberPixRows","3")
  157. AddToProfileIni(<IniName>,"EEAVOL2","NumberMIDI","4")
  158. AddToProfileIni(<IniName>,"EEAVOL2","MidiFiles","PRIMAVER,PROFUMIE,LASIRENA,CANTENA")
  159. AddToProfileIni(<IniName>,"EEAVOL2","MidiTitles","Ecco la Primavera,Canto de'Profumieri,Balletto la Sirena,La Cantena D'Amore")
  160.  
  161.  
  162.  
  163. ;add the program group
  164. OpenProgManProgress("Setup is adding a Program Manager Group",
  165.     "Please wait while Setup adds the Group")
  166. OpenProgManGroup("TDC Interactive")
  167. AddProgManItem("Renaissance Masters Vol.I",<ProgPath>"Intro.exe RM1.EXE EEAVOL2",
  168.     <ProgPath>"TDC.ICO",0)
  169. CloseProgManProgress()
  170.  
  171. ;cleanup
  172.  
  173. IfIncompleteGoto(NotInstalled)
  174.  
  175. Installed:
  176.     SetVariable (Message, 
  177.         "The Setup program has successfully installed the "
  178.         <TitleName> ".%n%n")
  179.  
  180. GoTo(Essay)
  181.  
  182. NotInstalled:
  183.     SetVariable (Message,
  184.         "Setup has finished, but the installation was incomplete.  "
  185.         "You should correct any problems (such as insufficient disk "
  186.         "space, missing source files, or locked directories) and run "
  187.         "Setup again.%n%n")
  188.  
  189. Essay:
  190.  
  191. AskYesNo (Prompt, "Yes",
  192.     "Would you like to load an Essay on the
  193. 'The Renaissance in Italy'   by Jane Dillenberger?",
  194.     "Click on {\b Yes} or press {\b 'Y'} to copy the Essay files.\par "
  195.     "Click on {\b No} or press {\b 'N'} to quit without installing the Essay.")
  196. IfEqualGoto (<Prompt>, "No", Exit)
  197.  
  198. GetCurPath (ViewerSrcDir)        ; Source directory of the Viewer
  199. SetVariable (ViewerSize, 1 000 000)    ; Size of the Viewer files that will
  200.                     ;  be copied over (measured in bytes)
  201. SetVariable (ViewerDestDir, "C:\VIEWER\")    ; Destination directory for 
  202.                         ;  the Viewer.  Set default
  203.                         ;  here.
  204.  
  205. SetVariable (TitleName, "The Renaissance in Italy"); Name of the title
  206.  
  207. SetVariable (TitleMVB, "ARTBOOK")        ; Basename of the MVB file
  208. SetVariable (TitleSrcDir, "\ESSAY\")    ; Source subdirectory of the title
  209. DisplayInitialMessage:
  210. DisplayMessage (
  211.     "
  212.         
  213.     This part of the Setup will install:
  214.     
  215.     The Renaissance in Italy, an Essay,
  216.  
  217.     and the Multimedia Viewer.
  218.         
  219.     
  220.     You will be prompted for the location for the
  221.     Multimedia Viewer. This will require about 1
  222.     Megabyte of disk space.",
  223.     <InitialInstructions>)
  224.  
  225.  
  226. ; Determine if the Viewer has been installed before.
  227. ; If the WIN.INI file contains information on where the Viewer directory
  228. ; is located, then make that the default path to install the Viewer.
  229. ;
  230. GetFromWinIni (ViewerDestDirTemp, 
  231.     "Multimedia Viewer", "ViewerPath", "Undefined")
  232. IfEqualGoto (<ViewerDestDirTemp>, "Undefined", PromptViewerDestDir)
  233. SetVariable (ViewerDestDir, <ViewerDestDirTemp>)
  234.  
  235.  
  236. AskAgain2:
  237.  
  238.  
  239. ; Ask for where the Multimedia Viewer should be installed.
  240. ;
  241. PromptViewerDestDir:
  242. PromptPath (ViewerDestDir, <ViewerDestDir>,
  243.     "Where should Setup install the Multimedia Viewer?",
  244.     "Modify the default path if necessary, and then click on {\b OK} or "
  245.     "press {\b Enter} to continue.  ",
  246.     "The path is currently not valid.  You must specify a drive "
  247.     "letter, a colon, and a directory from the root of the drive.  ")
  248.  
  249.  
  250. ; Don't allow Viewer to be installed in the Windows directory
  251. ;
  252. GetWinSystemPath (SystemPath)
  253. GetWinPath (WinPath)
  254. IfNotEqualGoto (<ViewerDestDir>, <WinPath>, CheckSpace2)
  255. DisplayMessage (
  256.     "You cannot install the Viewer into the Windows directory.  "
  257.     "Please enter another directory.",
  258.     "Click on {\b OK} or press {\b Enter} to enter another directory "
  259.     "for Viewer.")
  260. Goto (PromptViewerDestDir)
  261.  
  262.  
  263. ; Check if there is enough space to install the Viewer.
  264. ;
  265. CheckSpace2:
  266. GetSpaceAvailable (SpaceAvailable, <ViewerDestDir>)
  267.  
  268. IfLowerGoto (<ViewerSize>, <SpaceAvailable>, ViewerDestDirOK)
  269.  
  270.  
  271. AskYesNo (Prompt, "Yes",
  272.     "There may not be enough space to install the Multimedia Viewer.  "
  273.     "Would you like to enter a new path for the files?  ",
  274.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  275.     "Multimedia Viewer files.\par "
  276.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  277.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  278.     "You may wish to exit Setup and make some more space on your hard "
  279.     "disk.  Run Setup again when there is enough space on your hard "
  280.     "disk.  ")
  281. IfEqualGoto (<Prompt>, "Yes", PromptViewerDestDir)
  282.  
  283.  
  284. ViewerDestDirOK:
  285. AskYesNo (AskAgain, "No", 
  286.     "Would you like to change anything before proceeding with "
  287.     "the installation?",
  288.     "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  289.     "Click on {\b No} or press {\b 'N'} to proceed with installation.  ")
  290. IfEqualGoto (<AskAgain>, "Yes", AskAgain2)
  291.  
  292.  
  293. ; Create the tree structure.
  294. ;
  295. MakePath (<ViewerDestDir>)
  296.  
  297.  
  298. ; Copy the files
  299. ;
  300. OpenCopyProgress(
  301.     "Setup is copying the Multimedia Viewer runtime files.",
  302.     "Please wait while Setup is copying files.")
  303.  
  304.  
  305. CopyFile (<TitleSrcDir> "FTENGINE.DLL", <ViewerDestDir> "FTENGINE.DLL",  50000)
  306. CopyFile (<TitleSrcDir> "FTUI.DLL",     <ViewerDestDir> "FTUI.DLL",      75000)
  307. CopyFile (<TitleSrcDir> "MMP.DLL",      <ViewerDestDir> "MMP.DLL",      200000)
  308. CopyFile (<TitleSrcDir> "MVAFF.DLL",    <ViewerDestDir> "MVAFF.DLL",     50000)
  309. CopyFile (<TitleSrcDir> "MVAPI.DLL",    <ViewerDestDir> "MVAPI.DLL",     10000)
  310. CopyFile (<TitleSrcDir> "MVAUDDLG.DLL", <ViewerDestDir> "MVAUDDLG.DLL",  50000)
  311. CopyFile (<TitleSrcDir> "MVAUDIO.DLL",  <ViewerDestDir> "MVAUDIO.DLL",   10000)
  312. CopyFile (<TitleSrcDir> "MVBMP.DLL",    <ViewerDestDir> "MVBMP.DLL",     50000)
  313. CopyFile (<TitleSrcDir> "QKHOOK.DLL",   <ViewerDestDir> "QKHOOK.DLL",    10000)
  314. CopyFile (<TitleSrcDir> "QUICKEYS.EXE", <ViewerDestDir> "QUICKEYS.EXE",  25000)
  315. CopyFile (<TitleSrcDir> "VIEWER.EXE",   <ViewerDestDir> "VIEWER.EXE",   250000)
  316. CopyFile (<TitleSrcDir> "DISPDIB.DLL",  <SystemPath>    "DISPDIB.DLL",   10000)
  317. CopyFile (<TitleSrcDir> "VER.DLL",      <SystemPath>    "VER.DLL",       80000)
  318. CopyFile (<TitleSrcDir> "QUICKEYS.HLP", <ViewerDestDir> "QUICKEYS.HLP",  25000)
  319.  
  320. CloseCopyProgress ()
  321.  
  322. ;OpenProgManProgress("Setup is adding a Program Manager Group",
  323. ;    "Please wait while Setup adds the Group")
  324. ;OpenProgManGroup("TDC Interactive")
  325. ;AddProgmanItem (<TitleName>,<ViewerDestDir> "VIEWER.EXE " <ViewerSrcDir>"ESSAY\"<TitleMVB> ".MVB",<ViewerSrcDir>"ESSAY\TDC.ICO",0)
  326. ;CloseProgManProgress()
  327. AddToProfileIni(<IniName>,"EEAVOL2","Essay",<ViewerDestDir> "VIEWER.EXE "  <ViewerSrcDir>"ESSAY\"<TitleMVB>".MVB")
  328.  
  329.  
  330. Exit:
  331.  
  332. DisplayMessage (<Message>, 
  333.     "Click on {\b OK} or press {\b Enter} to return to the "
  334.     "Program Manager.")
  335.