home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / CAKEWALK / WINCAKE.MS_ / WINCAKE.bin
Text File  |  1996-02-22  |  30KB  |  943 lines
  1. '**************************************************************************
  2. '* $Header:   G:/SRC/WCW/MSSETUP/VCS/WINCAKE.MSV   1.51   04 Jan 1996 11:37:24   FP  $
  3. '*
  4. '* DESCRIPTION: MS-Setup script for Wincake and Wcwdemo.
  5. '*
  6. '* $Log:   G:/SRC/WCW/MSSETUP/VCS/WINCAKE.MSV  $
  7. '* 
  8. '*    Rev 1.51   04 Jan 1996 11:37:24   FP
  9. '* Just have README.WRI icon title be README.WRI.
  10. '*
  11. '*    Rev 1.50   21 Dec 1995 12:16:24   FP
  12. '* Put in message concerning running Wave Profiler.
  13. '*
  14. '*    Rev 1.49   21 Dec 1995 10:23:30   FP
  15. '* Add messagebox to remind user to run Wave Profiler.
  16. '*
  17. '*    Rev 1.48   19 Dec 1995 17:06:06   FP
  18. '* Pro 4.01 update disk.
  19. '*
  20. '*    Rev 1.47   19 Dec 1995 14:53:36   FP
  21. '* Take out what's new section.
  22. '*
  23. '*    Rev 1.46   14 Dec 1995 09:58:50   FP
  24. '* Introduce whatsnew.wri.
  25. '*
  26. '*    Rev 1.45   14 Nov 1995 17:56:34   PS
  27. '* Added Import button to Chord dialog.  CHORDSNEW.LIW vs. CHORDS.LIW.
  28. '*
  29. '*    Rev 1.44   18 Sep 1995 15:02:24   PS
  30. '* MSACM no longer installed.
  31. '*
  32. '*    Rev 1.43   30 Aug 1995 19:05:30   FP
  33. '* Associate BUN files with Cakewalk Pro Audio.
  34. '*
  35. '*    Rev 1.42   30 Aug 1995 15:08:16   FP
  36. '* RC1 changes to reflect PR name change to Cakewalk Pro Audio.  Bring back
  37. '* install of VPiano.
  38. '*
  39. '*    Rev 1.41   23 Aug 1995 16:02:14   FP
  40. '* Beta G changes.
  41. '*
  42. '*    Rev 1.40   16 Aug 1995 11:59:16   FP
  43. '* Beta F changes.
  44. '*
  45. '*    Rev 1.39   09 Aug 1995 16:14:54   FP
  46. '* Changes for BETA E.
  47. '*
  48. '*    Rev 1.38   03 Aug 1995 13:18:52   FP
  49. '* Beta D changes.
  50. '*
  51. '*    Rev 1.37   18 Jul 1995 15:18:42   FP
  52. '* BETA C changes and addition of MSACM.
  53. '*
  54. '*    Rev 1.36   07 Jul 1995 16:16:44   FP
  55. '* Beta B changes.
  56. '*
  57. '*    Rev 1.35   16 Jun 1995 16:42:18   FP
  58. '* Added Wave Profiler to Program group.
  59. '*
  60. '*    Rev 1.34   13 Jun 1995 15:14:34   FP
  61. '* Modified for Edison Beta.  VPiano not installed.
  62. '*
  63. '*    Rev 1.33   20 Dec 1994 16:16:28   PS
  64. '* Final directory names for 3.01 RC1.
  65. '*
  66. '*    Rev 1.32   20 Dec 1994 12:53:50   PS
  67. '* Add VPIANO to Pro & Pro Demo.
  68. '*
  69. '*    Rev 1.31   13 Dec 1994 18:48:20   PS
  70. '* Added DEFAULT.INS, INS_NOT_OVERWRITTEN dialog.
  71. '*
  72. '*    Rev 1.30   01 Dec 1994 16:43:38   PS
  73. '* New, separate-product production method.  Many changes for 3.01 Beta B.
  74. '*
  75. '*    Rev 1.29   14 Nov 1994 19:31:14   PS
  76. '* Set dest directory for beta testers.
  77. '*
  78. '*    Rev 1.28   11 Nov 1994 19:06:48   PS
  79. '* CAKEXP.EXE.  Allow layout per product.
  80. '*
  81. '*    Rev 1.27   09 May 1994 13:19:02   GH
  82. '* Detect/require 80386 or higher, warn about no mouse.
  83. '*
  84. '*    Rev 1.26   28 Apr 1994 21:26:02   GH
  85. '* Use SRC.INS and MASTER.INS
  86. '*
  87. '*    Rev 1.25   25 Apr 1994 13:40:06   GH
  88. '* For CPW, changed DEST$ to C:\CPW30
  89. '*
  90. '*    Rev 1.24   15 Apr 1994 15:34:48   GH
  91. '* Changes for 2.5 Beta
  92. '*
  93. '*    Rev 1.23   17 Feb 1994 13:17:14   PS
  94. '* Associate .TPL files with us, too.
  95. '*
  96. '*    Rev 1.22   11 Jan 1994 13:47:38   CP
  97. '* Create a Home Studio Demo version.
  98. '*
  99. '*    Rev 1.21   08 Nov 1993 15:41:42   CP
  100. '* Change Lite name from WCWLITE to CAKEHS.
  101. '*
  102. '*    Rev 1.20   23 Aug 1993 14:06:06   CP
  103. '* Default installation directory for Demo is now C:\WCWDEMO to prevent
  104. '* nuking of previous installations.
  105. '*
  106. '*    Rev 1.19   24 May 1993 17:09:22   gwh
  107. '* Removed serial number item from user info prompt.
  108. '*
  109. '*    Rev 1.18   18 Apr 1993 17:50:40   gwh
  110. '* More refinements for user name, organization, serial number stamping.
  111. '*
  112. '*    Rev 1.17   01 Apr 1993 18:32:44   gwh
  113. '* Prompt user for Name, Organization, and Serial number.
  114. '* Stamp the .EXE resources for these items.
  115. '*
  116. '*    Rev 1.16   18 Mar 1993 14:06:42   pws
  117. '* No more need to clean up old DLL's in Windows sys dir (or TTSSEQ.INI).
  118. '* Also check for existence of TTSSEQ.INI in install dir before copying
  119. '* any TTSSEQ.INI found in Windows sys dir before copying new files.
  120. '*
  121. '*    Rev 1.15   05 Mar 1993 12:08:38   pws
  122. '* Fix support for multiple-disk installations, which had broken when
  123. '* we started determining which product we were by testing for the
  124. '* existence of name.EXE on the first diskette but it had been put
  125. '* on the second one.  Now determine which product we are by testing
  126. '* for existence of product-specific section in SETUP.INF file.
  127. '*
  128. '*    Rev 1.14   22 Dec 1992 13:17:36   pws
  129. '* Reflect changed dialog id's in BLDCUI\DIALOGS.H.
  130. '*
  131. '*    Rev 1.13   15 Dec 1992 14:47:18   pws
  132. '* Added CTL3D.DLL.
  133. '*
  134. '*    Rev 1.12   10 Nov 1992 12:37:56   pws
  135. '* Made more dialogs product-specific.
  136. '*
  137. '* ---
  138. '* See logfile for earlier revision comments
  139. '*
  140. '* Copyright (C) 1990- by Greg Hendershott.  All rights reserved.
  141. '**************************************************************************
  142.  
  143. '$INCLUDE 'setupapi.inc'
  144. '$INCLUDE 'msdetect.inc'
  145. '$INCLUDE 'msregdb.inc'
  146.  
  147. 'These should have all been in SETUPAPI.INC.
  148. 'Note that duplicate definitions are errors and so are commented out!
  149.  
  150. 'CONST MB_OK                = &H0000
  151. CONST MB_OKCANCEL            = &H0001
  152. CONST MB_ABORTRETRYIGNORE    = &H0002
  153. CONST MB_YESNOCANCEL        = &H0003
  154. CONST MB_YESNO                = &H0004
  155. CONST MB_RETRYCANCEL        = &H0005
  156. CONST MB_TYPEMASK            = &H000F
  157.  
  158. 'CONST MB_ICONHAND            = &H0010
  159. CONST MB_ICONQUESTION        = &H0020
  160. CONST MB_ICONEXCLAMATION    = &H0030
  161. CONST MB_ICONASTERISK        = &H0040
  162. CONST MB_ICONMASK            = &H00F0
  163.  
  164. CONST MB_ICONINFORMATION    = MB_ICONASTERISK
  165. CONST MB_ICONSTOP            = MB_ICONHAND
  166.  
  167. CONST MB_DEFBUTTON1            = &H0000
  168. CONST MB_DEFBUTTON2            = &H0100
  169. CONST MB_DEFBUTTON3            = &H0200
  170. CONST MB_DEFMASK            = &H0F00
  171.  
  172. CONST MB_APPLMODAL            = &H0000
  173. CONST MB_SYSTEMMODAL        = &H1000
  174. 'CONST MB_TASKMODAL            = &H2000
  175.  
  176. CONST MB_NOFOCUS            = &H8000
  177.  
  178. CONST IDOK                    = 1
  179. CONST IDCANCEL                = 2
  180. CONST IDABORT                = 3
  181. CONST IDRETRY                = 4
  182. CONST IDIGNORE                = 5
  183. CONST IDYES                    = 6
  184. CONST IDNO                    = 7
  185.  
  186. 'Dialog ID's.  NOTE: THIS MUST MATCH BLDCUI\DIALOGS.H!
  187. CONST WELCOME_PR            = 170
  188. CONST WELCOME_PD            = 171
  189. CONST WELCOME_HS            = 172
  190. CONST WELCOME_HD            = 173
  191. CONST WELCOME_XP            = 174
  192. CONST WELCOME_XD            = 175
  193. CONST ASKQUIT                = 200
  194. CONST DESTPATH                = 300
  195. CONST USERINFO                = 310
  196. CONST EXITFAILURE            = 400
  197. CONST EXITQUIT_PR            = 670
  198. CONST EXITQUIT_PD            = 671
  199. CONST EXITQUIT_HS            = 672
  200. CONST EXITQUIT_HD            = 673
  201. CONST EXITQUIT_XP            = 674
  202. CONST EXITQUIT_XD            = 675
  203. CONST EXITSUCCESS_PR        = 770
  204. CONST EXITSUCCESS_PD        = 771
  205. CONST EXITSUCCESS_HS        = 772
  206. CONST EXITSUCCESS_HD        = 773
  207. CONST EXITSUCCESS_XP        = 774
  208. CONST EXITSUCCESS_XD        = 775
  209. CONST APPHELP_PR            = 970
  210. CONST APPHELP_PD            = 971
  211. CONST APPHELP_HS            = 972
  212. CONST APPHELP_HD            = 973
  213. CONST APPHELP_XP            = 974
  214. CONST APPHELP_XD            = 975
  215. CONST INI_NOT_OVERWRITTEN    = 1000
  216. CONST INS_NOT_OVERWRITTEN    = 1100
  217. CONST CHORDS_NOT_OVERWRITTEN= 1200
  218. CONST BADPATH                = 6400
  219.  
  220. 'Bitmap ID.
  221. CONST LOGO = 1
  222.  
  223. GLOBAL COMPANY$
  224. GLOBAL PROGNAME$
  225. GLOBAL PRODUCTNAME$
  226. GLOBAL DEST$        'Default destination directory.
  227.  
  228. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  229. DECLARE SUB MaybeAssociate (szExt$)
  230. DECLARE SUB SafeCopy(szShort$, szLong$)
  231. DECLARE FUNCTION ArgStr$ (Fmt$, Arg1$, Arg2$, Arg3$, Arg4$)
  232.  
  233. INIT:
  234. '======== beg LOCALIZATION ========
  235. 'These are the strings that need to be localized for different languages.
  236. 'Every one of them is located right here in this block.
  237.     CONST COMPANY_$ = "Twelve Tone Systems"
  238.     CONST PRODUCTNAME_PR_$ = "Cakewalk Pro Audio"
  239.     CONST PRODUCTNAME_PD_$ = "Cakewalk Pro Audio Demo"
  240.     CONST PRODUCTNAME_UP_$ = "Cakewalk Pro Audio Update"
  241.     CONST PRODUCTNAME_HS_$ = "Cakewalk Home Studio"
  242.     CONST PRODUCTNAME_HD_$ = "Cakewalk Home Studio Demo"
  243.     CONST PRODUCTNAME_XP_$ = "Cakewalk Express"
  244.     CONST PRODUCTNAME_XD_$ = "Cakewalk Express Demo"
  245.     CONST PROGMANGROUPNAME_PR_$ = "Cakewalk Pro Audio"
  246.     CONST PROGMANGROUPNAME_HS_$ = "Cakewalk Home Studio"
  247.     CONST PROGMANGROUPNAME_XP_$ = "Cakewalk Express"
  248.     CONST SETUP_$ = "Setup"
  249.     CONST SetTitleFmt_$ = "\1 \2"
  250.     CONST setupMessage_$ = "Setup Message"
  251.     CONST setupProblem_$ = "Setup Problem"
  252.     CONST setupQuestion_$ = "Setup Question"
  253.     CONST winVerFmt_$ = "Sorry, but your Windows version is \1 and \2 requires at least Windows \3."
  254.     CONST cpuFmt_$ = "Sorry, but \1 requires at least an 80386 or higher CPU."
  255.     CONST mouseFmt_$ = "Please