home *** CD-ROM | disk | FTP | other *** search
/ Wargames / wargamescd-romfuturethinking1994.iso / ftcdrom.inf < prev    next >
Text File  |  1994-11-30  |  4KB  |  177 lines
  1. ;; Purpose: Installs Future Thinking Icon into new icon group and
  2. ;;and creates a directory FTCDROM on the C: Drive.
  3.  
  4. DefineVariables
  5.   Text    [ProductName] := Future Thinking             
  6.  
  7.   Text    [DefaultInstallDir] := c:\ftcdrom
  8.  
  9.   Text    [IconCmdLine] := c:\ftcdrom\start.exe
  10.                           ;;Command line for icon
  11.  
  12.   Text    [IconFile]    := ft4.ico
  13.   Text    [IconPath]    :=
  14.   Text    [PathLineString]  :=
  15.  
  16.   Number  [PathLine]    :=
  17. EndDefineVariables
  18.  
  19. ;; ScreenSetUp
  20. SetBackgroundColor 128 128 255 0 0 255
  21. ShowWindow Maximized
  22.  
  23.  
  24. ;;This checks to see if icon is already installed
  25. [array1] := GetProgramManagerGroupInfo Future Thinking
  26. [string1] := [array1][1] 
  27.  
  28. If [String1] contains "Future Thinking" 
  29.     Do DirectoryCheck;; checks to see if directory has been deleted
  30. EndIf
  31.  
  32. ;; Product Introduction Screen
  33. Dialog
  34.   The installation places the Future Thinking Icon
  35.   in you program manager and creates a directory
  36.   for the Future Thinking programs.
  37. EndDialog
  38.  
  39. Do InstallDirectory
  40. Do InstallIcon
  41. Do AutoexecModification
  42. Do VideoCheck
  43.  
  44. Dialog
  45.       Installation is completed.
  46.  
  47.     Please make sure to close and restart Windows 
  48.     before double-clicking on the Future Thinking Logo.
  49.     You may also have to reboot your computer.
  50.  
  51.       Enjoy you Future Thinking CD-ROM.
  52. EndDialog
  53.  
  54.  
  55. Procedure InstallDirectory
  56. ;;Installs directory
  57. [FixedDiskRequirement] required
  58. If DriveIsPresent C
  59.     [InstallationDirectory] := c:\Ftcdrom
  60.     Dialog
  61.     The Future Thinking directory requires
  62.     1MB of memory on you drive.
  63.     EndDialog
  64. else 
  65.     Dialog
  66.     You need to change your hard drive to C:
  67.     to run the Future Thinking CD-ROM.
  68.     EndDialog
  69. Endif
  70.  
  71. CopyFiles to c:\ftcdrom
  72.     start.exe
  73.     runapw2.exe
  74.     apdgv.vdr
  75.     ft4.ico
  76.     win.bat
  77.     futurcln.exe
  78.     futurern.exe
  79.     play.bak
  80. Endcopyfiles
  81. EndProcedure
  82.  
  83. Procedure InstallIcon
  84. ;; In this example we use ProgramManagerDDe to create a group
  85. ;; and add a simple icon feature to complete our working example
  86.  
  87. [IconPath] := FullPathTo [IconFile] Search AllFixed
  88. ProgramManagerDDe
  89.   CreateGroup(Future Thinking)
  90.   ReplaceItem(Future Thinking)
  91.   AddItem([IconCmdLine],Future Thinking,[IconPath])
  92. EndProgramManagerDDE
  93. EndProcedure
  94.  
  95.  
  96. Procedure AutoexecModification
  97. NoSysFileConfirmation
  98. ModifyAutoexecBat Quietly
  99.     AddPathComponent c:\ftcdrom At Beginning 
  100. EndModifyAutoexecBat
  101. EndProcedure
  102.  
  103. ;;checks and install missing video driver
  104. Procedure VideoCheck
  105. [Array2][1] := mci
  106. [Array2][2] := AVIVideo
  107. [Array2][3] := XXX
  108. [Array2][4] := [WindowsDirectory]\system.ini
  109.  
  110. GetPrivateProfileString Using [Array2]
  111.  
  112. If [Array2][5] = mciavi.drv
  113.     
  114.    else
  115.      Dialog
  116.     You do not have Microsoft Video for Windows 
  117.     installed on your computer.
  118.     You can run setup now to install it.
  119.      EndDialog
  120.      Run [InstallFromDrive]:\disk1\setup.exe
  121. endif
  122. endprocedure
  123.  
  124. Procedure SystemPathCheck
  125. NoSysFileConfirmation
  126. ExamineTextFile c:\Autoexec.bat
  127. [PathLine] := PathLineNumber
  128. [PathLineString] := Line [PathLine]
  129. If [PathLineString] contains c:\ftcdrom
  130.     Popup Future Thinking is already installed on your computer.
  131.     Do VideoCheck
  132.     SoLong
  133.    Else 
  134.     Do AutoexecModification
  135.     Do VideoCheck
  136.     SoLong
  137. EndIf
  138. EndProcedure
  139.  
  140. Procedure DirectoryCheck
  141. ;; Procedure checks to see if directory has been deleted
  142. If DirectoryExists c:\ftcdrom 
  143.     Do SystemPathCheck
  144. Else     
  145.     Popup The Future Thinking directory need to be re-installed.
  146.          Do InstallDirectory
  147.     Do AutoexecModification
  148.     Do VideoCheck
  149.     Solong
  150. EndIf
  151. EndProcedure
  152.  
  153. Procedure DDENonFatalErrorTrap
  154. ;; Purpose of DDENonFatalErrorTrap:
  155. ;; If a procedure with this name is present in the script and a non-fatal
  156. ;; Program Manager DDE error occurs, then this procedure will be executed.
  157. ;; 
  158. ;; Possible Text Error Codes Are:
  159. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  160. ;;      ddeInitiate failed
  161. ;;      pmAddItem failed
  162. ;;      pmClose failed
  163. ;;      pmCreateGroup failed
  164. ;;
  165. ;; To trap a DDENonFatalError and respond to it, use the following code
  166. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  167. ;; If [Number1] > 0 
  168. ;;    Dialog
  169. ;;      NonFatal error in AddItem occurred
  170. ;;      Error Text : DDENonFatalError
  171. ;;    EndDialog
  172. ;; EndIf
  173. EndProcedure
  174.  
  175.  
  176. EndScript
  177.