;;************************************************************************
;; Copyright (c) 1993, 1994, 1995. Media Computer Technologies, Inc.
;; All Rights Reserved.
;; This source code and related information are copyrighted
;; proprietory technology of Media Computer Technologies Inc.
;; ("MCTI") released under a specific license for its
;; confidentiality and protection as MCTI's trade secret.
;;
;; Unauthorized disclosure, exposure, duplication, copying,
;; distribution or any other use then that specifically
;; authorized by MCTI is strictly prohibited.
;;
;; Filename: televid.inf
;;
;; Description:
;; This is a installation program for TeleMPEG software.
;;
;; C H A N G E R E C O R D
;;
;; Date Initials Description
;; -------- -------- --------------------------------------------------
;; 09/16/95 --- Updated for release 2.20
;;
;;************************************************************************
;;----------------------
;; OEM Defined string
;;----------------------
DefineVariables
Logical [TeleTune] := Y
Text [CompanyName] := TeleVideo Systems, Inc.
Text [CompanyLogoFile] := televid.bmp
Text [ProductName1] := TeleMPEG Card
Text [ProductName2] := TeleMPEG and TeleTune Cards
Text [SoftwareProdName1] := TeleMPEG Software
Text [SoftwareProdName2] := TeleMPEG and TeleTune Software
Text [InstallDesc1] := MPEG Playback with TV output
Text [InstallDesc2] := MPEG Playback with TV output, Live TV
Text [GroupName] := TeleVideo Applications
;;MPEG Driver
Text [MVP131DLL] := MVP131.DLL
Text [MVP131IniFileName] := MVP131.INI
Text [MVP131TTIniFileName] := MVP131TT.INI
Text [MVP131DefFileName] := MVP131DF.INI
Text [MVPBINIniFileName] := MVP131.BIN
Text [MVPBINDefFileName] := MVP131DF.BIN
;; Video Application
Text [VMPExeFileName] := MVPAPP.EXE
Text [AudioExeFileName] := MCTAUDIO.EXE
Directory [MVPInstalDirPath] := \TELEVID\MPEG
;; MPEG Remote Application
Text [MPEGExeFileName] := MPEGRMT.EXE
Text [MPEGDllFileName] := MCTMPEG.DLL
Text [MPEGIconName] := "MPEG Remote"
;; Tuner Remote Application
Text [TVRemoteExeFileName] := REMOTE.EXE
Text [TunerExeFileName] := TUNERAPP.EXE
Text [TVRemoteIconName] := "TV Remote"
;; Message dispatcher application
Text [MsgDispExeFileName] := MSGDISP.EXE
Text [MsgDispDataFileName] := MSGDISP.DTA
Text [MsgDispIconName] := "Message Dispatcher"
;; MPEG MCI Drivers
Text [MCIDriverName1] := reelmagic
Text [MCIDriverName2] := MpegVideo
Text [MCIDriverName3] := CDIVideo
Text [MCIDriver] := MCIMPEG.DRV
Text [MCIIniFile] := RZMPEG.INI
Text [MCIuCode1] := CS4920.BIN
Text [MCIuCode2] := DRAM450.BIN
Text [MCICDAlloc] := CDIDLL.EXE
Text [OldMCICDAlloc] := CDALLOC.EXE
Text [DOSInitProg] := HWINIT.EXE
Text [MCIDigitalV] := DIGITALV.MCI
;; Media Player
Text [MediaPlayerFile1] := MPLAYER.EXE
Text [MediaPlayerFile2] := MPLAYER.REG
Text [MediaPlayerFile3] := MCIOLE.DLL
Text [MediaPlayerFile4] := MMSYSTEM.DLL
Text [MediaPlayerFile5] := MSVIDEO.DLL
;; AVI (Video For Windows) Drivers
Text [CaptureDriver] := MCTCAP.DRV
Text [CodecDriver] := MCTCOD.DRV
Number [VideoFormatID] := 255
Number [DrawFormatID] := 3
Text [CaptureDrvDesc] := TeleTune AVI Capture Driver
Text [CodecDrvDesc] := TeleTune AVI Codec/Draw Driver
;; Zipped files
Text [ZippedBatFileName] := TELEZIP.BAT
Text [R0ZippedExeFileName] := TELEMPEG.EXE
Number [R0ZipSize] := 450000
Text [MCTZippedExeFileName] := TELEAPP.EXE
Number [MCTZipSize] := 800000
;;-----------------------------------------
;; DO NOT CHANGE SCRIPT BEYOUND THIS LINE
;;-----------------------------------------
Number [HighLight] := 1
Number [MPEGSize]
Number [MPEGIONo] := 1
Number [INTNo] := 2
Number [MCTIONo] := 1
Number [ConfigNo] := 2
Number [TVType] := 1
Number [MPEGInstalled] := 1
Number [MCTMemSize] := 1
Number [MemMode] := 0
Number [RebootFlag] := 0
Text [TitleString1] := TeleMPEG Software
Text [TitleString2] := TeleMPEG and TeleTune Software
Text [ProductName]
Text [SoftwareProdName]
Text [InstallDesc]
Text [MPEGIOIndex1] := 2C0
Text [MPEGIOIndex2] := 300
Text [MPEGIOIndex]
Text [Int1] := 9
Text [Int2] := 10
Text [Int3] := 11
Text [Int4] := 15
Text [Int]
Text [MCTIOIndex1] := B18
Text [MCTIOIndex2] := B28
Text [MCTIOData1] := B1A
Text [MCTIOData2] := B2A
Text [MCTIOIndex]
Text [MCTIOData]
Text [MemConfig]
Text [MCIDrvDesc] := TeleMPEG MCI Driver
Text [OrgFileDir]
Text [TestDLL] := HWTEST.DLL
Text [Verb]
Directory [AppWorkDirPath]
EndDefineVariables
Do SetupINSTALIT
if [TeleTune] = Y
[ProductName] := [ProductName2]
[SoftwareProdName] := [SoftwareProdName2]
[InstallDesc] := [InstallDesc2]
[Verb] := are
else
[ProductName] := [ProductName1]
[SoftwareProdName] := [SoftwareProdName1]
[InstallDesc] := [InstallDesc1]
[Verb] := is
endif
Dialog WhiteOnBlue
Thanks for purchasing [ProductName]
from [CompanyName]
Please make sure that the [ProductName]
[Verb] installed properly in your system.
Refer to the Installation Guide for cabling and jumper settings.
EndDialog
[Point1]
GetMenuChoice Highlight [HighLight]
Install [SoftwareProdName]
; Install "[SoftwareProdName]",
; [InstallDesc]
Exit
; Exit installation program
EndGetMenuChoice
InCase Choice is
=1: Do MCIDRVInstall
=2: Do ByeBye
EndInCase
GoTo [Point1]
Procedure MCIDRVInstall
[HighLight] := 2
;; Find the disk space requirement for MPEG MCI Driver and Application
[MPEGSize] := SizeofFile [MCIIniFile]
[MPEGSize] := [MPEGSize] + R0ZipSize
[MPEGSize] := [MPEGSize] + MCTZipSize
;; Find the disk space requirement for DLL
[Number9] := SizeofFile [MVP131DLL] + 20480
[Number9] := [Number9] + SizeofFile VIC.DLL + 20480
[Number9] := [Number9] + 2*SizeofFile [MVPBINIniFileName]
[Number9] := [Number9] + 2*SizeofFile [MVP131TTIniFileName]
[Number9] := [Number9] + SizeofFile [MediaPlayerFile1]
[Number9] := [Number9] + SizeofFile [MediaPlayerFile2]
[Number9] := [Number9] + SizeofFile [MediaPlayerFile3]
[Number9] := [Number9] + SizeofFile [MediaPlayerFile4]
[Number9] := [Number9] + SizeofFile [MediaPlayerFile5]
[Number9] := [Number9] + SizeofFile [MCIDigitalV]
[Number9] := [Number9] + SizeofFile [MPEGDllFileName]
;; Make sure enough space is available
[Number1] := FreeSpaceOnDrive [WindowsDirectory]
if [Number1] < [Number9]
Dialog PressAKey @(center, center) UseHeader "No Disk Space"
Installation needs [Number9] bytes in the Windows drive.
Available space is [Number1] bytes.
Aborting [SoftwareProdName] Installation.
EndDialog
Exit
endif
DetermineInstallationDrive [MPEGSize] RequireFixed
DetermineInstallationDirectory InstallationDrive:[MVPInstalDirPath] [MPEGSize]
[AppWorkDirPath] := [InstallationDirectory]
;; Check hardware configuration
Do HardwareConfig
ChangeDirectoryTo [InstallationDirectory]
Dialog 2000 @(center, center) UseHeader "[SoftwareProdName] Installation"
Copying drivers and application files
One moment, please.
EndDialog
CopyFiles
[ZippedBatFileName]
[R0ZippedExeFileName]
[MCTZippedExeFileName]
[MCIIniFile]
EndCopyFiles
ChangeDirectoryTo [AppWorkDirPath]
Run [ZippedBatFileName] UseSecond Quietly NoPrompt
DeleteFiles from [AppWorkDirPath] Quietly
[ZippedBatFileName]
[R0ZippedExeFileName]
[MCTZippedExeFileName]
EndDeleteFiles
Dialog 2000 @(center, center) UseHeader "[SoftwareProdName] Installation"
Copying DLLs to window's system directory
One moment, please.
EndDialog
;; Copy *.dll files to windows
CopyFiles to [WindowsSystemDirectory]
MVP131.DLL
VIC.DLL
WIN87EM.EXE
[MPEGDllFileName]
[MediaPlayerFile3]
[MediaPlayerFile5]
[MCIDigitalV]
EndCopyFiles
if FileExists [WindowsSystemDirectory]\[MediaPlayerFile4]
else
CopyFiles to [WindowsSystemDirectory]
[MediaPlayerFile4]
EndCopyFiles
endif
Dialog 2000 @(center, center) UseHeader "[SoftwareProdName] Installation"
Copying INI files to windows directory
One moment, please.
EndDialog
if [TeleTune] = Y
CopyFiles to [WindowsDirectory]
[MVP131TTIniFileName] AS [MVP131DefFileName]
[MVPBINIniFileName] AS [MVPBINDefFileName]
[MVP131TTIniFileName] AS [MVP131IniFileName]
[MVPBINIniFileName]
[MediaPlayerFile1]
[MediaPlayerFile2]
EndCopyFiles
else
CopyFiles to [WindowsDirectory]
[MVP131IniFileName] AS [MVP131DefFileName]
[MVPBINIniFileName] AS [MVPBINDefFileName]
[MVP131IniFileName]
[MVPBINIniFileName]
[MediaPlayerFile1]
[MediaPlayerFile2]
EndCopyFiles
endif
Dialog 2000 @(center, center) UseHeader "[SoftwareProdName] Installation"
Updating INI files.
One moment, please.
EndDialog
;; Change the ConfigFile entry to MVP131DF.INI, in the file
ModifyTextFile [WindowsDirectory]\[MVP131DefFileName] NoBackup
InSection [MVP131]
AddOrChangeLineWith (Index,=,) as "Index=[MCTIOIndex]" at end
AddOrChangeLineWith (Data,=,) as "Data=[MCTIOData]" at end
;; AddOrChangeLineWith (IRQ,=,) as "IRQ=[Int]" at end
AddOrChangeLineWith (ConfigFile,=,) as "ConfigFile=[MVPBINDefFileName]" at end
EndModifyTextFile
;; Change the ConfigFile entry to MVP131.INI, in the file
ModifyTextFile [WindowsDirectory]\[MVP131IniFileName] NoBackup
InSection [MVP131]
AddOrChangeLineWith (Index,=,) as "Index=[MCTIOIndex]" at end
AddOrChangeLineWith (Data,=,) as "Data=[MCTIOData]" at end
;; AddOrChangeLineWith (IRQ,=,) as "IRQ=[Int]" at end
AddOrChangeLineWith (ConfigFile,=,) as "ConfigFile=[MVPBINIniFileName]" at end
EndModifyTextFile
;; Change the ConfigFile entry to MVP131DF.INI, in the file
ModifyTextFile [WindowsDirectory]\[MVP131DefFileName] NoBackup
InSection [MCT]
AddOrChangeLineWith (TVType,=,) as "TVType=[TVType]" at end
EndModifyTextFile
;; Change the ConfigFile entry to MVP131.INI, in the file
ModifyTextFile [WindowsDirectory]\[MVP131IniFileName] NoBackup
InSection [MCT]
AddOrChangeLineWith (TVType,=,) as "TVType=[TVType]" at end
EndModifyTextFile
if [MCTMemSize] > 0
;; Change the MVP131DF.INI file
ModifyTextFile [WindowsDirectory]\[MVP131DefFileName] NoBackup
InSection [MVP131]
AddOrChangeLineWith (MemoryConfiguration,=,) as "MemoryConfiguration=[MemConfig]" at end
AddOrChangeLineWith (MemoryMode,=,) as "MemoryMode=[MemMode]" at end
EndModifyTextFile
;; Change the MVP131.INI file
ModifyTextFile [WindowsDirectory]\[MVP131IniFileName] NoBackup
InSection [MVP131]
AddOrChangeLineWith (MemoryConfiguration,=,) as "MemoryConfiguration=[MemConfig]" at end
AddOrChangeLineWith (MemoryMode,=,) as "MemoryMode=[MemMode]" at end
EndModifyTextFile
endif
;; Modify the MCI INI File
ModifyTextFile [InstallationDirectory]\[MCIIniFile] NoBackup
InSection [WIN MPEG Hardware]
AddOrChangeLineWith (irq,=,) as "irq=[Int]" at end
AddOrChangeLineWith (baseio,=,) as "baseio=[MPEGIOIndex]" at end
AddOrChangeLineWith (ovlini,=,) as "ovlini=[WindowsDirectory]\[MVP131IniFileName]" at end
EndModifyTextFile
if FileExists [InstallationDirectory]\MVPDOS.INI
[String1] := [InstallationDirectory]\MVPDOS.INI
else
[String1] := [WindowsDirectory]\[MVP131IniFileName]
endif
ModifyTextFile [InstallationDirectory]\[MCIIniFile] NoBackup
InSection [DOS MPEG Hardware]
AddOrChangeLineWith (irq,=,) as "irq=[Int]" at end
AddOrChangeLineWith (baseio,=,) as "baseio=[MPEGIOIndex]" at end
AddOrChangeLineWith (ovlini,=,) as "ovlini=[String1]" at end
EndModifyTextFile
;; Add/update load line in win.ini
[Array1][1] := windows
[Array1][2] := load
[Array1][3] := NULL
GetProfileString Using [Array1]
[String1] := [Array1][4]
[String2] := [WindowsSystemDirectory]\WIN87EM.EXE
[String3] := [InstallationDirectory]\[MCICDAlloc]
[String4] := [InstallationDirectory]\[OldMCICDAlloc]
[Number1] := LengthOf [String1]
[Number2] := PositionOf [String2] in [String1]
[Number3] := PositionOf [String3] in [String1]
[Number4] := PositionOf [String4] in [String1]
if [Number3] = 0 .AND. [Number4] <> 0
ModifyTextFile [WindowsDirectory]\win.ini NoBackup NoInquiry
Replace [String4] with [String3]
EndModifyTextFile
[Array1][1] := windows
[Array1][2] := load
[Array1][3] := NULL
GetProfileString Using [Array1]
[String1] := [Array1][4]
[String2] := [WindowsSystemDirectory]\WIN87EM.EXE
[String3] := [InstallationDirectory]\[MCICDAlloc]
[String4] := [InstallationDirectory]\[OldMCICDAlloc]
[Number1] := LengthOf [String1]
[Number2] := PositionOf [String2] in [String1]
[Number3] := PositionOf [String3] in [String1]
[Number4] := PositionOf [String4] in [String1]
endif
if [String1] = NULL
[String1] := [WindowsSystemDirectory]\WIN87EM.EXE
else
if [Number2] = 0
[String1] := [String1] [WindowsSystemDirectory]\WIN87EM.EXE
endif
endif
if [Number3] = 0 .AND. [Number4] = 0
[String1] := [String1] [InstallationDirectory]\[MCICDAlloc]
endif
ModifyTextFile [WindowsDirectory]\win.ini NoBackup NoInquiry
AddOrChangeLineWith ([windows],,) as "[windows]" at end
InSection [windows]
AddOrChangeLineWith (load,=,) as "load=[String1]" at end
EndModifyTextFile
;; Update or add driver entries in the system.ini file
ModifyTextFile [WindowsDirectory]\system.ini NoBackup
AddOrChangeLineWith ([mci],,) as "[mci]" at end
InSection [mci]
AddOrChangeLineWith ([MCIDriverName1],=,) as "[MCIDriverName1]=[InstallationDirectory]\[MCIDriver]" at end
AddOrChangeLineWith ([MCIDriverName2],=,) as "[MCIDriverName2]=[InstallationDirectory]\[MCIDriver]" at end
AddOrChangeLineWith ([MCIDriverName3],=,) as "[MCIDriverName3]=[InstallationDirectory]\[MCIDriver]" at end
EndModifyTextFile
;; Update or add driver entries in the system.ini file
ModifyTextFile [WindowsDirectory]\system.ini NoBackup
AddOrChangeLineWith ([R0 MPEG MCI Driver],,) as "[R0 MPEG MCI Driver]" at end
InSection [R0 MPEG MCI Driver]
AddOrChangeLineWith (mpegpath,=,) as "mpegpath=[InstallationDirectory]" at end
EndModifyTextFile
;; Update class entries in the system.ini file
if [TeleTune] = Y
ModifyTextFile [WindowsDirectory]\system.ini NoBackup
AddOrChangeLineWith ([MCT's VMPlus],,) as "[MCT's VMPlus]" at end
InSection [MCT's VMPlus]
AddOrChangeLineWith (VMPAppClass,=,) as "VMPAppClass=[AppWorkDirPath]\[VMPExeFileName]" at end
AddOrChangeLineWith (VRemoteClass,=,) as "VRemoteClass=[AppWorkDirPath]\[TVRemoteExeFileName]" at end
AddOrChangeLineWith (MPEGRemoteClass,=,) as "MPEGRemoteClass=[AppWorkDirPath]\[MPEGExeFileName]" at end
AddOrChangeLineWith (TunerAppClass,=,) as "TunerAppClass=[AppWorkDirPath]\[TunerExeFileName]" at end
AddOrChangeLineWith (MCTAudioAppClass,=,) as "MCTAudioAppClass=[AppWorkDirPath]\[AudioExeFileName]" at end
AddOrChangeLineWith (MessageDataFile,=,) as "MessageDataFile=[AppWorkDirPath]\[MsgDispDataFileName]" at end
AddOrChangeLineWith (UserIniFileName,=,) as "UserIniFileName=[WindowsDirectory]\[MVP131IniFileName]" at end
AddOrChangeLineWith (DefaultIniFileName,=,) as "DefaultIniFileName=[WindowsDirectory]\[MVP131DefFileName]" at end
AddOrChangeLineWith (VideoFormat,=,) as "VideoFormat=[VideoFormatID]" at end
AddOrChangeLineWith (DrawFormat,=,) as "DrawFormat=[DrawFormatID]" at end
EndModifyTextFile
ModifyTextFile [WindowsDirectory]\system.ini NoBackup
InSection [drivers]
AddOrChangeLineWith (msvideo,=,) as "msvideo=[AppWorkDirPath]\[CaptureDriver]" at end
AddOrChangeLineWith (VIDS.DRAW,=,) as "VIDS.DRAW=[AppWorkDirPath]\[CodecDriver]" at end
AddOrChangeLineWith (VIDC.MY42,=,) as "VIDC.MY42=[AppWorkDirPath]\[CodecDriver]" at end
AddOrChangeLineWith (VIDC.MCY2,=,) as "VIDC.MCY2=[AppWorkDirPath]\[CodecDriver]" at end
AddOrChangeLineWith (VIDC.MPY2,=,) as "VIDC.MPY2=[AppWorkDirPath]\[CodecDriver]" at end
EndModifyTextFile
if FileExists [WindowsDirectory]\mmtools.ini
;; Update/add [VidCap] section and related entries
ModifyTextFile [WindowsDirectory]\mmtools.ini NoBackup
AddOrChangeLineWith ([VidCap],,) as "[VidCap]" at end
InSection [VidCap]
AddOrChangeLineWith (OverlayWindow,=,) as "OverlayWindow=Yes" at end
EndModifyTextFile
endif
;; Update/add entries in control.ini file
ModifyTextFile [WindowsDirectory]\control.ini NoBackup
AddOrChangeLineWith ([drivers.desc],,) as "[drivers.desc]" at end
InSection [drivers.desc]
AddOrChangeLineWith ([CaptureDriver],=,) as "[AppWorkDirPath]\[CaptureDriver]=[CaptureDrvDesc]" at end
AddOrChangeLineWith ([CodecDriver],=,) as "[AppWorkDirPath]\[CodecDriver]=[CodecDrvDesc]" at end
EndModifyTextFile
else
ModifyTextFile [WindowsDirectory]\system.ini NoBackup
AddOrChangeLineWith ([MCT's VMPlus],,) as "[MCT's VMPlus]" at end
InSection [MCT's VMPlus]
AddOrChangeLineWith (VMPAppClass,=,) as "VMPAppClass=[AppWorkDirPath]\[VMPExeFileName]" at end
AddOrChangeLineWith (MPEGRemoteClass,=,) as "MPEGRemoteClass=[AppWorkDirPath]\[MPEGExeFileName]" at end
AddOrChangeLineWith (MCTAudioAppClass,=,) as "MCTAudioAppClass=[AppWorkDirPath]\[AudioExeFileName]" at end
AddOrChangeLineWith (MessageDataFile,=,) as "MessageDataFile=[AppWorkDirPath]\[MsgDispDataFileName]" at end
AddOrChangeLineWith (UserIniFileName,=,) as "UserIniFileName=[WindowsDirectory]\[MVP131IniFileName]" at end
AddOrChangeLineWith (DefaultIniFileName,=,) as "DefaultIniFileName=[WindowsDirectory]\[MVP131DefFileName]" at end
EndModifyTextFile
DeleteFiles from [AppWorkDirPath] Quietly
[TVRemoteExeFileName]
[TunerExeFileName]
[CaptureDriver]
[CodecDriver]
EndDeleteFiles
endif
;; Update/add entries in win.ini file
ModifyTextFile [WindowsDirectory]\win.ini NoBackup NoInquiry
AddOrChangeLineWith ([mci extensions],,) as "[mci extensions]" at end
InSection [mci extensions]
AddOrChangeLineWith (mpg,=,) as "mpg=[MCIDriverName2]" at end
AddOrChangeLineWith (dat,=,) as "dat=[MCIDriverName2]" at end
AddOrChangeLineWith (vbs,=,) as "vbs=[MCIDriverName2]" at end
EndModifyTextFile
;; Update/add entries in control.ini file
ModifyTextFile [WindowsDirectory]\control.ini NoBackup
AddOrChangeLineWith ([drivers.desc],,) as "[drivers.desc]" at end
InSection [drivers.desc]
AddOrChangeLineWith ([InstallationDirectory]\[MCIDriver],=,) as "[InstallationDirectory]\[MCIDriver]=[MCIDrvDesc]" at end
EndModifyTextFile
;; Update/add entries in autoexec.bat file
ModifyAutoexecBat NoInquiry
AddPathComponent [InstallationDirectory] at beginning
AddOrChangeLineWith ([InstallationDirectory]\[DOSInitProg],,) as "[InstallationDirectory]\[DOSInitProg]" at beginning
EndModifyAutoexecBat
;; Create Group and program item for MPEG remote
[String1] := [AppWorkDirPath]\[MPEGExeFileName]
ProgramManagerDDE
CreateGroup ([GroupName])
DeleteItem ([MPEGIconName])
AddItem ([String1], [MPEGIconName], [String1])
ShowGroup ([GroupName], 1)
EndProgramManagerDDE
if [TeleTune] = Y
;; Set MVP Application Icon
[String1] := [AppWorkDirPath]\[TVRemoteExeFileName]
;; Create Group and program item
ProgramManagerDDE
CreateGroup ([GroupName])
DeleteItem ([TVRemoteIconName])
AddItem ([String1], [TVRemoteIconName], [String1])
ShowGroup ([GroupName], 1)
EndProgramManagerDDE
endif
;; Create Group and program item for Message dispatcher
[String1] := [AppWorkDirPath]\[MsgDispExeFileName]
ProgramManagerDDE
CreateGroup (Startup)
DeleteItem ([MsgDispIconName])
AddItem ([String1], [MsgDispIconName], [String1])
;;ShowGroup (Startup, 1)
EndProgramManagerDDE
Dialog PressAKey @(center, center) UseHeader "[SoftwareProdName] Installation"
[SoftwareProdName] installation is done.
Please make sure the jumper settings on your
[ProductName] match the device setup
you have done during the installation.
EndDialog
[RebootFlag] := 1
EndProcedure
Procedure HardwareConfig
LoadDLL [DLL1] [InstallFromDirectory][MVP131DLL]
LoadDLL [DLL2] [InstallFromDirectory][TestDLL]
CallDLL [DLL2] StopMSGDispatcher
CallDLL [DLL2] FindMVPIOAddr [MCTIONo]
if DLLError > 0
[MCTIONo] := 0
endif
;;-----------------------------------------------------
;; MVP131 not found, display a dialog box for selection
if [MCTIONo] = 0
[MCTIONo] := 1
[String15] := "I/O Port Address"
[String16] := "B18"
[String17] := "B28"
;; Dialog box for Video device setup
DialogBox @xy(center, center) 90 90 UseHeader "Video Device Setup" Returns [Number5] BorDlg
Font "Helv" 8
CTEXT @xy( 10,10) 70 10 [String15]
BorRadioButtonGroup Uses [MCTIONo]
RadioButton @xy( 20, 24) 50 10 [String16]
RadioButton @xy( 20, 36) 50 10 [String17]
BorPushButton @xy(25,56) 38 14 "OK" Ok
EndDialogBox
endif
if [MCTIONo] = 1
[MCTIOIndex] := [MCTIOIndex1]
[MCTIOData] := [MCTIOData1]
endif
if [MCTIONo] = 2
[MCTIOIndex] := [MCTIOIndex2]
[MCTIOData] := [MCTIOData2]
endif
;;-----------------------------------------------------
;; Check memory configuration
[String1] := [WindowsDirectory]
CallDLL [DLL2] FindMVPMemorySize [MCTMemSize] [String1]
if DLLError > 0
[MCTMemSize] := 0
endif
if [MCTMemSize] = 1
[MemConfig] := 1x256kx8
[MemMode] := 5
endif
if [MCTMemSize] = 2
[MemConfig] := 2x256kx8
[MemMode] := 2
endif
;;-----------------------------------------------------
;; MPEG I/O & IRQ selection
if [HighLight] = 2
CallDLL [DLL2] FindOmegaIOAddr [MPEGIONo]
if DLLError > 0
[MPEGIONo] := 0
endif
[String2] := "I/O Port Address"
[String3] := "2C0"
[String4] := "300"
[String5] := "Interrupt Number"
[String6] := "9"
[String7] := "10"
[String8] := "11"
[String9] := "15"
if FileExists [InstallationDirectory]\[MCIIniFile]
[Array1][1] := DOS MPEG Hardware
[Array1][2] := irq
[Array1][3] := 10
[Array1][4] := [InstallationDirectory]\[MCIIniFile]
GetPrivateProfileString Using [Array1]
if [Array1][5] = [String6]
[INTNo] := 1
endif
if [Array1][5] = [String7]
[INTNo] := 2
endif
if [Array1][5] = [String8]
[INTNo] := 3
endif
if [Array1][5] = [String9]
[INTNo] := 4
endif
endif
if [MPEGIONo] = 0
[MPEGIONo] := 1
;; Dialog box for MPEG device setup
DialogBox @xy(center, center) 194 120 UseHeader "MPEG Device Setup" Returns [Number5] BorDlg
Font "Helv" 8
CTEXT @xy( 10,10) 82 10 [String2]
BorRadioButtonGroup Uses [MPEGIONo]
RadioButton @xy( 28, 24) 40 10 [String3]
RadioButton @xy( 28, 36) 40 10 [String4]
CTEXT @xy( 102,10) 82 10 [String5]
BorRadioButtonGroup Uses [INTNo]
RadioButton @xy( 118, 24) 50 10 [String6]
RadioButton @xy( 118, 36) 50 10 [String7]
RadioButton @xy( 118, 48) 50 10 [String8]
RadioButton @xy( 118, 60) 50 10 [String9]
BorPushButton @xy(79,82) 38 14 "OK" Ok
EndDialogBox
else
;; Dialog box for MPEG device setup
DialogBox @xy(center, center) 102 120 UseHeader "MPEG Device Setup" Returns [Number5] BorDlg
Font "Helv" 8
CTEXT @xy( 10,10) 82 10 [String5]
BorRadioButtonGroup Uses [INTNo]
RadioButton @xy( 26, 24) 50 10 [String6]
RadioButton @xy( 26, 36) 50 10 [String7]
RadioButton @xy( 26, 48) 50 10 [String8]
RadioButton @xy( 26, 60) 50 10 [String9]
BorPushButton @xy(32,82) 38 14 "OK" Ok
EndDialogBox
endif
if [MPEGIONo] = 1
[MPEGIOIndex] := [MPEGIOIndex1]
endif
if [MPEGIONo] = 2
[MPEGIOIndex] := [MPEGIOIndex2]
endif
;; MPEG IRQ selection
if [INTNo] = 1
[Int] := [Int1]
endif
if [INTNo] = 2
[Int] := [Int2]
endif
if [INTNo] = 3
[Int] := [Int3]
endif
if [INTNo] = 4
[Int] := [Int4]
endif
endif
;;-----------------------------------------------------
;; TV type selection
DialogBox @xy(center, center) 110 128 UseHeader "TV Type Setup" Returns [Number5] BorDlg
Font "Helv" 8
CTEXT @xy( 10,10) 90 10 "TV Type"
BorRadioButtonGroup Uses [ConfigNo]
RadioButton @xy( 25, 30) 55 10 "&None"
RadioButton @xy( 25, 45) 55 10 "N&TSC"
RadioButton @xy( 25, 60) 55 10 "&PAL"
RadioButton @xy( 25, 75) 55 10 "&Multi System"
BorPushButton @xy(36,94) 38 14 "OK" Ok
EndDialogBox
[TVType] := [ConfigNo]-1
UnloadDLL [DLL1]
UnloadDLL [DLL2]
EndProcedure
Procedure ByeBye
Dialog PressAKey WhiteOnBrown
Thanks for choosing [ProductName] from
[CompanyName] The installation program
has modified some of the systems files.
To make these changes effective, please
exit Windows and REBOOT your machine.
EndDialog
SoLong
EndProcedure
Procedure DDENonFatalErrorTrap
;; Do nothing
EndProcedure
Procedure SetupINSTALIT
if [TeleTune] = Y
SetTopLineTo INSTALL [TitleString2] (Press Esc to exit)
else
SetTopLineTo INSTALL [TitleString1] (Press Esc to exit)
endif
;; Load/set Bitmaps here
;; While it is not documented anywhere else it is true that FreeSpaceOnDrive
;; considers only the first character of its first parameter (in this case
;; the drive letter of the temporary directory).
[number1] := FreeSpaceOnDrive ShadowDirectory
If [number1] < 25000
popup There is insufficient space on the TEMP drive for installation.
SoLong
EndIf
LoadBitMap 1 [CompanyLogoFile] @xy(5,5)
ShowBitMap 1
SetDefaultBitmap off
SetBackGroundColor 0 0 64 191 64 0
ShowWindow Maximized
EndProcedure
EndScript
Download Driver Pack
After your driver has been downloaded, follow these simple steps to install it.
Expand the archive file (if the download file is in zip or rar format).
If the expanded file has an .exe extension, double click it and follow the installation instructions.
Otherwise, open Device Manager by right-clicking the Start menu and selecting Device Manager.
Find the device and model you want to update in the device list.
Double-click on it to open the Properties dialog box.
From the Properties dialog box, select the Driver tab.
Click the Update Driver button, then follow the instructions.
Very important: You must reboot your system to ensure that any driver updates have taken effect.
For more help, visit our Driver Support section for step-by-step videos on how to install drivers for every file type.