home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 2 / Chip_Hitware_Vol_02.iso / chiphit2 / tools / desktop / zipmastr / setup.inf < prev    next >
Text File  |  1995-08-15  |  4KB  |  123 lines
  1. //
  2. // Setup Installation File
  3. // Created by Setup Builder Version 3.08
  4. //
  5. // Copyright 1993, 1994 G.Plowman
  6. //
  7. // Created: 15-08-1995 at 11:56:10
  8. //
  9.  
  10.  
  11.  
  12. // Application Variables
  13. SET %Caption%="Setup"
  14. SET %Application%="ZipMaster"
  15. SET %InstallPath%="C:\ZIP"
  16. SET %InstallDrive%="C:"
  17.  
  18.  
  19. // Copy in the backdrops
  20. CopyFile("zipper.bmp", "%WindowsDirectory%TEMP")
  21. CopyFile("zipper.bmp", "%WindowsDirectory%TEMP")
  22. CopyFile("zipper.bmp", "%WindowsDirectory%TEMP")
  23. CopyFile("zipper.bmp", "%WindowsDirectory%TEMP")
  24.  
  25.  
  26. // Set up the backdrop text
  27. SetBackdropText(1, " Downloading Just Got Easier ", 1, 1, 58, 0, 255, 255)
  28. SetBackdropText(2, "       Remember to install in your PKZIP directory", 0, 1, 30, 255, 255, 255)
  29.  
  30.  
  31. // Now display the appropriate backdrop
  32. GetScreenWidth(%Width%)
  33. IF %Width% == 640 ShowBackDrop("%WindowsDirectory%TEMP\zipper.bmp", 1, 0, 0)
  34. IF %Width% == 640 GOTO :DONEBACKDROP
  35. IF %Width% == 800 ShowBackDrop("%WindowsDirectory%TEMP\zipper.bmp", 1, 0, 0)
  36. IF %Width% == 800 GOTO :DONEBACKDROP
  37. IF %Width% == 1024 ShowBackDrop("%WindowsDirectory%TEMP\zipper.bmp", 1, 0, 0)
  38. IF %Width% == 1024 GOTO :DONEBACKDROP
  39.  
  40. // Display default backdrop if screen size not recognised
  41. ShowBackDrop("%WindowsDirectory%TEMP\zipper.bmp", 1, 0, 0)
  42. :DONEBACKDROP
  43.  
  44.  
  45. // Welcome Dialog
  46. :BACK
  47. SET %Message1%="Welcome to the %Application% Installation Program."
  48. SET %Message2%="This program will install the %Application% software in the directory you specify on your hard disk."
  49. DialogBox("Welcome")
  50. IF %ERROR% == IDCANCEL GOTO :EXIT
  51.  
  52.  
  53. // Ask the user where to install the software
  54. :RETRY
  55. SET %Message1%="The install program will copy the %Application% files into the following directory:"
  56. DialogBox("AskPath")
  57. IF %ERROR% == IDBACK GOTO :BACK
  58. IF %ERROR% == IDCANCEL GOTO :EXIT
  59.  
  60.  
  61.  
  62.  
  63. // Make sure we have Disk #1 in the drive
  64. CheckExists("%CurrentDrive%DISK01", "Please insert the diskette labelled 'DISK01'")
  65. IF %ERROR% == IDCANCEL GOTO :EXIT
  66.  
  67.  
  68. // Copy files from disk & show in gauge
  69. CopyFile(2)
  70. "ZIPMAST.EXE", "%InstallPath%", "Copying:", TRUE
  71. "THREED.VBX", "%InstallPath%", "Copying:", TRUE
  72.  
  73.  
  74.  
  75.  
  76. // Now setup a new program manager group and its icons
  77. 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)
  78. IF %ERROR% == IDNO GOTO :NOPMGROUP
  79.  
  80. MakeGroup("%Application%", "")
  81. MakeIcon("ZipMaster", "%InstallPath%ZIPMAST.EXE ", "c:\vb\icons\misc\zip02.ico")
  82. :NOPMGROUP
  83.  
  84.  
  85. // Done
  86. :SUCCESS
  87. SET %Message1%="|%Application% installation has been successfully completed.  Enjoy !!"
  88. SET %Message2%=""
  89. DialogBox("OkBox")
  90. GOTO :END
  91.  
  92.  
  93. // User decided to quit
  94. :EXIT
  95. SET %Message1%="Installation has been terminated. You should rerun this installation program at a later time to install %Application%."
  96. SET %Message2%="|The %Application% software has not been installed."
  97. DialogBox("OkBox")
  98. GOTO :END
  99.  
  100.  
  101. // Error
  102. :ERROR
  103. SET %Message1%="An error occured during installation of the %Application% software."
  104. SET %Message2%="|The %Application% software has not been fully installed."
  105. DialogBox("OkBox")
  106. GOTO :END
  107.  
  108.  
  109. // Not enough disk space
  110. :NOSPACE
  111. SET %Message1% = "|There is not enough space on the selected drive to install the %Application% software."
  112. SET %Message2% = ""
  113. DialogBox("OkBox")
  114. GOTO :RETRY
  115.  
  116.  
  117. :END
  118. // Tidy up - remove bitmaps we copied in at the start
  119. Delete("%WindowsDirectory%TEMP\zipper.bmp")
  120. Delete("%WindowsDirectory%TEMP\zipper.bmp")
  121. Delete("%WindowsDirectory%TEMP\zipper.bmp")
  122. Delete("%WindowsDirectory%TEMP\zipper.bmp")
  123.