home *** CD-ROM | disk | FTP | other *** search
/ Time Riders in American History / TR_AMAZ.BIN / amazon.inf < prev    next >
INI File  |  1994-09-19  |  5KB  |  152 lines
  1. DefineVariables
  2.   Text    [ProductName] := Amazon Trail CD
  3.  
  4.   Text    [DefaultInstallDir] := C:\MECC\ATCD
  5.  
  6.   Text    [IconCmdLine] := AMAZON.EXE
  7.  
  8.   Text    [IconFile]    := AMAZON.EXE
  9.  
  10. number    [SpaceNeeded] := 2000000
  11. Text      [SpaceText] := 2.1 MB
  12.  
  13. EndDefineVariables
  14.  
  15. SetDefaultBitmap Off
  16. LoadBitmap 1 mecc.bmp
  17. ShowBitmap 1 @xy(20,5) 
  18.  
  19. ;;SetBackgroundColor 50 50 255 0 0 0 
  20. ShowWindow Maximized
  21.  
  22. Dialog   UseHeader "Welcome to [ProductName] installation."
  23.  
  24.   .L  This Setup program will create a Program Group and copy 
  25.   .L  [ProductName] files to your hard disk.
  26.   
  27.   .L  If you need to quit the installation at any time, press 
  28.   .L  the Esc key while the computer is waiting for a response.
  29.  
  30. EndDialog
  31.  
  32. Dialog  UseHeader "KNOW YOUR RIGHTS (and respect ours, too)"
  33. .LPlease do not make illegal copies of this software. The software you are using 
  34. .Lwas produced through the efforts of many people: designers, artists, 
  35. .Lprogrammers, distributors, retailers, and other dedicated workers. The costs of 
  36. .Ldeveloping this and other software programs are recovered through software 
  37. .Lsales. The unauthorized duplication of personal software raises the cost to all 
  38. .Llegitimate users. This software is protected by federal copyright law. Copying 
  39. .Lsoftware for any  reason other than to make a backup is a violation of law.  
  40. .LIndividuals  who make unauthorized copies of software may be subject to civil 
  41. .Land  criminal penalties.  As a member of the Software Publishers Association 
  42. .L(SPA),  MECC supports the industry's efforts to fight illegal copying of 
  43. .Lpersonal computer  software. Report copyright  violations to:  SPA, 1730 M 
  44. .LStreet NW, Suite 700, Washington DC 20036-4510, 800/388-7478.
  45.  
  46. .LFor a complete explanation of your legal rights and responsibilities in using 
  47. .Lthis product, please refer to your user's guide.
  48.  
  49. .LThe Amazon Trail CD, Copyright (C) 1994, MECC.  All rights reserved.
  50.  
  51. EndDialog
  52.  
  53. [Point1]
  54. [InstallationDirectory] := [DefaultInstallDir]
  55. Dialog [InstallationDirectory] 56 BlackOnWhite UseHeader "Setup"
  56.  
  57.     .L  Please choose a drive and a directory for [ProductName]'s
  58.     .L  files.   The drive must have at least [SpaceText] of free space.
  59.   
  60.     .L  Click OK to choose the drive and directory shown.  Or, type in the  
  61.     .L  drive and directory you prefer, then click OK.
  62.  
  63. EndDialog
  64.  
  65. [Number2] := FreeSpaceOnDrive InstallationDrive
  66. If [Number2] < [SpaceNeeded]
  67.     [String1] := InstallationDrive
  68.    Dialog
  69.    
  70.     .LThere is not enough space for [ProductName] on
  71.     .Lthe [String1]: drive.
  72.       
  73.     .L Space Available: [Number2] bytes
  74.     .L Space Required:  [SpaceNeeded] bytes
  75.      
  76.     .LPlease try again, or press the Esc key to quit. 
  77.     
  78.    EndDialog 
  79.    GoTo [Point1]
  80. Endif
  81.  
  82. CreateDirectoryIfNecessary [InstallationDirectory]
  83.  
  84.  
  85.  
  86. SetReadOnlyInquiry off
  87. SetReplacementInquiry off
  88. CopyFiles quietly
  89.     dib.drv
  90. EndCopyFiles
  91.  
  92. QueFileGroup 1 to [InstallationDirectory]
  93. QueFileGroup 2 to [InstallationDirectory]\LANDMARK
  94.  
  95. GetQuedFiles
  96.  
  97.  
  98. [String2] := "MECC"
  99.  
  100. ;;Dialog [String2] BlackOnWhite UseHeader "Creating the program item" 
  101. ;;       
  102. ;;      .L  A program item for [ProductName] will be added to     
  103. ;;      .L  the following Program Manager group.              
  104. ;;   
  105. ;;      .L  If you want to place the icon in a different          
  106. ;;      .L  group, type the name of the new or existing group.
  107. ;;      
  108. ;;      .L  If the group does not exist, it will be created.  
  109. ;;
  110. ;;EndDialog
  111.  
  112. ;;If [String2] = BlankString
  113. ;;      [String2] := "MECC"
  114. ;;EndIf
  115.  
  116. ProgramManagerDDe
  117.   CreateGroup([String2])
  118.   ReplaceItem([ProductName])
  119.   AddItem([InstallationDirectory]\[IconCmdLine],[ProductName],[InstallationDirectory]\[IconFile])
  120. EndProgramManagerDDE
  121.  
  122.  
  123. Dialog
  124.  
  125.   [ProductName] setup is complete.
  126.   Thanks for buying [ProductName]!
  127.  
  128. EndDialog
  129.  
  130. Procedure DDENonFatalErrorTrap
  131. ;; Purpose of DDENonFatalErrorTrap:
  132. ;; If a procedure with this name is present in the script and a non-fatal
  133. ;; Program Manager DDE error occurs, then this procedure will be executed.
  134. ;; 
  135. ;; Possible Text Error Codes Are:
  136. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  137. ;;      ddeInitiate failed
  138. ;;      pmAddItem failed
  139. ;;      pmClose failed
  140. ;;      pmCreateGroup failed
  141. ;;
  142. ;; To trap a DDENonFatalError and respond to it, use the following code
  143. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  144. ;; If [Number1] > 0 
  145. ;;    Dialog
  146. ;;      NonFatal error in AddItem occurred
  147. ;;      Error Text : DDENonFatalError
  148. ;;    EndDialog
  149. EndProcedure
  150.  
  151. EndScript
  152.