home *** CD-ROM | disk | FTP | other *** search
/ MPC Wizard 3.0 / WIZARD3_0.ISO / drivers / graf_p_z / stb_expr / algul.inf < prev    next >
INI File  |  1994-03-07  |  16KB  |  601 lines
  1. DefineVariables
  2. Text [CompanyName] := STB SYSTEMS, INC.
  3. Text [ProductName] := EXPRESS PCI
  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 EXPRESS PCI 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 \ALGUL\
  94.              If FileExists [InstallFromDirectory]\V631P.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 "EXPRESS PCI-Resolutions" ALGUL.GRP
  120.         [TempDirectory]\WIN31UL.EXE "EXPRESS PCI"
  121.       EndBuildProgramGroup
  122.     EndIf
  123. EndProcedure
  124.  
  125.  
  126. Procedure Install
  127.   SetReplacementInquiry off
  128.   
  129.   TextBox @xy(0,0)
  130.   
  131.     THANK YOU FOR PURCHASING.. 
  132.     [ProductName].  
  133.   
  134.   EndTextBox
  135.  
  136.  TextBox @xy(Center,Center)
  137.    Copying Installation Files ...
  138.  EndTextBox
  139.   QueAllFiles to [WindowsSystemDirectory]
  140.   GetQuedFiles Quietly
  141.  [String1] := C
  142.  [TempDriveLetter] := BlankString
  143.  [Number1] := [TempDirSpaceRequired]
  144.  :CheckNextDrive
  145.  If [String1] > B
  146.   If DriveIsPresent [String1]
  147.    If DriveIsRemoveable [String1]
  148.     ;;do nothing
  149.    Else
  150.     If FreeSpaceOnDrive [String1] > [Number1]
  151.      [TempDriveLetter] := [String1]
  152.      [Number1] := FreeSpaceOnDrive [String1]
  153.     EndIf
  154.    EndIf
  155.   EndIf
  156.  EndIf
  157.  If [String1] = Z
  158.   GoTo ExitGetTempDir
  159.  EndIf
  160.  IncrementString [String1]
  161.  GoTo CheckNextDrive
  162.  :ExitGetTempDir
  163. ;; ClearScreen
  164. ;; UpdateWindow
  165.  If [TempDriveLetter] = BlankString
  166.    Dialog @xy(Center,Center) UseHeader "Disk Space Error"
  167.     .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
  168.     .LSpace in order to successfully install!
  169.    EndDialog
  170.    SoLong
  171.  Else
  172.    [TempDirectory] := [TempDriveLetter]:\ALGUL
  173.    CreateDirectoryIfNecessary [TempDirectory]
  174.    Delay 2000
  175.    ;;ClearScreen
  176.    ;;UpdateWindow
  177.  EndIf
  178.   SetMouseCursor Wait
  179.   CopyFiles from [InstallationDirectory] to [TempDirectory] Quietly
  180.     ALI.BMP
  181.     ALGUL.INF
  182.     WIN31UL.EXE
  183.   EndCopyFiles
  184.   SetMouseCursor Wait
  185.   If FileExists [WindowsSystemDirectory]\OEM5.INF
  186.   SetMouseCursor Wait
  187.      DeleteFiles from [WindowsSystemDirectory] Quietly
  188.        OEM5.INF
  189.      EndDeleteFiles
  190.   EndIf
  191.   SetMouseCursor Wait
  192.   CopyFiles from [InstallationDirectory] to [WindowsSystemDirectory] Quietly
  193.     OEMALG.ALI
  194.   EndCopyFiles
  195.   If FileExists [WindowsSystemDirectory]\OEMALG.INF
  196.   SetMouseCursor Wait
  197.      DeleteFiles from [WindowsSystemDirectory] Quietly
  198.        OEMALG.INF
  199.      EndDeleteFiles
  200.      RenameFile [WindowsSystemDirectory]\OEMALG.ALI to OEMALG.INF
  201.   else
  202.   SetMouseCursor Wait
  203.      RenameFile [WindowsSystemDirectory]\OEMALG.ALI to OEMALG.INF
  204.   EndIf
  205.   ClearScreen
  206.   TextBox @xy(0,0)
  207.   
  208.     THANK YOU FOR PURCHASING.. 
  209.     [ProductName].  
  210.   
  211.   EndTextBox
  212.   UpdateWindow
  213. EndProcedure
  214.   
  215. Do SetupInstalit
  216. ;;Do PrepareSystemReport
  217.  
  218. If [CommandLine1] = -ReplaceFiles
  219.   SetReplacementInquiry Off
  220. EndIf
  221. If [CommandLine2] = -ReplaceFiles
  222.   SetReplacementInquiry Off
  223. EndIf
  224. If [CommandLine3] = -ReplaceFiles
  225.   SetReplacementInquiry Off
  226. EndIf
  227.  
  228. If [InquireAboutSystemFileLocation] = NoCharacter
  229.   If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
  230.     NoSysFileConfirmation
  231.   EndIf
  232. EndIf
  233.  
  234. If [AskBeforeFileReplacement] = NoCharacter
  235.   SetReplacementInquiry Off
  236. EndIf
  237.  
  238. ;;:Again
  239. ClearScreen
  240. TextBox @xy(0,0)
  241.   
  242.   THANK YOU FOR PURCHASING.. 
  243.   [ProductName].  
  244.   
  245. EndTextBox
  246. GetMenuChoice @xy(Center,10) UseHeader "MAIN MENU"
  247.   1024x768 256 Colors(L Font)
  248.   1024x768 256 Colors(S Font)
  249.   1024x768 16 Colors
  250.   800x600 256 Colors
  251.   800x600 16 Colors
  252.   640x480 256 Colors
  253.   ;;640x400  256 Colors
  254.   800x600 64K Colors
  255.   640x480 64K Colors
  256.   640x480 16M Colors
  257.   1280x1024 16 Colors
  258.   ;;1280x1024 256 Colors(2 MB)
  259.   ;;1600x1200 16 Colors
  260. EndGetMenuChoice
  261.  
  262. ClearScreen
  263. TextBox @xy(0,0)
  264.   
  265.   THANK YOU FOR PURCHASING.. 
  266.   [ProductName].  
  267.   
  268. EndTextBox
  269.  
  270. InCase choice is
  271.   =1:  Do ALI1KLNI
  272.   =2:  Do ALI1KSNI
  273. ;;  =3:  Do ALI1KLI
  274. ;;  =4:  Do ALI1KSI
  275.   =3:  Do ALI1K16
  276.   =4:  Do ALI8
  277.   =5:  Do ALI816
  278.   =6:  Do ALI6
  279. ;;=6:  Do ALI4
  280.   =7:  Do ALI864K
  281.   =8: Do ALI664K
  282.   =9: Do ALI16M
  283.   =10: Do ALI1280
  284. ;;  =11: Do ALI12808
  285.   ;;=10:  Do ALI1600
  286.        ;;GoTo Continue
  287. EndInCase
  288.  
  289. ;;ChangeDirectoryTo [InstallationDirectory]
  290. ;;Run C:\ALI\PKUNZIP.EXE -o C:\ALI\[String1] NoPrompt
  291. Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack
  292.     Would you like to RESTART WINDOWS ?
  293.     Choose YES to activate the change you made!
  294.     Or choose NO to keep unchanged and exit to
  295.     windows!
  296. EndDialog
  297. If [YesOrNo1] = Y
  298.   Do SetUp
  299.   ReBoot Windows
  300. else
  301.   SoLong Quietly
  302. EndIf
  303.  
  304. Procedure SetUp
  305. [Installed] := YesCharacter
  306. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  307.  InSection [boot]
  308.   AddOrChangeLineWith (386grabber=,,) as "386grabber=[String1]" at Beginning
  309.   AddOrChangeLineWith (oemfonts.fon=,,oem) as "oemfonts.fon=[String2]" at Beginning
  310.   AddOrChangeLineWith (286grabber=,,) as "286grabber=[String3]" at Beginning
  311.   AddOrChangeLineWith (fixedfon.fon=,,) as "fixedfon.fon=[String4]" at Beginning
  312.   AddOrChangeLineWith (fonts.fon=,,sys) as "fonts.fon=[String5]" at Beginning
  313.   AddOrChangeLineWith (display.drv=,,.drv) as "display.drv=[String6]" at Beginning
  314.  InSection [boot.description]
  315.   AddOrChangeLineWith (aspect=,,) as "aspect=[String7]" at Beginning
  316.   AddOrChangeLineWith (display.drv=,,) as "display.drv=[String8]" at Beginning
  317.  InSection [386Enh]
  318.   AddOrChangeLineWith (display=,,) as "display=[String9]" at Beginning
  319. EndModifyTextFile
  320. If [String6] = avga800.drv
  321. else
  322. If [String6] = avga1024.drv
  323. else
  324.  If [String6] = al16M.DRV
  325.   else
  326.    If [String6] = avga1280.drv
  327.    else
  328.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  329.      If [String6] Contains v631p.drv
  330.        [String13] := LineWith ([,v631P.drv,])
  331.        [Number1] := LineNumberWith ([,v631P.drv,])
  332.      else
  333.      If [String6] Contains v631P.drv
  334.        [String13] := LineWith ([,v631P.drv,])
  335.        [Number1] := LineNumberWith ([,v631P.drv,])
  336.      else
  337.        If [String6] Contains al3164p.drv
  338.          [String13] := LineWith ([,al3164p.drv,])
  339.          [Number1] := LineNumberWith ([,al3164p.drv,])
  340.        else
  341.          If [String6] Contains v631f8s.drv
  342.             [String13] := LineWith ([,v631f8s.drv,])
  343.             [Number1] := LineNumberWith ([,v631f8s.drv,])
  344.          Endif
  345.        EndIf
  346.        EndIf
  347.      EndIf
  348.      If [String13] = BlankString
  349.        AppendFile [WindowsDirectory]\SYSTEM.INI
  350.  
  351.          [[String6]]
  352.          [String10]
  353.          [String11]
  354.          [String12]
  355.        EndAppendFile
  356.      else
  357.        If [String13] Contains [String6]
  358.        IncrementNumber [Number1]
  359.     :Check
  360.        ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  361.        [String13] := Line [Number1]
  362.        If [String13] = BlankString
  363.          ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  364.            InSection [[String6]]
  365.              InsertAtLine 1 [String10]
  366.              InsertAtLine 2 [String11]
  367.              InsertAtLine 3 [String12]
  368.          EndModifyTextFile
  369.        else
  370.          If [String13] Contains [
  371.            ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  372.              InSection [[String6]]
  373.                InsertAtLine 1 [String10]
  374.                InsertAtLine 2 [String11]
  375.                InsertAtLine 3 [String12]
  376.                InsertAtLine 4
  377.            EndModifyTextFile
  378.          else
  379.            ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  380.              DeleteLine [Number1]
  381.            EndModifyTextFile
  382.            GoTo Check
  383.          EndIf
  384.        EndIf
  385.      EndIf
  386.    EndIf
  387.  EndIf
  388. EndIf
  389. EndIf
  390. EndIf
  391. EndProcedure
  392. ;;:Continue
  393. ;;GoTo Again
  394.  
  395. Procedure ALI1KLNI
  396.  Do Same
  397.  [String2] := 8514oem.fon
  398.  [String4] := 8514fix.fon
  399.  [String5] := 8514sys.fon
  400.  [String7] := 100,120,120
  401.  [String8] := EXPRESS PCI,1024x768 256C(L Font)
  402.  [String11] := FontSize=large
  403.  [String12] := WidthXHeight=1024x768
  404. EndProcedure
  405.  
  406. Procedure ALI1KSNI
  407.  Do Same
  408.  Do Same1
  409.  [String7] := 100,96,96
  410.  [String8] := EXPRESS PCI,1024x768 256C(S Font)
  411.  [String11] := FontSize=small
  412.  [String12] := WidthXHeight=1024x768
  413. EndProcedure
  414.  
  415. Procedure ALI1KLI
  416.  Do Same
  417.  [String2] := 8514oem.fon
  418.  [String4] := 8514fix.fon
  419.  [String5] := 8514sys.fon
  420.  [String6] := v631p.drv
  421.  [String7] := 100,120,120
  422.  [String8] := EXPRESS PCI,1024x768 256C(L Font Interlace)
  423.  [String10] := EnableHwCursor=0
  424.  [String11] := FontSize=large
  425.  [String12] := WidthXHeight=1024x768
  426. EndProcedure
  427.  
  428. Procedure ALI1KSI
  429.  Do Same
  430.  Do Same1
  431.  [String6] := v631P.drv
  432.  [String7] := 100,96,96
  433.  [String8] := EXPRESS PCI,1024x768 256C(S Font Interlace)
  434.  [String10] := EnableHwCursor=0
  435.  [String11] := FontSize=small
  436.  [String12] := WidthXHeight=1024x768
  437. EndProcedure
  438.  
  439. Procedure ALI1K16
  440.  Do Same
  441.  Do Same1
  442.  [String6] := avga1024.drv
  443.  [String7] := 100,96,96
  444.  [String8] := EXPRESS PCI, 1024x768 16C
  445. EndProcedure
  446.  
  447. Procedure ALI8
  448.  Do Same
  449.  Do Same1
  450.  [String6] := v631P.drv
  451.  [String7] := 100,96,96
  452.  [String8] := EXPRESS PCI, 800x600 256C
  453.  [String10] := EnableHwCursor=0
  454.  [String11] := FontSize=small
  455.  [String12] := WidthXHeight=800x600
  456. EndProcedure
  457.  
  458. Procedure ALI6
  459.  Do Same
  460.  Do Same1
  461.  [String6] := v631P.drv
  462.  [String7] := 100,96,96
  463.  [String8] := EXPRESS PCI, 640x480 256C
  464.  [String10] := EnableHwCursor=0
  465.  [String11] := FontSize=small
  466.  [String12] := WidthXHeight=640x480
  467. EndProcedure
  468.  
  469. Procedure ALI816
  470.  Do Same
  471.  Do Same1
  472.  [String6] := avga800.drv
  473.  [String7] := 100,96,96
  474.  [String8] := EXPRESS PCI, 800x600 16C
  475. EndProcedure
  476.  
  477. Procedure ALI4
  478.  Do Same
  479.  Do Same1
  480.  [String7] := 100,96,96
  481.  [String8] := EXPRESS PCI, 640x400 256C
  482.  [String11] := FontSize=small
  483.  [String12] := WidthXHeight=640x400
  484. EndProcedure
  485.  
  486. Procedure ALI864K
  487.  Do Same
  488.  Do Same1
  489.  [String6] := al3164p.drv
  490.  [String7] := 100,96,96
  491.  [String8] := EXPRESS PCI, 800x600 64KC
  492.  [String10] := EnableHwCursor=0
  493.  [String11] := FontSize=small
  494.  [String12] := WidthXHeight=800x600
  495. EndProcedure
  496.  
  497. Procedure ALI664K
  498.  Do Same
  499.  Do Same1
  500.  [String6] := al3164p.drv
  501.  [String7] := 100,96,96
  502.  [String8] := EXPRESS PCI, 640x480 64KC
  503.  [String10] := EnableHwCursor=0
  504.  [String11] := FontSize=small
  505.  [String12] := WidthXHeight=640x480
  506. EndProcedure
  507.  
  508. Procedure ALI16M
  509.  Do Same
  510.  Do Same1
  511.  [String6] := al16m.DRV
  512.  [String7] := 100,96,96
  513.  [String8] := EXPRESS PCI, 640x480 16MC
  514. EndProcedure
  515.  
  516. Procedure ALI1280
  517.  Do Same
  518.  Do Same1
  519.  [String6] := avga1280.drv
  520.  [String7] := 100,120,120
  521.  [String8] := EXPRESS PCI, 1280x1024 16C
  522. EndProcedure
  523.  
  524. Procedure ALI12808
  525.  Do Same
  526.  Do Same1
  527.  [String6] := v631f8s.drv
  528.  [String7] := 100,96,96
  529.  [String8] := EXPRESS PCI,1280x1024 256C(2MB)
  530.  [String10] := EnableHwCursor=1
  531.  [String11] := FontSize=small
  532.  [String12] := WidthXHeight=1280x1024
  533. EndProcedure
  534.  
  535. Procedure ALI1600
  536.  Do Same
  537.  [String2] := 8514oem.fon
  538.  [String4] := 8514fix.fon
  539.  [String5] := 8514sys.fon
  540.  [String6] := avs1600.drv
  541.  [String9] := alvddpci.386
  542.  [String7] := 100,120,120
  543.  [String8] := EXPRESS PCI, 1600x1200 16C
  544. EndProcedure
  545.  
  546. Procedure Same
  547.  [String1] := vga.3gr
  548.  [String3] := vgacolor.2gr
  549.  [String6] := v631p.drv
  550.  [String9] := alvddpci.386
  551.  [String10] := EnableHwCursor=1
  552. EndProcedure
  553.  
  554. Procedure Same1
  555.  [String2] := vgaoem.fon
  556.  [String4] := vgafix.fon
  557.  [String5] := vgasys.fon
  558. EndProcedure
  559.  
  560. Procedure ExitInstallation
  561. ClearScreen
  562. If [Installed] = YesCharacter
  563.   Dialog ;; Final Farewell
  564.     Thanks for using [ProductName]!
  565.     After exit, Please change to your Windows
  566.     Directory and run SETUP to select the
  567.     screen resolution you want!
  568.   EndDialog
  569. else
  570.   Dialog ;; Final Farewell
  571.     Thanks for using [ProductName]!
  572.   EndDialog
  573. EndIf
  574. SoLong
  575. EndProcedure
  576.  
  577. Procedure SetupInstalit
  578.   SetCoordinatesTo 80x25
  579.   If [UseShadows] = YesCharacter
  580.     SetShadows On
  581.   else
  582.     SetShadows Off
  583.   EndIf
  584.   If [InquireAboutSystemFileLocation] = NoCharacter
  585.     NoSysFileConfirmation
  586.   EndIf
  587.   [Black] := RGB(0,0,0)
  588.   [White] := RGB(255,255,255)
  589.   ;;SetMainBorderTo     [MainBorder]
  590.   SetPopupBorderTo    [PopupBorder]
  591.   SetModifyModeTo     [ModifyMode]
  592.   ;;SetShadowAttrTo     DarkGrayOnBlack
  593.   ;;SetScreenAttrTo [White]On[Black]
  594.   ;;SetPopupAttrTo      [PopupColors]
  595.   SetAttentionAttrTo  [AttentionColors]
  596.   ;;SetTopLineAttrTo WhiteOnBrown
  597.   SetTopLineTo        [TopLine]
  598.   ;;SetExitMessageTo "Installation complete!"
  599.   ;;SetAllowExit
  600. EndProcedure
  601.