home *** CD-ROM | disk | FTP | other *** search
/ 3D Madness! Companion CD / 3DMADNESS.iso / windemos / vreality / vsoftcd.inf < prev   
INI File  |  1994-07-05  |  6KB  |  172 lines

  1. SetDefaultBitmap Off
  2. SetTopLineTo INSTALLING VISUAL REALITY CD DEMO (Press Esc to exit)
  3. PopUp Welcome to Visual Reality's CD Tour
  4.  
  5. SetMouseCursor Wait
  6. CopyFiles from [InstallFromDrive]:\WINDEMOS\VREALITY to ShadowDirectory Quietly
  7.       VRLOGO.BMP
  8. EndCopyFiles
  9. SetMouseCursor Arrow
  10.  
  11.   LoadBitMap 1 ShadowDirectory\VRLOGO.BMP   @xy(0,0) 
  12.   ShowBitMap 1 ShadowDirectory\VRLOGO.BMP   @xy(0,0) 
  13.   ShowWindow Maximized
  14.  
  15. ;; ******************System Config Evaluation *************************
  16. ;; Check Drives available
  17. If DriveIsPresent C
  18.    [YesOrNo1] := Y 
  19.    [Number1] := FreeSpaceOnDrive C
  20. Else
  21.    [YesOrNo1] := N 
  22. EndIf
  23. If DriveIsPresent D
  24.    If FreeSpaceOnDrive D > 0
  25.       [YesOrNo2] := Y
  26.       [Number2] := FreeSpaceOnDrive D
  27.    EndIf
  28. Else
  29.    [YesOrNo2] := N
  30. EndIf
  31.  
  32. ;; Check which drive is the CD ROM
  33. [String1] := [InstallFromDrive]
  34.  
  35. Dialog PressAKey UseHeader "VISUAL REALITY CD DEMO" 
  36.    Your system configuration is as follows:
  37.         Fixed Drive C available:   [YesOrNo1]
  38.         Fixed Drive D available:   [YesOrNo2]
  39.         CD ROM Drive is:              [String1]
  40. EndDialog
  41.  
  42.  
  43. ;; ********************Selective Install menu ****************************
  44. [Point1]
  45.  
  46. [InstallationDirectory] := c:\vsoft
  47. GetMenuChoice
  48.    Install No Sound Demo
  49.      ;Select here for Windows systems without MCI audio capability 
  50.    Install Audio files onto your system hard drive
  51.      ;Select here for optimum performance
  52.    Install and use Audio from the CD ROM
  53.      ;Select here for high speed CD ROMS or to use minimal installation
  54.    Cancel Installation
  55.      ;Select here to do nothing and exit
  56. EndGetMenuChoice
  57.  
  58. InCase Choice is
  59.    = 1: DetermineInstallationDrive 1000000 RequireFixed
  60.           [InstallationDirectory] := InstallationDrive:\vsoft
  61.           CreateDirectoryIfNecessary [InstallationDirectory]
  62.  
  63. ;;        ***************************************** 
  64.           SetMouseCursor Wait
  65.           CopyFiles from [InstallFromDrive]:\vsoft to  [InstallationDirectory] Quietly
  66.               *.iw
  67.               *.pth
  68.           EndCopyFiles  
  69.           SetMouseCursor Arrow
  70. ;;        ***************************************** 
  71.           [String9] := vsoft01.iw
  72.           Do WIN_mods 
  73.  
  74.    = 2: DetermineInstallationDrive 15000000 RequireFixed
  75.           [InstallationDirectory] := InstallationDrive:\vsoft
  76.           CreateDirectoryIfNecessary [InstallationDirectory]
  77.           CreateDirectoryIfNecessary [InstallationDirectory]\wav
  78. ;;        ***************************************** 
  79.           SetMouseCursor Wait
  80.           CopyFiles from [InstallFromDrive]:\vsoft\wav to  [InstallationDirectory]\wav Quietly
  81.               *.wav
  82.           EndCopyFiles  
  83.           CopyFiles from [InstallFromDrive]:\vsoft to  [InstallationDirectory] Quietly
  84.               *.iw
  85.               *.pth
  86.           EndCopyFiles
  87.           SetMouseCursor Arrow
  88. ;;        ***************************************** 
  89.           If [InstallationDirectory] = c:\vsoft
  90.                 [String9] := vsoft02.iw
  91.           EndIf
  92.           If [InstallationDirectory] = d:\vsoft
  93.                 [String9] := vsoft03.iw
  94.           EndIf 
  95.           Do WIN_mods 
  96.  
  97.    = 3: DetermineInstallationDrive 1000000 RequireFixed
  98.           [InstallationDirectory] := InstallationDrive:\vsoft
  99.           CreateDirectoryIfNecessary [InstallationDirectory]
  100. ;;        ***************************************** 
  101.           SetMouseCursor Wait
  102.           CopyFiles from [InstallFromDrive]:\vsoft to  [InstallationDirectory] Quietly
  103.               *.iw
  104.               *.pth
  105.           EndCopyFiles
  106.           SetMouseCursor Arrow
  107. ;;        ***************************************** 
  108.           [String9] := vsoft.iw
  109.           Do WIN_mods 
  110.  
  111.    = 4: Do ByeNow
  112. EndInCase
  113.  
  114. Do ByeNow
  115.  
  116.  
  117. ;; *******************************************************************************
  118. Procedure WIN_mods 
  119.     BuildProgramGroup "Visual Reality CD Demo" VREALITY.GRP {Replace}
  120.        [InstallFromDrive]:\vsoft\hscrt.exe  [InstallFromDrive]:\vsoft\[String9] "Visual Reality CD Demo"
  121.     EndBuildProgramGroup
  122.     SetMouseCursor Wait
  123.     CopyFiles from [InstallFromDrive]:\vsoft to [WindowsDirectory]\system Quietly
  124.        mciaap.drv
  125.        aaplay.dll
  126.        aavga.dll
  127.     EndCopyFiles
  128.     SetMouseCursor Arrow  
  129.  
  130.     SetModifyModeTo Modify
  131.  
  132.     ModifyTextFile [WindowsDirectory]\win.ini Quietly NoBackup
  133.        InSection [MCI extensions]
  134.        AddOrChangeLineWith (flc,=,) as "flc=animation1" at end
  135.        AddOrChangeLineWith (fli,=,) as  "fli=animation1" at end
  136.     EndModifyTextFile  
  137.  
  138.     ModifyTextFile [WindowsDirectory]\system.ini Quietly NoBackup
  139.        InSection [MCI]
  140.        AddOrChangeLineWith (Animation1,=,) as "Animation1=mciaap.drv" at end
  141.     EndModifyTextFile  
  142.  
  143.     ModifyTextFile [WindowsDirectory]\win.ini Quietly NoBackup
  144.        AddOrChangeLineWith ([IconAuthor],,) as "[IconAuthor]" at end
  145.     EndModifyTextFile
  146.  
  147.     ModifyTextFile [WindowsDirectory]\win.ini Quietly NoBackup
  148.       InSection [IconAuthor]
  149.       AddOrChangeLineWith (BreakKey,=,) as "BreakKey=Esc" at end
  150.     EndModifyTextFile  
  151.  
  152.     SetCompletionStatusTo Finished
  153. EndProcedure
  154.  
  155. Procedure ByeNow
  156.    Dialog PressAKey UseHeader "INSTALLATION COMPLETE"
  157.  
  158.       Thank You.
  159.  
  160.    EndDialog   
  161.  
  162.    Dialog PressAKey UseHeader "FOR INFORMATION ABOUT VISUAL REALITY"  
  163.  
  164.      Contact Visual Software     
  165.  
  166.    EndDialog
  167.  
  168.    SoLong Quietly
  169. EndProcedure
  170.  
  171. endscript
  172.