home *** CD-ROM | disk | FTP | other *** search
/ Software One-Stop 3 / BOOTCDROM.iso / install / alg2302 / algul95.inf < prev    next >
Encoding:
Text File  |  1995-08-17  |  7.8 KB  |  287 lines
  1. DefineVariables
  2. Text [CompanyName] := AVANCE LOGIC, INC.
  3. Text [ProductName] := Avance Logic,Inc. ALG 2302/1301
  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 2302/1301 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.  
  70. Procedure Logo
  71. LoadBitMap 1 [InstallationDirectory]\[Bitmap1] @xy(Center,2)
  72. ShowBitMap 1
  73. EndProcedure
  74.  
  75. Do InstallSupportFiles
  76.  
  77. Procedure InstallSupportFiles
  78.        If DriveIsRemoveable [InstallFromDrive]
  79.          [InstallationDirectory] := [InstallFromDrive]:
  80.          SetMouseCursor Wait
  81.          Do Logo
  82.          Do Install
  83.          SetMouseCursor Arrow
  84.          ;;Do InstallProgramGroup
  85.        Else
  86.            [InstallationDirectory] := [InstallFromDirectory]
  87.            If [InstallFromDirectory] Contains \ALGUL02\
  88.              If FileExists [InstallFromDirectory]\al8p02.drv
  89.                 Dialog @xy(Center,Center) WhiteOnBlack
  90.                   Please copy windows drivers into another
  91.                   directory except [InstallFromDirectory]
  92.                 EndDialog
  93.                 SoLong Quietly
  94.              Else
  95.                Do Logo
  96.              EndIf
  97.            Else
  98.              SetMouseCursor Wait
  99.              Do Logo
  100.              Do Install
  101.              SetMouseCursor Wait
  102.              ;;Do InstallProgramGroup
  103.            EndIf
  104.  
  105.         EndIf
  106. EndProcedure
  107.  
  108. Procedure InstallProgramGroup
  109.     Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack UseHeader "INSTALL for Windows Program Manager Group"
  110.       Would you like to place INSTALL in a Windows program group?
  111.    EndDialog
  112.    If [YesOrNo1] = Y
  113.       BuildProgramGroup "Avance Logic 2302/1301-Resolutions" ALGUL95.GRP
  114.         [TempDirectory]\ALPLAYER.EXE
  115.       EndBuildProgramGroup
  116.    EndIf
  117. EndProcedure
  118.  
  119.  
  120. Procedure Install
  121. [String1] := C
  122. [TempDriveLetter] := BlankString
  123. [Number1] := [TempDirSpaceRequired]
  124.  :CheckNextDrive
  125.  If [String1] > B
  126.   If DriveIsPresent [String1]
  127.    If DriveIsRemoveable [String1]
  128.     ;;do nothing
  129.    Else
  130.     If FreeSpaceOnDrive [String1] > [Number1]
  131.      [TempDriveLetter] := [String1]
  132.      [Number1] := FreeSpaceOnDrive [String1]
  133.  
  134.     Else
  135.        :NextDrive
  136.          IncrementString [String1]
  137.          If DriveIsCDROM [String1]
  138.            GoTo NextDrive
  139.          EndIf
  140.          If DriveIsRemote [String1]
  141.            GoTo NextDrive
  142.          EndIf
  143.       GoTo CheckNextDrive
  144.  
  145.     EndIf
  146.    EndIf
  147.   EndIf
  148.  EndIf
  149.  If [String1] = Z
  150.   GoTo ExitGetTempDir
  151.  EndIf
  152.  :ExitGetTempDir
  153. ;; ClearScreen
  154. ;; UpdateWindow
  155.  If [TempDriveLetter] = BlankString
  156.    Dialog @xy(Center,Center) UseHeader "Disk Space Error"
  157.     .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
  158.     .LSpace in order to successfully install!
  159.    EndDialog
  160.    SoLong
  161.  Else
  162.    [TempDirectory] := [TempDriveLetter]:\ALGUL95
  163.    CreateDirectoryIfNecessary [TempDirectory]
  164.    Delay 2000
  165.    ;;ClearScreen
  166.    ;;UpdateWindow
  167.  EndIf
  168.  
  169.   SetReplacementInquiry off
  170.   SetMouseCursor Wait
  171.  TextBox @xy(Center,Center)
  172.    Copying Installation Files ...
  173.  EndTextBox
  174.  ;; QueAllFiles to [WindowsSystemDirectory]
  175.   QueFileGroup 1 to [WindowsSystemDirectory]
  176.   GetQuedFiles Quietly
  177.  
  178.   QueFileGroup 2 to [WindowsDirectory]\INF
  179.   GetQuedFiles Quietly
  180.  
  181.   QueFileGroup 3 to [WindowsSystemDirectory]
  182.   GetQuedFiles Quietly
  183.  
  184.   QueFileGroup 3 to [WindowsDirectory]\SYSBCKUP
  185.   GetQuedFiles Quietly
  186.  
  187.   QueFileGroup 4 to C:\DOS
  188.   GetQuedFiles Quietly
  189.  
  190.   QueFileGroup 5 to C:\ALGUL95
  191.   GetQuedFiles Quietly
  192.  
  193.   SetMouseCursor Wait
  194.   ClearScreen
  195.   UpdateWindow
  196. EndProcedure
  197.  
  198.  
  199.   If FileExists [WindowsDirectory]\INF\OEM0.INF
  200.       ExamineTextFile [WindowsDirectory]\INF\OEM0.INF
  201.        [Number1] := LineNumberWith ([,AVANCE,])
  202.    If [Number1] <> 0
  203.      DeleteFiles from [WindowsDirectory]\INF Quietly
  204.        OEM0.INF
  205.      EndDeleteFiles
  206.    EndIf
  207.   EndIf
  208.  
  209.   If FileExists [WindowsDirectory]\INF\OEM1.INF
  210.       ExamineTextFile [WindowsDirectory]\INF\OEM1.INF
  211.        [Number1] := LineNumberWith ([,AVANCE,])
  212.    If [Number1] <> 0
  213.      DeleteFiles from [WindowsDirectory]\INF Quietly
  214.        OEM1.INF
  215.      EndDeleteFiles
  216.    EndIf
  217.   EndIf
  218.  
  219.   If FileExists [WindowsDirectory]\INF\OEM2.INF
  220.       ExamineTextFile [WindowsDirectory]\INF\OEM2.INF
  221.        [Number1] := LineNumberWith ([,AVANCE,])
  222.    If [Number1] <> 0
  223.      DeleteFiles from [WindowsDirectory]\INF Quietly
  224.        OEM2.INF
  225.      EndDeleteFiles
  226.    EndIf
  227.   EndIf
  228.  
  229.   If FileExists [WindowsDirectory]\INF\OEM3.INF
  230.       ExamineTextFile [WindowsDirectory]\INF\OEM3.INF
  231.        [Number1] := LineNumberWith ([,AVANCE,])
  232.    If [Number1] <> 0
  233.      DeleteFiles from [WindowsDirectory]\INF Quietly
  234.        OEM3.INF
  235.      EndDeleteFiles
  236.    EndIf
  237.   EndIf
  238.  
  239.   If FileExists [WindowsDirectory]\INF\OEM4.INF
  240.       ExamineTextFile [WindowsDirectory]\INF\OEM4.INF
  241.        [Number1] := LineNumberWith ([,AVANCE,])
  242.    If [Number1] <> 0
  243.      DeleteFiles from [WindowsDirectory]\INF Quietly
  244.        OEM4.INF
  245.      EndDeleteFiles
  246.    EndIf
  247.   EndIf
  248.  
  249.   Do DCI
  250.   Run C:\DOS\ASCAN.EXE NoPrompt
  251.  
  252. ;;  ExamineTextFile C:\AUTOEXEC.BAT
  253. ;;       [Number1] := LineNumberWith ([,ASCAN,])
  254.  
  255. ;;If [Number1] = 0
  256.  
  257. SetModifyModeTo Modify
  258.  
  259. ;;ModifyTextFile C:\AUTOEXEC.BAT Quietly NoInquiry NoBackup
  260.  ;; AddOrChangeLineWith (,ASCAN,) as "C:\DOS\ASCAN /C" at Beginning
  261. ;;EndModifyTextFile
  262.  
  263. ;;EndIf
  264.  
  265. ModifyAutoexecBat Quietly NoInquiry NoBackup
  266.   AddOrChangeLineWith (,ASCAN,) as "C:\DOS\ASCAN /C" at Beginning
  267. EndModifyAutoexecBat
  268.  
  269. SoLong Quietly
  270.  
  271. Procedure DCI
  272.      
  273.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  274.        [Number1] := LineNumberWith ([,ALIDCI,])
  275.  
  276. If [Number1] = 0
  277.  
  278. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  279.  InSection [drivers] 
  280.   AddOrChangeLineWith (DCI=,,) as "DCI=ALIDCI" at Beginning
  281. EndModifyTextFile
  282. EndIf
  283.  
  284. EndProcedure     
  285.  
  286.  
  287.