home *** CD-ROM | disk | FTP | other *** search
/ Meet MediaBand / meetmediaband.bin / install.inf < prev    next >
Text File  |  1995-07-13  |  3KB  |  104 lines
  1. DefineVariables
  2.   Text    [ProductName] := MediaBand            
  3.   Text    [DefaultInstallDir] := C:\MEDIABND
  4.   Text    [IconCmdLine] := Mediabnd.exe
  5.   Text    [IconFile] := mediabnd.ico
  6. EndDefineVariables
  7.  
  8. ;; Setup screen
  9. SetDefaultBitmap off
  10. ShowWindow Maximized
  11.  
  12. Do MyDialog
  13.  
  14. Procedure MyDialog
  15.  
  16. [Number1] := 0
  17.  
  18. ;; Product Introduction Screen
  19. DialogBox 250 75 UseHeader "MediaBand Installation" Returns [Number1]
  20.   CText @xy(0,10) 250 50 "This installation will copy MediaBand to your hard drive."
  21.   CText @xy(0,20) 250 50 "It will also install WinG and QuickTime for Windows."
  22.   CText @xy(0,30) 250 50 "When installation is complete, your system will be restarted."
  23.   DefPushButton @xy(60, 50) 40 15 "Proceed" 1
  24.   DefPushButton @xy(150, 50) 40 15 "Cancel" 2
  25. EndDialogBox
  26.  
  27. If [Number1] = 2
  28.   Exit
  29. Endif
  30.  
  31. Dialog [DefaultInstallDir] 43
  32.   PLEASE CHOOSE YOUR INSTALLATION DIRECTORY
  33.   ON A FIXED DRIVE
  34.  
  35.   Make your choice and press <Enter> or click on OK
  36. EndDialog
  37.  
  38. CopyFiles from [InstallFromDrive]:\ to [DefaultInstallDir]
  39.   Mediabnd.exe
  40.   Mediabnd.ico
  41.   Mediabnd.ini
  42.   Lingo.ini
  43.   Fileio.dll  
  44.   LabelDrv.dll
  45.   Huh!.wri
  46. EndCopyFiles
  47.  
  48. SetFileAttrTo 20 for [DefaultInstallDir]\Mediabnd.exe
  49. SetFileAttrTo 20 for [DefaultInstallDir]\Mediabnd.ico
  50. SetFileAttrTo 20 for [DefaultInstallDir]\Mediabnd.ini
  51. SetFileAttrTo 20 for [DefaultInstallDir]\Lingo.ini
  52. SetFileAttrTo 20 for [DefaultInstallDir]\Fileio.dll
  53. SetFileAttrTo 20 for [DefaultInstallDir]\LabelDrv.dll
  54. SetFileAttrTo 20 for [DefaultInstallDir]\Huh!.wri
  55.  
  56. Dialog [WindowsDirectory] 43
  57.   PLEASE CHOOSE YOUR WINDOWS DIRECTORY
  58.  
  59.   Make your choice and press <Enter> or click on OK
  60. EndDialog
  61.  
  62. CopyFiles from [InstallFromDrive]:\WING to [WindowsDirectory]\SYSTEM
  63.   dva.386
  64.   wing.dll
  65.   wing32.dll
  66.   wingde.dll
  67.   wingdib.drv
  68.   wingpal.wnd
  69. EndCopyFiles
  70.  
  71. SetFileAttrTo 20 for [WindowsDirectory]\SYSTEM\dva.386
  72. SetFileAttrTo 20 for [WindowsDirectory]\SYSTEM\wing.dll
  73. SetFileAttrTo 20 for [WindowsDirectory]\SYSTEM\wing32.dll
  74. SetFileAttrTo 20 for [WindowsDirectory]\SYSTEM\wingde.dll
  75. SetFileAttrTo 20 for [WindowsDirectory]\SYSTEM\wingdib.drv
  76. SetFileAttrTo 20 for [WindowsDirectory]\SYSTEM\wingpal.wnd
  77.  
  78. If FileExists [DefaultInstallDir]\CANTER.GRP
  79. else
  80. ;; Create Program Group and Icon
  81.   ProgramManagerDDe
  82.     CreateGroup(MediaBand,[DefaultInstallDir]\MEDIABND.GRP)
  83.     AddItem([DefaultInstallDir]\mediabnd.exe,[ProductName],[DefaultInstallDir]\mediabnd.ico)
  84.     AddItem([DefaultInstallDir]\Huh!.wri,HUH!.WRI)
  85.   EndProgramManagerDDE
  86. EndIf
  87.  
  88. SetModifyModeTo Modify
  89. NoSysFileConfirmation
  90.  
  91. ;;Change INI files
  92. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoInquiry, Quietly
  93. InSection [386Enh]
  94.   AddOrChangeLineWith (Device,=,DVA.386) as "Device=DVA.386" at Beginning
  95. EndModifyTextFile
  96.  
  97. Run [InstallFromDrive]:\QT2\SETUP.EXE
  98.  
  99. Reboot Windows
  100.  
  101. EndProcedure
  102.  
  103. EndScript
  104.