home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 / Chip_Hitware_Vol_06.iso / chiphit6 / multmedi / waveit / setup.inf < prev    next >
Text File  |  1996-05-26  |  5KB  |  150 lines
  1. //
  2. // Setup Installation File
  3. // Created by Setup Builder Version 4.01.002
  4. //
  5. // Copyright ⌐ 1993 - 1996 G.Plowman
  6. //
  7. // Created: 26-05-1996 at 18:27:51
  8. //
  9.  
  10.  
  11.  
  12. // Application Variables
  13. SET %Caption%="Setup"
  14. SET %Application%="Wave It !"
  15. SET %InstallPath%="C:\WAVEIT"
  16. SET %InstallDrive%="C:"
  17. SET %IniFile%="WAVSETUP.INI"
  18. GetProfileString("Install", "Path", "%InstallPath%", "%IniFile%", %InstallPath%)
  19.  
  20.  
  21. // Language
  22. SetLanguage("UkEnglish")
  23.  
  24.  
  25. // Set up the backdrop text
  26. SetBackdropText(1, "|    %Application% Installation", 1, 1, 50, 255, 255, 255)
  27.  
  28.  
  29. // Now display the appropriate backdrop
  30. GetScreenWidth(%Width%)
  31. IF %Width% == 640 ShowBackDrop("", 0, 0, 0)
  32. IF %Width% == 640 GOTO :DONEBACKDROP
  33. IF %Width% == 800 ShowBackDrop("", 0, 0, 0)
  34. IF %Width% == 800 GOTO :DONEBACKDROP
  35. IF %Width% == 1024 ShowBackDrop("", 0, 0, 0)
  36. IF %Width% == 1024 GOTO :DONEBACKDROP
  37.  
  38. // Display default backdrop if screen size not recognised
  39. ShowBackDrop("", 0, 0, 0)
  40. :DONEBACKDROP
  41.  
  42.  
  43. // Welcome Dialog
  44. :BACK
  45. SET %Message1%="Welcome to the %Application% Installation Program."
  46. SET %Message2%="This program will install the %Application% software in the directory you specify on your hard disk."
  47. SET %Message3%="(Compuserve ID: 100105,536)||Setup is supplied with the Setup Builder|software and is the copyright of G.Plowman"
  48. DialogBox("Welcome")
  49. IF %ERROR% == IDCANCEL GOTO :EXIT
  50.  
  51.  
  52. // Ask the user where to install the software
  53. // but only if the software isn't already installed
  54. IF %Installed% == TRUE GOTO :INSTALLED
  55. :RETRY
  56. SET %Message1%="The install program will copy the %Application% files into the following directory:"
  57. DialogBox("AskPath")
  58. IF %ERROR% == IDBACK GOTO :BACK
  59. IF %ERROR% == IDCANCEL GOTO :EXIT
  60. :INSTALLED
  61.  
  62.  
  63. // Check for space availability
  64. GetDiskSpace(%InstallDrive%)
  65. SET %Space% = %ERROR%
  66. IF %Space% >= 1356800 GOTO :GOTSPACE
  67. MessageBox("The %Application% software requires 1356800 bytes of disk space and there is only %Space% bytes free on your %InstallDrive% drive.||Do you wish to continue to install the software ?", "%Caption%", MB_YESNO, MB_ICONQUESTION)
  68. IF %ERROR% == IDNO GOTO :EXIT
  69.  
  70.  
  71. :GOTSPACE
  72. // Save the installation directory
  73. WriteProfileString("Install", "Path", "%InstallPath%", "%IniFile%")
  74.  
  75.  
  76.  
  77.  
  78. // Make sure we have Disk #1 in the drive
  79. CheckExists("%CurrentDrive%DISK01", "Please insert the diskette labelled 'DISK01'")
  80. IF %ERROR% == IDCANCEL GOTO :EXIT
  81.  
  82.  
  83. // Copy files from disk & show in gauge
  84. CopyFile(17)
  85. "BWCC.DLL", "%InstallPath%", "Copying:", TRUE
  86. "BWCC32.DLL", "%InstallPath%", "Copying:", TRUE
  87. "BYEWIN.WAV", "%InstallPath%", "Copying:", TRUE
  88. "CHAAH.WAV", "%InstallPath%", "Copying:", TRUE
  89. "HOUSTON.WAV", "%InstallPath%", "Copying:", TRUE
  90. "KICK.WAV", "%InstallPath%", "Copying:", TRUE
  91. "LATER.WAV", "%InstallPath%", "Copying:", TRUE
  92. "LAUGH.WAV", "%InstallPath%", "Copying:", TRUE
  93. "MOM.WAV", "%InstallPath%", "Copying:", TRUE
  94. "OHYEAH.WAV", "%InstallPath%", "Copying:", TRUE
  95. "README.TXT", "%InstallPath%", "Copying:", TRUE
  96. "SCRATCH1.WAV", "%InstallPath%", "Copying:", TRUE
  97. "SNARE7.WAV", "%InstallPath%", "Copying:", TRUE
  98. "UHOH.WAV", "%InstallPath%", "Copying:", TRUE
  99. "VIBES1.WAV", "%InstallPath%", "Copying:", TRUE
  100. "WAVEIT.EXE", "%InstallPath%", "Copying:", TRUE
  101. "WAVEIT32.EXE", "%InstallPath%", "Copying:", TRUE
  102.  
  103.  
  104.  
  105.  
  106. // Now setup a new program manager group and its icons
  107. MessageBox("Setup can create a Program Manager group|for the %Application% application.||Do you wish to create a Program Manager group and icons ?", "%Caption%", MB_YESNO, MB_ICONQUESTION)
  108. IF %ERROR% == IDNO GOTO :NOPMGROUP
  109.  
  110. MakeGroup("WaveIt", "")
  111. MakeIcon("Read This !", "%InstallPath%README.TXT ")
  112. MakeIcon("WaveIt For Windows 3.1x", "%InstallPath%WAVEIT.EXE ")
  113. MakeIcon("WaveIt For Windows 95", "%InstallPath%WAVEIT32.EXE ")
  114. :NOPMGROUP
  115.  
  116.  
  117. // Done
  118. :SUCCESS
  119. SET %Message1%="|%Application% installation has been successfully completed."
  120. SET %Message2%=""
  121. DialogBox("OkBox")
  122.  
  123.  
  124. // User defined code - installation completion
  125. MessageBox("If you want WaveIt to start each time Windows starts, put the icon for the right version (Windows 3 or 95) into the startup group","WaveIt",MB_OK,MB_ICONINFORMATION)
  126. GOTO :END
  127.  
  128.  
  129. // User decided to quit
  130. :EXIT
  131. SET %Message1%="Installation has been terminated. You should re-run this installation program at a later time to install %Application%."
  132. SET %Message2%="|The %Application% software has not been installed."
  133. DialogBox("OkBox")
  134. GOTO :END
  135.  
  136.  
  137. // Error
  138. :ERROR
  139. SET %Message1%="An error occured during installation of the %Application% software."
  140. SET %Message2%="|The %Application% software has not been fully installed."
  141. DialogBox("OkBox")
  142. GOTO :END
  143.  
  144.  
  145. :END
  146. // Final tidy up - close files and remove components from H/D
  147. Close()
  148. CheckExists("%CurrentDirectory%CLEANUP.EXE", "Please insert the diskette labelled 'DISK01'")
  149. IF %ERROR% == IDOK WinExec("%CurrentDirectory%CLEANUP.EXE")
  150.