home *** CD-ROM | disk | FTP | other *** search
/ A World of Art - The Ult…ate Multimedia Collection / ImpressionismAndItsSources.bin / setup.inf < prev    next >
Text File  |  1994-12-15  |  7KB  |  194 lines
  1. SetVariable(ProgPath,"C:\TDC")
  2. SetVariable(ProgName,"ELA.EXE")
  3. SetVariable(InstallName, "Impressionism")
  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,"Impressionism")
  9. SetVariable(IniName,"EBOOK.INI")
  10. GetCurPath (CurPath)
  11.  
  12.  
  13. ; The following instructions are displayed several times so we put the
  14. ; text in a variable.
  15. ;
  16. SetVariable (InsAskPath,
  17.     "Modify the default path if necessary, and then click on {\b OK} or "
  18.     "press {\b Enter} to continue.  ")
  19. SetVariable (InsBadPath,
  20.     "The path is currently not valid.  You must specify a drive "
  21.     "letter, a colon, and a directory from the root of the drive.  ")
  22.  
  23. ; Set the title of all dialog windows.
  24. ;
  25. WindowTitle (<InstallName>" Setup")
  26.  
  27. ; Set the instruction text used in the initial instructions window.
  28. ; Add Help instructions if the file SETUP.HLP exists.
  29. ;
  30. SetVariable (InitialInstructions, 
  31.     "Click on {\b OK} or press {\b Enter} to continue.  "
  32.     "To abort the setup, click on the {\b Exit} button at the "
  33.     "bottom right corner of the screen, or press {\b F3}.  ")
  34. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  35.     Goto (DisplayInitialMessage)
  36. AddHelpInstructions:
  37.     SetVariable (InitialInstructions, 
  38.         <InitialInstructions> "You can always obtain help by "
  39.         "clicking on the {\b Help} button or pressing {\b F1}.  ")
  40.  
  41. ; Display the initial message.
  42. ;
  43. DisplayInitialMessage:
  44. DisplayMessage (
  45. "The Setup program will install " <InstallName> " on your hard disk."
  46. "  There are two options available for installation:%n%n"
  47.  
  48. "Run " <InstallName> " Entirely off of the CD-ROM.%n%n"
  49. "Copy " <ProgName> " to your Hard Disk to improve execution speed.%n%n",
  50. <InitialInstructions>)
  51.  
  52. ;ask if user wants to copy the ebook files to hard disk
  53. AskYesNo (Prompt, "Yes",
  54.     "The " <TitleName> " files require about " <ProgSpace> " of disk "
  55.     "space.  Would you like to copy them to your hard disk?",
  56.     <TitleName> " Can be run from the CD-ROM, but copying it to your "
  57.     "Hard disk will improve execution speed.\par\par "
  58.     "Click on {\b Yes} or press {\b 'Y'} to copy the " <TitleName> 
  59.     " files.\par "
  60.     "Click on {\b No} or press {\b 'N'} to proceed without copying the "
  61.     <TitleName> " source files.")
  62. IfEqualGoto (<Prompt>, "No", DontPromptTitlePath)
  63.  
  64.  
  65.  
  66.  
  67. AskAgain:
  68.  
  69.  
  70. ; Ask for where the Ebook files should be installed.
  71. ;
  72. PromptEbookPath:
  73. PromptPath (ProgPath, <ProgPath>,
  74.     "Where should Setup install the Program files?",
  75.     <InsAskPath>, <InsBadPath>)
  76.  
  77.  
  78. ; Don't allow Ebook to be installed in the Windows directory
  79. ;
  80. GetWinPath (WinPath)
  81. GetWinSystemPath (SystemPath)
  82. IfNotEqualGoto (<ProgPath>, <WinPath>, CheckSpace)
  83. DisplayMessage (
  84.     "You cannot install this program into the Windows directory.  "
  85.     "Please enter another directory.",
  86.     "Click on {\b OK} or press {\b Enter} to enter another directory "
  87.     "for this program.")
  88. Goto (PromptEbookPath)
  89.  
  90. ; Check if there is enough space to install the Ebook files.
  91. ;
  92. CheckSpace:
  93. GetSpaceAvailable (SpaceAvailable, <ProgPath>)
  94. IfLowerGoto (<EbookSize>, <SpaceAvailable>, EbookPathOK)
  95. AskYesNo (Prompt, "Yes",
  96.     "There may not be enough space to install the "<InstallName>" Files."
  97.     "  Would you like to enter a new path for the files?  ",
  98.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  99.     "program files.\par "
  100.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  101.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  102.     "You may wish to exit Setup and make some more space on your hard "
  103.     "disk.  Run Setup again when there is enough space on your hard "
  104.     "disk.  ")
  105. IfEqualGoto (<Prompt>, "Yes", PromptEbookPath)
  106.  
  107. EbookPathOK:
  108. ;create the subdirectory
  109. MakePath(<ProgPath>)
  110. ;copy the ebook files
  111. OpenCopyProgress(
  112.     "Setup is copying the "<InstallName> " Program files.",
  113.     "Please wait while Setup is copying files.")
  114.  
  115. CopyFile("ELA.EXE",<ProgPath> "ELA.EXE", 250000)
  116. CopyFile("TITLE.DIB",<ProgPath> "TITLE.DIB", 93000)
  117. CopyFile("TITLE.WAV",<ProgPath> "TITLE.WAV", 550000)
  118. CopyFile("EBOOK2.HLP",<ProgPath> "EBOOK2.HLP",50000)
  119. CopyFile("INTRO.EXE",<ProgPath> "INTRO.EXE",50000)
  120. CopyFile("TDC.BMP",<ProgPath> "TDC.BMP",50000)
  121. CopyFile("TDC.ICO",<ProgPath> "TDC.ICO",50000)
  122.  
  123. CloseCopyProgress()
  124.  
  125.  
  126.  
  127.  
  128.  
  129. SetVariable(DataPath,<CurPath>"DATA")
  130. GoTo(EbookCopied)
  131. DontPromptTitlePath:
  132. SetVariable(DataPath,<CurPath>"DATA")
  133. SetVariable(ProgPath,<CurPath>)
  134. GoTo(EbookNotCopied)
  135.  
  136. EbookCopied:
  137. SetVariable(ProgPath,<ProgPath>)
  138. EbookNotCopied:
  139.  
  140. ;copy the ebook.ini file and add the paths
  141. AddToProfileIni(<IniName>,"PATHS","CDROM",<CurPath>)
  142. AddToProfileIni(<IniName>,"PATHS","PICTURE",<CurPath>"PIX")
  143. AddToProfileIni(<IniName>,"PATHS","DATA",<CurPath>"DATA")
  144. AddToProfileIni(<IniName>,"PATHS","INDEX",<CurPath>"DATA")
  145. AddToProfileIni(<IniName>,"PATHS","PSTAMPPATH",<CurPath>"DATA")
  146. AddToProfileIni(<IniName>,"PATHS","MIDIPATH",<CurPath>"MIDI")
  147.  
  148. ;add the info for this title to ebook.ini
  149. AddToProfileIni(<IniName>,"ELAVOL4","Title","Impressionism and its Sources")
  150. AddToProfileIni(<IniName>,"ELAVOL4","Card","WINCARD4")
  151. AddToProfileIni(<IniName>,"ELAVOL4","NumberIndex","6")
  152. AddToProfileIni(<IniName>,"ELAVOL4","IndexNames","ARTIST4,TITLE4,MEDIUM4,DATE4,OBJ4,CSCHOOL4");
  153. AddToProfileIni(<IniName>,"ELAVOL4","IndexTitles","Artist,Title,Medium,Date,Object,School");
  154. AddToProfileIni(<IniName>,"ELAVOL4","PStamp","1")
  155. AddToProfileIni(<IniName>,"ELAVOL4","BrowseMode","0")
  156. AddToProfileIni(<IniName>,"ELAVOL4","SplitPath","3")
  157. AddToProfileIni(<IniName>,"ELAVOL4","NumberPixColumns","5")
  158. AddToProfileIni(<IniName>,"ELAVOL4","NumberPixRows","3")
  159. AddToProfileIni(<IniName>,"ELAVOL4","NumberMIDI","5")
  160. AddToProfileIni(<IniName>,"ELAVOL4","MidiFiles","ETD9OP25,ETDO1012,BERCEU,FANTAS,POLONA")
  161. AddToProfileIni(<IniName>,"ELAVOL4","MidiTitles","Etude 9/Chopin,Etude 10/Chopin,Berceuse/Faure,Fantasie Imp./Chopin,Polonaise Aflat/Chopin")
  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("Impressionism and its Sources",<ProgPath>"Intro.exe ELA.EXE ELAVOL4",
  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(Exit)
  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. Exit:
  190.  
  191. DisplayMessage (<Message>, 
  192.     "Click on {\b OK} or press {\b Enter} to return to the "
  193.     "Program Manager.")
  194.