home *** CD-ROM | disk | FTP | other *** search
/ MIDI Master Collection 1 to 5 / THEMEPACK_2.ISO / themepak.inf < prev    next >
Text File  |  1993-12-09  |  9KB  |  364 lines
  1. DefineVariables
  2. Number [ReturnVal1]
  3. Number [ReturnVal2]
  4. number [ReturnVal3]
  5. Number [ErrCount]
  6. Directory [windir]
  7. Directory [winsdir]
  8. Logical [EnKeyb]
  9. Logical [NetAvail]
  10. Logical [MathPres]
  11. Logical [CDAvail]
  12. Text [DispType]
  13. Number [XMSAvail]
  14. Number [ExtmemPagesActive]
  15. Number [ExtmemPagesAvail]
  16. Number [ExtMemAvail]
  17. Number [ExtMemPres]
  18. Number [ExpMempgavail]
  19. Number [ExpMempgactive]
  20.  
  21. Text [osver]
  22. Text [DosVer]
  23. Text [EmsVer]
  24.  
  25. Text [ProdExecutable1]
  26. Text [ProdExecutable2]
  27. Text [ProdExecutable3]
  28. Text [ProdExecutable4]
  29. Text [ProdExecutable5]
  30. Text [ProdExecutable6]
  31. Text [ProdExecutable7]
  32. Text [ProdExecutable8]
  33. Text [GroupTitle]
  34. Text [GroupFile]
  35. Text [ExistingGroupName]
  36. Text [InstDir]
  37.  
  38. Text [FactsIconF]
  39.  
  40. Text [IconTitle1]
  41. Text [IconTitle2]
  42. Text [IconTitle3]
  43. Text [IconTitle4]
  44. Text [IconTitle5]
  45. Text [IconTitle6]
  46. Text [IconTitle7]
  47. Text [IconTitle8]
  48.  
  49. Text [IconFile1]
  50. Text [IconFile2]
  51. Text [IconFile3]
  52. Text [IconFile4]
  53. Text [IconFile5]
  54. Text [IconFile6]
  55. Text [IconFile7]
  56. Text [IconFile8]
  57.  
  58. EndDefineVariables
  59.  
  60.  
  61. [EnKeyb] := NoCharacter
  62. [NetAvail] := NoCharacter
  63. [MathPres] := NoCharacter
  64. [CDAvail] := NoCharacter
  65.  
  66. Do SetupDisplay
  67. Do CheckHardware
  68.  
  69. if [errcount] > 1
  70. Dialog UseHeader "Encountered Some Problems"
  71. Our installation has encounterd the following problems,
  72. you can continue to install or exit installation.
  73. [Array1][1]
  74. [Array1][2]
  75. [Array1][3]
  76. [Array1][4]
  77. [Array1][5]
  78. [Array1][6]
  79. [Array1][7]
  80. EndDialog
  81. endif
  82.  
  83. dialog
  84. Hello, and welcome to ThemePaks
  85. by Romeo Music International!
  86.  
  87. This easy-to-follow installation will do everything for you.
  88. You'll be asked a few simple questions. We suggest that
  89. you accept the default choices. Please note that your WIN.INI
  90. file will be changed. That's OK--we'll even make a
  91. safety backup of the file for you.
  92.  
  93. Enjoy the music!
  94. EndDialog
  95.  
  96.  
  97. :start
  98.  
  99.  
  100. [ReturnVal2] := 1
  101.  
  102.  
  103. DialogBox 150 80 UseHeader "Installing RMI ThemePaks 1.2" Returns [ReturnVal1] BlackOnLightGray
  104. Font "Helv" 8
  105. GroupBox @xy(5,4) 135 70 "Please select the option you want."
  106. RadioButtonGroup Uses [ReturnVal2]
  107. RadioButton @xy(10,17) 120 12 "&Install the RMI ThemePaks."
  108. RadioButton @xy(10,30) 120 12 "View a &Hardware Summary."
  109. RadioButton @xy(10,43) 120 12 "&Exit Installation."
  110. PushButton @xy(60,55) 38 14 "OK" OK
  111. EndDialogBox
  112.  
  113.  
  114. if [ReturnVal2] = 1
  115.     Do Install
  116.  
  117. Dialog
  118. Your installation was successful!
  119.  
  120. This installation procedure will now restart.
  121. You can then do additional hard disk installations,
  122. view a hardware summary, or exit.
  123.  
  124. Thank you!
  125. EndDialog
  126.  
  127. goto start
  128. endif
  129.  
  130. if [ReturnVal2] = 2
  131. Do HardwareSum
  132. Goto start
  133. endif
  134.  
  135. if [ReturnVal2] = 3
  136. SoLong
  137. Endif
  138.  
  139. if [ReturnVal2] = 0
  140. Dialog
  141. Click on one of the option buttons.
  142. EndDialog
  143. Goto start
  144. Enddialog
  145. endif
  146.  
  147. Procedure SetupDisplay
  148. SetDefaultBitMap Off
  149. SetBackGroundColor 0 0 64 191 64 0 TopToBottom
  150.  
  151. SetPopupAttrTo YellowOnBlue
  152. ShowWindow maximized
  153. EndProcedure
  154.  
  155. Procedure Install
  156. [installationdirectory] := THEMEPAK
  157. DetermineInstallationDrive RequireFixed
  158. DetermineInstallationDirectory installationdrive:\[installationdirectory]
  159.  
  160. ;;QueAllFiles
  161. ;;GetQuedFiles
  162.  
  163. ChangeDirectoryto [InstallationDirectory]
  164. CopyFiles from [InstallFromDrive]:\ to [InstallationDirectory]
  165.     INFOPAK.HLP
  166.     RMIHELP.ICO
  167.     RMIPLAY.EXE
  168.     RMIPLAY.ICO
  169.     THEMEPAK.HLP
  170.     THEMEPAK.EXE
  171.     CARTOONS.ICO
  172.     COMPOSER.ICO
  173.     POPMUSIC.ICO
  174.     MOVIES.ICO
  175.     FESTIVAL.ICO
  176. EndCopyFiles
  177.  
  178. [ProdExecutable1] := [InstallFromDrive]:\t_paks\cartoons\cartoons.jlr
  179. [ProdExecutable2] := [InstallFromDrive]:\t_paks\composer\composer.jlr
  180. [ProdExecutable3] := [InstallFromDrive]:\t_paks\festival\festival.jlr
  181. [ProdExecutable4] := [InstallFromDrive]:\t_paks\movies\movies.jlr
  182. [ProdExecutable5] := [InstallFromDrive]:\t_paks\popmusic\popmusic.jlr
  183. [ProdExecutable6] := [InstallationDirectory]\rmiplay.exe
  184. [ProdExecutable7] := [InstallationDirectory]\themepak.hlp
  185. [ProdExecutable8] := [InstallationDirectory]\infopak.hlp
  186.  
  187. [GroupTitle]  := RMI ThemePaks
  188. [InstDir]        := [InstallationDirectory]
  189.  
  190. [IconFile1]     := cartoons.ico
  191. [IconFile2]     := composer.ico
  192. [IconFile3]     := festival.ico
  193. [IconFile4]     := movies.ico
  194. [IconFile5]     := popmusic.ico
  195. [IconFile6]     := RMIplay.ico
  196. [IconFile7]     := RMIHelp.ico
  197. [IconFile8]     := RMIHelp.ico
  198.  
  199. [IconTitle1]      := Cartoon Classics
  200. [IconTitle2]      := Composers Across Time
  201. [IconTitle3]      := Festival Music
  202. [IconTitle4]      := Movie Classics
  203. [IconTitle5]      := American Pop Evolution
  204. [IconTitle6]      := RMI Player
  205. [IconTitle7]      := RMI Help
  206. [IconTitle8]      := RMI InfoPak
  207.  
  208. :top
  209. [Number2] := 2
  210.  
  211. DialogBox 150 80 UseHeader "Icon Installation" Returns [Number1]
  212. Font "Helv" 8
  213. RadioButtonGroup Uses [Number2]
  214. RadioButton @xy(6,6) 150 12 "Install the Icons in an &existing group."
  215. RadioButton @xy(6,20) 150 12 "Install the Icons in a &new group."
  216. RadioButton @xy(6,34) 150 12 "&Don't install the icons."
  217. PushButton @xy(60,60) 38 14 "OK" OK
  218. EndDialogBox
  219.  
  220. if [Number2] = 1
  221. [Array2] := GetProgramManagerGroupNames
  222.  
  223. DialogBox 177 70 UseHeader "Choose group to install the Icons in" GreenOnBlack Returns [Number7]
  224. ListBox @xy(15,7) 120 30 Uses [String1] LoadWith [Array2]  Border
  225. PushButton @xy(60,55) 38 14 "OK" OK
  226. EndDialogBox
  227. [ExistingGroupName] := [String1]
  228. if [ExistingGroupName] = BlankString
  229. popup no group selected, not installing icon
  230. else
  231. ProgramManagerDDE
  232. CreateGroup([ExistingGroupName])
  233. AddItem([ProdExecutable1],[IconTitle1],[InstallationDirectory]\[IconFile1])
  234. AddItem([ProdExecutable2],[IconTitle2],[InstallationDirectory]\[IconFile2])
  235. AddItem([ProdExecutable3],[IconTitle3],[InstallationDirectory]\[IconFile3])
  236. AddItem([ProdExecutable4],[IconTitle4],[InstallationDirectory]\[IconFile4])
  237. AddItem([ProdExecutable5],[IconTitle5],[InstallationDirectory]\[IconFile5])
  238. AddItem([ProdExecutable6],[IconTitle6],[InstallationDirectory]\[IconFile6])
  239. AddItem([ProdExecutable7],[IconTitle7],[InstallationDirectory]\[IconFile7])
  240. AddItem([ProdExecutable8],[IconTitle8],[InstallationDirectory]\[IconFile8])
  241.  
  242.  
  243. EndProgramManagerDDE
  244.  
  245. Dialog
  246. Things are going well!
  247.  
  248. You're now going to get some information
  249. about the WIN.INI modifications.
  250. All you really need to do is
  251. select the "Go ahead and modify" option, and
  252. then click OK twice.
  253.  
  254. But we have given you some other options,
  255. just in case you want them.
  256. EndDialog
  257.  
  258. ModifyTextFile win.ini
  259. InSection [Extensions]
  260. AddOrChangeLineWith (JLR,=,) as "JLR=[InstallationDirectory]\THEMEPAK.EXE ^.JLR" at end
  261. EndModifyTextFile
  262.  
  263. endif
  264. endif
  265.  
  266. if [number2] = 2
  267. ProgramManagerDDE
  268. CreateGroup(RMI ThemePaks)
  269. AddItem([ProdExecutable1],[IconTitle1],[InstallationDirectory]\[IconFile1])
  270. AddItem([ProdExecutable2],[IconTitle2],[InstallationDirectory]\[IconFile2])
  271. AddItem([ProdExecutable3],[IconTitle3],[InstallationDirectory]\[IconFile3])
  272. AddItem([ProdExecutable4],[IconTitle4],[InstallationDirectory]\[IconFile4])
  273. AddItem([ProdExecutable5],[IconTitle5],[InstallationDirectory]\[IconFile5])
  274. AddItem([ProdExecutable6],[IconTitle6],[InstallationDirectory]\[IconFile6])
  275. AddItem([ProdExecutable7],[IconTitle7],[InstallationDirectory]\[IconFile7])
  276. AddItem([ProdExecutable8],[IconTitle8],[InstallationDirectory]\[IconFile8])
  277.  
  278.  
  279.  
  280. EndProgramManagerDDE
  281.  
  282. Dialog
  283. Things are going well!
  284.  
  285. You're now going to get some information
  286. about the WIN.INI modifications.
  287. All you really need to do is
  288. select the "Go ahead and modify" option, and
  289. then click OK twice.
  290.  
  291. But we have given you some other options,
  292. just in case you want them.
  293. EndDialog
  294.  
  295. ModifyTextFile win.ini
  296. InSection [Extensions]
  297. AddOrChangeLineWith (JLR,=,) as "JLR=[InstallationDirectory]\THEMEPAK.EXE ^.JLR" at end
  298. EndModifyTextFile
  299.  
  300. endif
  301.  
  302. if [Number2] = 3
  303. popup not installing icon
  304. endif
  305. EndProcedure
  306.  
  307.  
  308. Procedure CheckHardware
  309. [Number3] := 1
  310.  
  311. if VGA
  312. [DispType] := VGA
  313. endif
  314.  
  315. if EGA
  316. [DispType] := EGA
  317. endif
  318.  
  319. if  [DispType] = BlankString
  320. [Array1][[number3]] := Your Display adapter must be EGA or better.
  321. IncrementNumber [number3]
  322. endif
  323.  
  324. [windir] := [WindowsDirectory]
  325. [winsdir] := [WindowsSystemDirectory]
  326.  
  327. [ExtmemPagesActive] := ExtendedMemoryPagesActive
  328. [ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
  329. [ExtMemAvail] := ExtendedMemoryAvailable
  330. [ExtMemPres] := ExtendedMemoryPresent
  331. [ExpMempgAvail] := ExpandedMemoryPagesAvailable
  332. [ExpMempgActive] := ExpandedMemoryPagesActive
  333. [osver] := OSVersion
  334. [DosVer] := DOSVersion
  335. [EmsVer] := EMSVersion
  336.  
  337.  
  338. if [DOSVer] < 5.0
  339. [Array1][[number3]] := You must have a DOS version of at least 5.0 or more
  340. IncrementNumber [number3]
  341. endif
  342.  
  343. [Errcount] := [Number3]
  344.  
  345. EndProcedure
  346.  
  347. Procedure HardwareSum
  348. Dialog
  349. Display Type : [DispType]
  350. DOS Version  : [DosVer]
  351. Extended Memory Available : [ExtMemAvail]
  352. Extended Memory Present : [ExtMemPres]
  353. Extended Memory Pages Active : [ExtMemPagesActive]
  354. Extended Memory Pages Available : [ExtMemPagesAvail]
  355. Expanded Memory Pages Available : [ExpmempgAvail]
  356. Expanded Memory Pages Active    : [ExpMempgactive]
  357.  
  358. Windows Directory  : [windir]
  359. Windows System Directory : [winsdir]
  360. EndDialog
  361.  
  362. EndProcedure
  363.  
  364.