home *** CD-ROM | disk | FTP | other *** search
/ Corel ArtShow 4 / Corel_ArtShow4_1993.bin / setup.inf < prev    next >
Text File  |  1993-11-07  |  10KB  |  287 lines
  1. ;*****************************************************************************
  2. ;       Install for the Corel ArtShow 4
  3. ;       As At November 3, 1993 
  4. ;       Don Slaunwhite
  5. ;*****************************************************************************
  6.  
  7.  
  8.  
  9. SetVariable (Copycdaudio, "No")                         ; files that will be copied over
  10. SetVariable (copyartshow, "No")
  11. setvariable (cdaudioSize, 821 000)                                      ; be copied over (measured in bytes)
  12. setvariable (cdaudioPath, "C:\CDAUDIO")
  13. setvariable (artshowpath, "C:\ARTSHOW4")
  14. setvariable (artshowsize, 2 300 000)
  15.  
  16. ; Set the title of all dialog windows.
  17. ;
  18. WindowTitle ("Setup")
  19.  
  20. SetVariable (InsAskPath,
  21.     "Modify the default path if necessary, and then click on {\b OK} or "
  22.     "press {\b Enter} to continue.  ")
  23. SetVariable (InsBadPath,
  24.     "The path is currently not valid.  You must specify a drive "
  25.     "letter, a colon, and a directory from the root of the drive.  ")
  26.  
  27.  
  28. SetVariable (InitialInstructions, 
  29.     "Click on {\b OK} or press {\b Enter} to continue.  "
  30.     "To abort the setup, click on the {\b Exit} button at the "
  31.     "bottom right corner of the screen, or press {\b F3}.  "
  32.     "The installation takes up about 3MB of disk space, including CD-Audio.")
  33.  
  34. DisplayMessage ("%n"
  35. "The Setup program will install the required portions of ArtShow 4 "
  36. "on your hard disk.  The ArtShow 4 consists of the following "
  37. "components:%n%n"
  38. "ArtShow 4 Viewer:%tA powerful viewing program for examining the Artwork%n"
  39. "%t%tentered into the Design Contest.%n%n"
  40. "Corel ArtView:%tThis Windows 3.1 screensaver module will use any%n"
  41. "%t%tBMP,PCX,GIF or Kodak PhotoCD image as%n"
  42. "%t%tpart of its screensaver display.%n%n"
  43. "Corel CD-Audio:%tSimulates a CD Player, allowing you to play and%n"
  44. "%t%tcatalogue your favorite CDs on your CD-ROM drive."
  45. ,<InitialInstructions>)
  46.  
  47. GetWinPath (WinPath)
  48. GetWinSystemPath (SystemPath)
  49.  
  50.  
  51.  
  52.  
  53. ; Determine if the artshow has been installed before.
  54. ; If the WIN.INI file contains information on where the artshow directory
  55. ; is located, then make that the default path.
  56. ;
  57. GetFromWinIni (artshowPathTemp, "ArtShow4", "ArtShow", "Undefined")
  58. IfEqualGoto (<artshowPathTemp>, "Undefined", Promptartshowcopy)
  59. SetVariable (artshowPath, <artshowPathTemp>)
  60.  
  61. ; Determine if the cd-audio has been installed before.
  62. ; If the WIN.INI file contains information on where the cd-audio directory
  63. ; is located, then make that the default path.
  64. ;
  65. GetFromWinIni (cdaudioPathTemp, "CorelSCSI", "CD-Audio", "Undefined")
  66. IfEqualGoto (<cdaudioPathTemp>, "Undefined", Promptcdaudiocopy)
  67. SetVariable (cdaudioPath, <cdaudioPathTemp>)
  68.  
  69. AskAgain:
  70.  
  71. ; Ask whether to install the artshow
  72. ;
  73. promptartshowcopy:
  74.  
  75. AskYesNo (Copyartshow, <Copyartshow>,
  76.     "The Artshow programs require about 2.3MB of disk space.%n"
  77.     "Would you like to copy them to your hard disk?",
  78.     "Click on {\b Yes} or press {\b 'Y'} to copy Artshow 4 and the ArtView screensaver.%n"
  79.     "Click on {\b No} or press {\b 'N'} to proceed without copying Artshow 4 and ArtView screensaver.%n%n")
  80. IfEqualGoto (<Copyartshow>, "No", DontPromptartshowPath)
  81.  
  82. ; Ask for where artshow should be installed.
  83. ;
  84. PromptartshowPath:
  85. PromptPath (artshowPath, <artshowPath>,
  86.     "Where should Setup install Corel ArtShow 4?",
  87.     <InsAskPath>, <InsBadPath>)
  88.  
  89.  
  90. ; Check if there is enough space to install artshow
  91. ;
  92. GetSpaceAvailable (SpaceAvailable, <artshowPath>)
  93. Subtract (SpaceAvailable, <artshowSize>)
  94. IfLowerGoto (<artshowSize>, <SpaceAvailable>, artshowPathOK)
  95. AskYesNo (Prompt, "Yes",
  96.     "There may not be enough space to install the Artshow 4 files "
  97.     "on your hard disk.  Would you like to enter a new path for them?  ",
  98.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  99.     "Artshow files\par Click on {\b No} or press {\b 'N'} to "
  100.     "continue anyway.  ")
  101. IfEqualGoto (<Prompt>, "Yes", PromptartshowPath)
  102.  
  103. DontPromptartshowPath:
  104.  
  105. artshowpathok:
  106.  
  107. ; ****** end of artshow checking
  108.  
  109. ; ***** start of cdaudio checking
  110.  
  111. ; Ask whether to install the cdaudio
  112. ;
  113. promptcdaudiocopy:
  114.  
  115. AskYesNo (Copycdaudio, <Copycdaudio>,
  116.     "Corel CD-Audio requires about 800KB of disk space.%n"
  117.     "Would you like to also copy it to your hard disk?",
  118.     "Click on {\b Yes} or press {\b 'Y'} to copy CD-Audio.%n"
  119.     "Click on {\b No} or press {\b 'N'} to proceed without copying CD-Audio.")
  120.  
  121. IfEqualGoto (<Copycdaudio>, "No", DontPromptcdaudioPath)
  122.  
  123. ; Ask for where cd-audio should be installed.
  124. ;
  125. PromptcdaudioPath:
  126. PromptPath (cdaudioPath, <cdaudioPath>,
  127.     "Where should Setup install Corel CD-Audio?",
  128.     <InsAskPath>, <InsBadPath>)
  129.  
  130.  
  131. ; Check if there is enough space to install cd-audio
  132. ;
  133. GetSpaceAvailable (SpaceAvailable, <cdaudioPath>)
  134. Subtract (SpaceAvailable, <cdaudioSize>)
  135. IfLowerGoto (<cdaudioSize>, <SpaceAvailable>, cdaudioPathOK)
  136. AskYesNo (Prompt, "Yes",
  137.     "There may not be enough space to install the CD-Audio files "
  138.     "on your hard disk.  Would you like to enter a new path for them?  ",
  139.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  140.     "CD-Audio files\par Click on {\b No} or press {\b 'N'} to "
  141.     "continue anyway.  ")
  142. IfEqualGoto (<Prompt>, "Yes", PromptcdaudioPath)
  143.  
  144. DontPromptcdaudioPath:
  145.  
  146. cdaudiopathok:
  147. AskYesNo (AskAgain, "No", 
  148.     "Would you like to change anything before proceeding with "
  149.     "the installation?",
  150.     "Click on {\b Yes} or press {\b 'Y'} to reenter options."
  151.     "Click on {\b No} or press {\b 'N'} to proceed with installation.")
  152. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  153.  
  154. ; ****** end of cd-audio checking
  155. ; Determine the installation medium.
  156. ;
  157. SetVariable (Medium, "CD-ROM/Net Drive")
  158.  
  159. ; ******* cdaudio making of directories
  160.  
  161. ; Create the tree structure.
  162. ;
  163.  
  164. ifEqualGoto (<Copyartshow>, "No", DontMakeartshowPath)
  165. MakePath (<artshowPath>)        
  166. DontMakeartshowPath:
  167.  
  168. ifEqualGoto (<Copycdaudio>, "No", DontMakecdaudioPath)
  169. MakePath (<cdaudioPath>)        
  170. DontMakecdaudioPath:
  171.  
  172. IfEqualGoto (<Copyartshow>, "No", DontCopyartshow)
  173.  
  174. ; Copy the files
  175. ;
  176. OpenCopyProgress (
  177.     "Setup is copying the ArtShow 4 files.",
  178.     "Please wait while Setup is copying files.")
  179.  
  180. CopyFile ("ARTSHOW4\ARTSHOW4.EXE", <artshowPath> "ARTSHOW4.EXE",  257552)
  181. CopyFile ("ARTSHOW4\DATA\93DATA.DBF", <artshowPath> "93DATA.DBF",  353792)
  182. CopyFile ("ARTSHOW4\DATA\93DATA.MDX", <artshowPath> "93DATA.MDX",  539648)
  183. CopyFile ("ARTSHOW4\VBRUN200.DLL", <artshowPath> "VBRUN200.DLL",  356292)
  184. CopyFile ("ARTSHOW4\MCI.VBX", <artshowPath> "MCI.VBX",  36944)
  185. CopyFile ("ARTSHOW4\THREED.VBX", <artshowPath> "THREED.VBX",  55904)
  186. CopyFile ("ARTSHOW4\QEVBDBF.VBX", <artshowPath> "QEVBDBF.VBX",  380784)
  187. CopyFile ("ARTSHOW4\MHGR200.VBX", <artshowPath> "MHGR200.VBX",  111328)
  188. CopyFile ("ARTSHOW4\MUSCLE.VBX", <artshowPath> "MUSCLE.VBX",  87312)
  189. CopyFile ("ARTSHOW4\LZEXPAND.DLL", <artshowPath> "LZEXPAND.DLL", 9936)
  190. CopyFile ("ARTSHOW4\ARTVIEW.SCR", <WinPath> "ARTVIEW.SCR",  69120)
  191. CopyFile ("ARTSHOW4\PCDLIB.DLL", <WinPath> "PCDLIB.DLL",  84448)
  192.  
  193. DontCopyartshow:
  194.  
  195. ; ****** check to see to copy cd-audio files
  196.  
  197. IfEqualGoto (<Copycdaudio>, "No", DontCopycdaudio)
  198.  
  199. ; Cd-Audio files:
  200. ;
  201. SetProgressBarMsg ("Setup is copying the CD-Audio files.")
  202.  
  203. CopyFile ("CDAUDIO\CD_AUDIO.EXE", <cdaudioPath> "CD_AUDIO.EXE",   185000)
  204. CopyFile ("CDAUDIO\CD_AUDIO.HEL", <cdaudioPath> "CD_AUDIO.HEL",  254000)
  205. CopyFile ("CDAUDIO\COMMDLG.DLL", <cdaudioPath> "COMMDLG.DLL",   89000)
  206. CopyFile ("CDAUDIO\CPALETTE.DLL", <cdaudioPath> "CPALETTE.DLL",  64000)
  207. CopyFile ("CDAUDIO\LED.FON", <cdaudioPath> "LED.FON",  5600)
  208. CopyFile ("CDAUDIO\WINHELP.HLP", <cdaudioPath> "WINHELP.HLP",  31000)
  209. CopyFile ("CDAUDIO\WINHELP.EXE", <cdaudioPath> "WINHELP.EXE",  257000)
  210.  
  211. DontCopycdaudio:
  212.  
  213. CloseCopyProgress ()
  214.  
  215. ; Add Program Manager group
  216. ;
  217. GetCurPath (CurPath) 
  218. SetVariable (CurPath, <CurPath>)
  219.  
  220. ; **** check to install artshow icon
  221.  
  222. IfEqualGoto (<Copyartshow>, "No", Dontaddartshowicon)
  223.  
  224. OpenProgmanProgress (
  225.     "Setup is adding a Program Manager group",
  226.     "Please wait while Setup adds {\b Program Manager} groups".)
  227.  
  228. OpenProgmanGroup ("Corel ArtShow 4", Delete)    ;; Add the group named aft