home *** CD-ROM | disk | FTP | other *** search
/ Technorotica / Technorotica.iso / pc / mov / safe_sex.inf < prev    next >
Text File  |  1995-11-02  |  4KB  |  151 lines
  1. DefineVariables
  2. ;;******************************************************
  3. ;; Install of VCA Sampler software for windows
  4. ;;******************************************************
  5.  
  6.   
  7.   Text    [CompanyName] := VCA Interactive
  8.   Text    [ProductName] := VCA Sampler
  9.   Text    [ProductName1] := Install QuickTime 2.0  
  10.   Text    [ProductName2] := Uninstall QuickTime 2.0
  11.   Text      [TopLine]    := " INSTALLING [ProductName]  "
  12.  
  13.   Text      [ExpressSetupDescription]    := Install VCA Sampler
  14.  
  15.   
  16.   Text    [LogoBitMap]  := VCA.BMP    
  17.   Text    [ReadFile]    := VCAREAD.WRI             
  18.   Text    [ReadCmdLine] := write.exe
  19.   Text    [ReadPath]
  20.   Text    [IconFile]    := VCA.ICO
  21.   Text    [IconPath]    
  22.   Text    [ProgFile]    := VCA.EXE
  23.   Text    [ProgPath]
  24.   Text    [ProgFile1]   := SETUP.EXE
  25.   Text    [ProgPath1]
  26.   Text    [ProgFile2]   := UNQTW.EXE
  27.   Text    [ProgPath2]
  28.  
  29. EndDefineVariables
  30. Procedure DDENonFatalErrorTrap
  31.  
  32.  
  33. ;; Purpose of DDENonFatalErrorTrap:
  34. ;; If a procedure with this name is present in the script and a non-fatal
  35. ;; Program Manager DDE error occurs, then this procedure will be executed.
  36. ;; 
  37. ;; Possible Text Error Codes Are:
  38. ;;      ddeExec%s failed      (NOTE:  the "%s" is replaced by error types)
  39. ;;      ddeInitiate failed
  40. ;;      pmAddItem failed
  41. ;;      pmClose failed
  42. ;;      pmCreateGroup failed
  43. ;;
  44. ;; To trap a DDENonFatalError and respond to it, use the following code
  45. ;; [Number1] := PositionOf "PMAddItem" in DDENonFatalError
  46. ;; If [Number1] > 0 
  47. ;;    Dialog
  48. ;;      NonFatal error in AddItem occurred
  49. ;;      Error Text : DDENonFatalError
  50. ;;    EndDialog
  51. EndProcedure
  52.  
  53.  
  54.  
  55. ;; Setup logo and screen
  56. SetDefaultBitmap off
  57. LoadBitMap 1 [LogoBitMap]
  58. ShowBitMap 1 @xy(420,320)
  59. SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  60. ShowWindow Maximized
  61.  
  62.  
  63. Dialog
  64.   
  65. Installation of "[ProductName]" is completely non-invasive. 
  66. A new icon and/or program group, "[CompanyName]", will be 
  67. created in your program manager.
  68.  
  69. Please press "OK" to proceed with "[ProductName]" installation.
  70.  
  71. EndDialog
  72.  
  73. Dialog WhiteOnBlue
  74.  
  75. **********************WARNING**********************
  76.  
  77. QuickTime ver. 1.0 and ver. 2.0 are incompatible.
  78. For your convenience you may install or un-install 
  79. QuickTime ver. 2.0 from the "VCA Interactive" Program Group.
  80.  
  81. Please press "OK" to proceed with "[ProductName]" installation.
  82.  
  83. EndDialog
  84.  
  85. CreateDirectoryIfNecessary C:\VCA
  86.  
  87. If FileExists C:\VCA\UNQTW.EXE
  88. SetFileAttrTo 00 for c:\VCA\UNQTW.EXE
  89. EndIf
  90.  
  91. If FileExists C:\VCA\UNQTW.INF
  92. SetFileAttrTo 00 for c:\VCA\UNQTW.INF
  93. EndIf
  94.  
  95. If FileExists C:\VCA\VCA.BMP
  96. SetFileAttrTo 00 for c:\VCA\VCA.BMP
  97. EndIf
  98.  
  99. SetCopyAttrTo 00
  100. CopyFiles from [InstallFromDrive]:\MOV to C:\VCA quietly
  101. UNQTW.EX_ as UNQTW.EXE
  102. UNQTW.IN_ as UNQTW.INF
  103. VCA.BMP
  104. EndCopyFiles
  105.  
  106.  
  107.  
  108. ;;**************************************************
  109. ;;Find the files for the program and icons
  110. ;;**************************************************
  111. [IconPath] := FullPathTo [IconFile] Origin=[InstallFromDrive]:\MOV Quietly
  112. [ProgPath]  := FullPathTo [ProgFile] Origin=[InstallFromDrive]:\MOV Quietly
  113. [ReadPath]  := FullPathTo [ReadFile] Origin=[InstallFromDrive]:\MOV Quietly
  114. [ProgPath1]  := FullPathTo [ProgFile1] Origin=[InstallFromDrive]:\MOV Quietly
  115. [ProgPath2]  := FullPathTo [ProgFile2] Origin=C:\VCA Quietly
  116.  
  117.  
  118. ;;**************************************************
  119. ;; Create the windows program group.
  120. ;;**************************************************
  121. ProgramManagerDDe
  122.   CreateGroup([CompanyName])
  123.   ReplaceItem([CompanyName])
  124.   DeleteItem([ProductName])
  125.   AddItem([ProgPath],[ProductName],[IconPath])
  126.   DeleteItem([ProductName1])
  127.   AddItem([ProgPath1],[ProductName1])
  128.   DeleteItem([ProductName2])  
  129.   AddItem([ProgPath2],[ProductName2])
  130.   DeleteItem([ReadFile])  
  131.   AddItem([ReadPath],[ReadFile])
  132. EndProgramManagerDDE
  133.  
  134.  
  135.  
  136.  
  137. ;; Exit dialog box and messages
  138. Dialog
  139.   [ProductName] installation is complete.
  140.   Enjoy!
  141. EndDialog
  142.  
  143.  Dialog PressAKey WhiteOnBrown
  144.  
  145.     Thanks again and best wishes.  You'll find new
  146.     information in file VCAREAD.WRI
  147.  
  148.   EndDialog
  149.  
  150. EndScript
  151.