home *** CD-ROM | disk | FTP | other *** search
/ Software One-Stop 3 / BOOTCDROM.iso / install / alg3021c / algul02.inf < prev    next >
Encoding:
Text File  |  1995-03-17  |  10.3 KB  |  365 lines
  1. DefineVariables
  2. Text [CompanyName] := AVANCE LOGIC, INC.
  3. Text [ProductName] := Avance Logic,Inc. ALG 2229/2302
  4. Logical [OfferInstallationDirectoryChoice] := Y
  5. Directory [DefaultInstallationDirectory] := \WIN\SYSTEM
  6. Directory [TempDirectory]
  7. Text [Bitmap1] := ali.bmp
  8. Text [TempDriveLetter]
  9. Text [ModifyMode] := MODIFY
  10. Number [MinimumFilesSetting] := 20
  11. Number [MinimumBuffersSetting] := 20
  12. Directory [ReadmeFileName]
  13. Logical [InquireAboutSystemFileLocation] := Y
  14. Logical [AskBeforeFileReplacement] := N
  15. Text [ExitMessage] := Thank again!
  16. Directory [ProgramToRun]
  17. Logical [AddInstallDirectoryToPath] := N
  18. Text [MinimumOSVersion]
  19. Number [MinimumSystemMemoryRequiredPresent]
  20. Number [SpaceWeNeedToInstall] := 700000
  21. Logical [AllowCGA] := N
  22. Logical [AllowMDA] := N
  23. Logical [Allow808x] := N
  24. Logical [Allow80286] := Y
  25. Logical [MathCoprocessorRecommended] := N
  26. Logical [FixedDiskRequired] := Y
  27. Text [NetWorkInstallation] := DisallowNetwork
  28. Logical [UseShadows] := Y
  29. Text [MainBorder] := None
  30. Text [PopupBorder] := Single
  31. Text [TopLine] := Installing Avance Logic 2229/2302 Resolutions
  32. Text [TopLineColors] := WhiteOnBrown
  33. Text [BottomLineColors] := WhiteOnLightGray
  34. Text [PopupColors] := WhiteOnCyan
  35. Text [AttentionColors] := WhiteOnRed
  36. Text [SpecialPopupColors] := WhiteOnBrown
  37. Text [Module1Name] := Windows 3.0
  38. Text [Module1Groups] := 1
  39. Text [Module1Description] := Windows 3.0 Drivers
  40. Text [Module2Name] := Windows 3.1
  41. Text [Module2Groups] := 2
  42. Text [Module2Description] := Windows 3.1 Drivers
  43. Text [ExpressSetupDescription]
  44. Text [CustomSetupDescription] := Please Sellect Which Which Windows Version
  45. Text [ExtractionOptions]
  46. ;; remaining variables are not initialized from external Script Data File
  47. Logical [NeedToTerminate] := N
  48. Logical [Installed] := N
  49. Text [DisplayAdapterSummary]
  50. Text [CPUTypeSummary]
  51. Text [NetworkActive]
  52. Text [MathCoprocessorStatus]
  53. Text [InstallationDriveSummary]
  54. Text [OSVersionSummary]
  55. Text [SystemMemorySummary]
  56. Logical [InsufficientSystem] := N
  57. Logical [CompatibilityNoticeGiven] := N
  58. Logical [NeedToModify] := N
  59. Text [PathTask]
  60. Text [BuffersTask]
  61. Text [FilesTask]
  62. Text [BackgroundCharacter] := B0
  63. Text [ScreenColors] := WhiteOnBlue
  64. Text [BottomLine]
  65. Number [Black]
  66. Number [White]
  67. Number [TempDirSpaceRequired] := 300000
  68. EndDefineVariables
  69. ;; Set up basic screen appearance since there will be a brief delay
  70. ;; before the external data is ready to use
  71. ;;SetScreenAttrTo Default
  72. ;;SetBackgroundCharTo [BackgroundCharacter]
  73. ;;ClearScreen
  74. ;;[TempDirectory] := [TempDriveLetter]:
  75.  
  76. Procedure Logo
  77. LoadBitMap 1 [InstallationDirectory]\[Bitmap1] @xy(Center,2)
  78. ShowBitMap 1
  79. EndProcedure
  80.  
  81. Do InstallSupportFiles
  82.  
  83. Procedure InstallSupportFiles
  84.        If DriveIsRemoveable [InstallFromDrive]
  85.          [InstallationDirectory] := [InstallFromDrive]:
  86.          SetMouseCursor Wait
  87.          Do Logo
  88.          Do Install
  89.          SetMouseCursor Arrow
  90.          Do InstallProgramGroup
  91.        Else
  92.            [InstallationDirectory] := [InstallFromDirectory]
  93.            If [InstallFromDirectory] Contains \ALGUL02\
  94.              If FileExists [InstallFromDirectory]\al8p02.drv
  95.                 Dialog @xy(Center,Center) WhiteOnBlack
  96.                   Please copy windows drivers into another
  97.                   directory except [InstallFromDirectory]
  98.                 EndDialog
  99.                 SoLong Quietly
  100.              Else
  101.                Do Logo
  102.              EndIf
  103.            Else
  104.              SetMouseCursor Wait
  105.              Do Logo
  106.              Do Install
  107.              SetMouseCursor Wait
  108.              Do InstallProgramGroup
  109.            EndIf
  110.  
  111.         EndIf
  112. EndProcedure
  113.  
  114. Procedure InstallProgramGroup
  115.     Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack UseHeader "INSTALL for Windows Program Manager Group"
  116.       Would you like to place INSTALL in a Windows program group?
  117.    EndDialog
  118.    If [YesOrNo1] = Y
  119.       BuildProgramGroup "Avance Logic 2229/2302-Resolutions" ALGUL02.GRP
  120.         [TempDirectory]\VMASTER.EXE "AvanceLogic,Inc 2229/2302"
  121.         [TempDirectory]\VPM.EXE
  122.       EndBuildProgramGroup
  123.    EndIf
  124. EndProcedure
  125.  
  126.  
  127. Procedure Install
  128. [String1] := C
  129. [TempDriveLetter] := BlankString
  130. [Number1] := [TempDirSpaceRequired]
  131.  :CheckNextDrive
  132.  If [String1] > B
  133.   If DriveIsPresent [String1]
  134.    If DriveIsRemoveable [String1]
  135.     ;;do nothing
  136.    Else
  137.     If FreeSpaceOnDrive [String1] > [Number1]
  138.      [TempDriveLetter] := [String1]
  139.      [Number1] := FreeSpaceOnDrive [String1]
  140.  
  141.     Else
  142.        :NextDrive
  143.          IncrementString [String1]
  144.          If DriveIsCDROM [String1]
  145.            GoTo NextDrive
  146.          EndIf
  147.          If DriveIsRemote [String1]
  148.            GoTo NextDrive
  149.          EndIf
  150.       GoTo CheckNextDrive
  151.  
  152.     EndIf
  153.    EndIf
  154.   EndIf
  155.  EndIf
  156.  If [String1] = Z
  157.   GoTo ExitGetTempDir
  158.  EndIf
  159.  :ExitGetTempDir
  160. ;; ClearScreen
  161. ;; UpdateWindow
  162.  If [TempDriveLetter] = BlankString
  163.    Dialog @xy(Center,Center) UseHeader "Disk Space Error"
  164.     .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
  165.     .LSpace in order to successfully install!
  166.    EndDialog
  167.    SoLong
  168.  Else
  169.    [TempDirectory] := [TempDriveLetter]:\ALGUL02
  170.    CreateDirectoryIfNecessary [TempDirectory]
  171.    Delay 2000
  172.    ;;ClearScreen
  173.    ;;UpdateWindow
  174.  EndIf
  175.  
  176.   SetReplacementInquiry off
  177.   SetMouseCursor Wait
  178.  TextBox @xy(Center,Center)
  179.    Copying Installation Files ...
  180.  EndTextBox
  181.  ;; QueAllFiles to [WindowsSystemDirectory]
  182.   QueFileGroup 1 to [WindowsSystemDirectory]
  183.   GetQuedFiles Quietly
  184.  
  185.   SetMouseCursor Wait
  186.   QueFileGroup 2 to [TempDirectory] Quietly
  187.   GetQuedFiles Quietly
  188.   CopyFiles from [InstallationDirectory] to [TempDirectory] Quietly
  189.     VMASTER.EXE
  190.     CTL3D.DLL
  191.     VPMDLL.DLL
  192.     VPM.EXE
  193.     
  194.   
  195.   EndCopyFiles
  196.   SetMouseCursor Wait
  197.   If FileExists [WindowsSystemDirectory]\OEM5.INF
  198.   SetMouseCursor Wait
  199.      DeleteFiles from [WindowsSystemDirectory] Quietly
  200.        OEM5.INF
  201.      EndDeleteFiles
  202.   EndIf
  203.   SetMouseCursor Wait
  204.   CopyFiles from [InstallationDirectory] to [WindowsSystemDirectory] Quietly
  205.     OEM2302.ALI
  206.   EndCopyFiles
  207.   If FileExists [WindowsSystemDirectory]\OEM2302.INF
  208.   SetMouseCursor Wait
  209.      DeleteFiles from [WindowsSystemDirectory] Quietly
  210.        OEM2302.INF
  211.      EndDeleteFiles
  212.      RenameFile [WindowsSystemDirectory]\OEM2302.ALI to OEM2302.INF
  213.   else
  214.   SetMouseCursor Wait
  215.      RenameFile [WindowsSystemDirectory]\OEM2302.ALI to OEM2302.INF
  216.   EndIf
  217.   ClearScreen
  218.   UpdateWindow
  219. EndProcedure
  220.  
  221. Do SetupInstalit
  222. ;;Do PrepareSystemReport
  223.      ;; FOR 1301 DCI DRIVERS INSTALLATION
  224. Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack
  225.     Would you like to install VideoWizard drivers?
  226. EndDialog
  227. If [YesOrNo1] = Y
  228.   Do DCI
  229.   SoLong Quietly
  230. else
  231.   SoLong Quietly
  232. EndIf
  233.  
  234. Procedure DCI
  235. ;;*************ALG1301on************      
  236.  
  237.       If [String8] = [ALGRefRate]
  238.        else
  239.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  240.      If [String8] Contains [ALGRefRate] 
  241.        [String8] := LineWith ([,[ALGRefRate],])
  242.        [Number7] := LineNumberWith ([,[ALGRefRate],])
  243.      else
  244. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  245. ;; InSection [ALGRefRate]
  246.   AddOrChangeLineWith ([ALGRefRate],,) as "[ALGRefRate]" at End
  247. EndModifyTextFile     
  248.           Endif
  249.           Endif
  250.     
  251. ;;****************
  252.  
  253. If [String2] = ALIDCI
  254. else
  255.  If [String3] = iccvid.drv
  256.  else
  257.    If [String4] = indeov.drv 
  258.    else
  259.     If [String5] = IR32.DLL  
  260.      else
  261.       If [String6] = UDH.DLL  
  262.        else
  263.        If [String7] = on  
  264.         else
  265.      
  266.      
  267.      
  268.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  269.      If [String2] Contains ALIDCI
  270.        [String2] := LineWith ([,ALIDCI,])
  271.        [Number1] := LineNumberWith ([,ALIDCI,])
  272.      else
  273.      If [String3] Contains iccvid.drv
  274.        [String3] := LineWith ([,iccvid.drv,])
  275.        [Number2] := LineNumberWith ([,iccvid.drv,])
  276.      else
  277.      If [String4] Contains indeov.drv
  278.        [String4] := LineWith ([,indeov.drv,])
  279.        [Number3] := LineNumberWith ([,indeov.drv,])
  280.      else
  281.      If [String5] Contains  IR32.DLL
  282.        [String5] := LineWith ([, IR32.DLL,])
  283.        [Number4] := LineNumberWith ([, IR32.DLL,])
  284.      else
  285.      If [String6] Contains  UDH.DLL
  286.        [String6] := LineWith ([,UDH.DLL,])
  287.        [Number5] := LineNumberWith ([,UDH.DLL,])
  288.      else
  289.      If [String7] Contains  on
  290.        [String7] := LineWith ([,on,])
  291.        [Number6] := LineNumberWith ([,on,])
  292.      else
  293.  
  294. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  295.  InSection [drivers] 
  296.   AddOrChangeLineWith (DCI=,,) as "DCI=ALIDCI" at Beginning
  297.   AddOrChangeLineWith (DCIVIDC.CVID=,,) as "DCIVIDC.CVID=iccvid.drv" at Beginning
  298.   AddOrChangeLineWith (DCIVIDC.IV31=,,) as "DCIVIDC.IV31=indeov.drv" at Beginning
  299.   AddOrChangeLineWith (VIDC.IV32=,,) as "VIDC.IV32=IR32.DLL" at Beginning
  300.   AddOrChangeLineWith (VIDS.DRAW=,,) as "VIDS.DRAW=UDH.DLL" at Beginning
  301.  InSection [ALGRefRate] 
  302.   AddOrChangeLineWith (ALG1301DCI=,,) as "ALG1301DCI=off" at Beginning
  303.  
  304. EndModifyTextFile
  305.          Endif
  306.        EndIf
  307.        EndIf
  308.      EndIf
  309.          Endif
  310.        EndIf
  311.        EndIf
  312.      EndIf
  313.        EndIf
  314.      EndIf
  315.        EndIf
  316.      EndIf
  317. EndProcedure     
  318.  
  319.  
  320. If [CommandLine1] = -ReplaceFiles
  321.   SetReplacementInquiry Off
  322. EndIf
  323. If [CommandLine2] = -ReplaceFiles
  324.   SetReplacementInquiry Off
  325. EndIf
  326. If [CommandLine3] = -ReplaceFiles
  327.   SetReplacementInquiry Off
  328. EndIf
  329.  
  330. If [InquireAboutSystemFileLocation] = NoCharacter
  331.   If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
  332.     NoSysFileConfirmation
  333.   EndIf
  334. EndIf
  335.  
  336. If [AskBeforeFileReplacement] = NoCharacter
  337.   SetReplacementInquiry Off
  338. EndIf
  339. SoLong
  340.  
  341. Procedure SetupInstalit
  342.   SetCoordinatesTo 80x25
  343.   If [UseShadows] = YesCharacter
  344.     SetShadows On
  345.   else
  346.     SetShadows Off
  347.   EndIf
  348.   If [InquireAboutSystemFileLocation] = NoCharacter
  349.     NoSysFileConfirmation
  350.   EndIf
  351.   [Black] := RGB(0,0,0)
  352.   [White] := RGB(255,255,255)
  353.   ;;SetMainBorderTo     [MainBorder]
  354.   SetPopupBorderTo    [PopupBorder]
  355.   SetModifyModeTo     [ModifyMode]
  356.   ;;SetShadowAttrTo     DarkGrayOnBlack
  357.   ;;SetScreenAttrTo [White]On[Black]
  358.   ;;SetPopupAttrTo      [PopupColors]
  359.   SetAttentionAttrTo  [AttentionColors]
  360.   ;;SetTopLineAttrTo WhiteOnBrown
  361.   SetTopLineTo        [TopLine]
  362.   ;;SetExitMessageTo "Installation complete!"
  363.   ;;SetAllowExit
  364. EndProcedure 
  365.