home *** CD-ROM | disk | FTP | other *** search
/ Internet Standards / CD1.mdf / HYPERRFC / SETUP.INF < prev    next >
Encoding:
Text File  |  1995-06-12  |  6.1 KB  |  185 lines
  1. SetVariable (TitleName, "RFCs in Hypertext")    ; Name of the title
  2.  
  3. SetVariable (ViewerSize, 6 564 970)    ; Size of the Viewer files that will
  4.                     ;  be copied over (measured in bytes)
  5. SetVariable (ViewerPath, "C:\VIEWER")    ; Default path for the Viewer
  6.  
  7. ; Set the title of all dialog windows.
  8. ;
  9. WindowTitle (<TitleName> " Setup")
  10.  
  11.  
  12. ; Set the instruction text used in the initial instructions window.
  13. ; Add Help instructions if the file SETUP.HLP exists.
  14. ;
  15. SetVariable (InitialInstructions, 
  16.     "Click on {\b OK} or press {\b Enter} to continue.  "
  17.     "To abort the setup, click on the {\b Exit} button at the "
  18.     "bottom right corner of the screen, or press {\b F3}.  ")
  19.  
  20. IfFileExistsGoto ("SETUP.HLP", AddHelpInstructions)
  21.  
  22.     Goto (DisplayInitialMessage)
  23. AddHelpInstructions:
  24.     SetVariable (InitialInstructions, 
  25.         <InitialInstructions> "You can always obtain help by "
  26.         "clicking on the {\b Help} button or pressing {\b F1}.  ")
  27.  
  28. DisplayInitialMessage:
  29. DisplayMessage (
  30.     "The Setup program will install RFC's In HyperText"
  31.     " and the Multimedia Viewer on your hard disk.",
  32.     <InitialInstructions>)
  33.  
  34. GetFromWinIni (ViewerPathTemp, "Multimedia Viewer", "ViewerPath", "Undefined")
  35.  
  36. IfEqualGoto (<ViewerPathTemp>, "Undefined", PromptViewerPath)
  37. SetVariable (ViewerPath, <ViewerPathTemp>)
  38.  
  39.  
  40. AskAgain:
  41.  
  42. PromptViewerPath:
  43. PromptPath (ViewerPath, <ViewerPath>,
  44.     "Where should Setup install the Multimedia Viewer?",
  45.     "Modify the default path if necessary, and then click on {\b OK} or "
  46.     "press {\b Enter} to continue.  ",
  47.     "The path is currently not valid.  You must specify a drive "
  48.     "letter, a colon, and a directory from the root of the drive.  ")
  49.  
  50. GetSpaceAvailable (SpaceAvailable, <ViewerPath>)
  51.  
  52. IfLowerGoto (<ViewerSize>, <SpaceAvailable>, ViewerPathOK)
  53.  
  54. AskYesNo (Prompt, "Yes",
  55.     "There may not be enough space to install the Multimedia Viewer.  "
  56.     "Would you like to enter a new path for the files?  ",
  57.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  58.     "Multimedia Viewer files.\par "
  59.     "Click on {\b No} or press {\b 'N'} to continue anyway.\par "
  60.     "Click on the {\b Exit} button or press {\b F3} to exit Setup.  "
  61.     "You may wish to exit Setup and make some more space on your hard "
  62.     "disk.  Run Setup again when there is enough space on your hard "
  63.     "disk.  ")
  64. IfEqualGoto (<Prompt>, "Yes", PromptViewerPath)
  65.  
  66.  
  67. ViewerPathOK:
  68. AskYesNo (AskAgain, "No", 
  69.     "Would you like to change anything before proceeding with "
  70.     "the installation?",
  71.     "Click on {\b Yes} or press {\b 'Y'} to reenter options.\par "
  72.     "Click on {\b No} or press {\b 'N'} to proceed with installation.  ")
  73. IfEqualGoto (<AskAgain>, "Yes", AskAgain)
  74.  
  75. SetVariable (TitlePath, <ViewerPath> "INTERNET")
  76. MakePath (<ViewerPath>)
  77. MakePath (<TitlePath>)
  78.  
  79. OpenCopyProgress (
  80.     "Setup is copying the Multimedia Viewer runtime files.",
  81.     "Please wait while Setup is copying files.")
  82.  
  83. CopyFile ("FTENGINE.DLL", <ViewerPath> "\FTENGINE.DLL",   41000)
  84. CopyFile ("FTUI.DLL",     <ViewerPath> "\FTUI.DLL",       54000)
  85. CopyFile ("VIEWER.EXE",   <ViewerPath> "\VIEWER.EXE",    241000)
  86. CopyFile ("MVAPI.DLL",     <ViewerPath> "\MVAPI.DLL",       5120)
  87.  
  88. CloseCopyProgress ()
  89.  
  90. OpenCopyProgress (
  91.     "Setup is copying the Multimedia Viewer Book files.",
  92.     "Please wait while Setup is copying files.")
  93.  
  94. CopyFile ("INTERNET.MVB", <TitlePath> "\INTERNET.MVB", 2608210)
  95. CopyFile ("INTERNET.IND", <TitlePath> "\INTERNET.IND", 3366912)
  96. CopyFile ("RFCS.ICO", <TitlePath> "\RFCS.ICO", 766)
  97.  
  98. CloseCopyProgress ()
  99.  
  100.     ;;*************Begin Title Specific Section***************************
  101.  
  102. OpenProgmanProgress (
  103.     "Setup is adding Program Manager groups.",
  104.     "Please wait while Setup adds {\b Program Manager} groups".)
  105.  
  106. OpenProgmanGroup ("Viewer", Delete)    ;; Adding the group "Viewer".
  107.  
  108. AddProgmanItem (<TitleName>,
  109.     <ViewerPath> "VIEWER.EXE " <TitlePath>    "\INTERNET.MVB",
  110.     <TitlePath> "\RFCS.ICO", 0)
  111.  
  112. CloseProgmanProgress ()
  113.  
  114. AddToWinIni ("Multimedia Viewer", "ViewerPath", <ViewerPath>)
  115. AddToWinIni ("Extensions", "mvb", "viewer.exe ^.mvb")
  116.  
  117. ;ModifyAutoexec (<ViewerPath>, "", "", "AskInstructions", "Review", "Save")
  118.  
  119. IfIncompleteGoto (Incomplete)
  120.     SetVariable (Message, 
  121.         "The Setup program has successfully installed the "
  122.         "Multimedia Viewer and "
  123.         <TitleName> ".%n%n")
  124.     Goto (CheckAutoexec)
  125. Incomplete:
  126.     SetVariable (Message,
  127.         "Setup has finished, but the installation was incomplete.  "
  128.         "You should correct any problems (such as insufficient disk "
  129.         "space, missing source files, or locked directories) and run "
  130.         "Setup again.%n%n")
  131.  
  132.  
  133. CheckAutoexec:
  134.  
  135.     ;;====================================================================
  136.     ;; IfMustModifyGoto (Label)
  137.     ;; ------------------------
  138.     ;; This command will branch to the label 'Label' if Setup had to 
  139.     ;; modify the AUTOEXEC.BAT file, but the user chose to do the
  140.     ;; modifications themselves later.
  141.     ;;====================================================================
  142.  
  143. ;IfMustModifyGoto (MustModify)
  144.  
  145.     ;;====================================================================
  146.     ;; IfMustRebootGoto (Label)
  147.     ;; ------------------------
  148.     ;; This command will branch to the label 'Label' if Setup has
  149.     ;; modified the AUTOEXEC.BAT file and the user must now reboot their
  150.     ;; computer.
  151.     ;;====================================================================
  152.  
  153. ;IfMustRebootGoto (MustReboot)
  154. Goto (End)
  155.  
  156.  
  157. MustModify:
  158.  
  159. SetVariable (Message, 
  160.     <Message> "Remember to modify your AUTOEXEC.BAT file and reboot your "
  161.     "computer before using the Multimedia Viewer.%n%n")
  162. Goto (End)
  163.  
  164.  
  165. MustReboot:
  166.  
  167. SetVariable (Message,
  168.     <Message> "For the changes to your AUTOEXEC.BAT file to come into "
  169.     "effect, you must reboot your computer.  To do this, you must first "
  170.     "exit Windows and then simultaneously hold down the Ctrl, Alt, and "
  171.     "Del keys.  You must do this before using the Multimedia Viewer.%n%n")
  172.  
  173.  
  174. End:
  175.  
  176. ;SetVariable (Message, 
  177. ;    <Message> "The advantages of being a registered user are numerous.  "
  178. ;    "Please send in your Product Registration Card TODAY.")
  179.  
  180. DisplayMessage (<Message>, 
  181.     "Click on {\b OK} or press {\b Enter} to return to the "
  182.     "Program Manager.")
  183.  
  184.  
  185.