'' *** Check version number of Windows that is supported
WIN32ENABLED% = 0
MajorVer% = GetWindowsMajorVersion()
MinorVer% = GetWindowsMinorVersion()
IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software. Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
END IF
IF MajorVer% >= 4 THEN
i% = DoMsgBox("This version of Digital Video Producer does not run on Windows NT.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
END IF
IF OnWindowsNT() THEN
i% = DoMsgBox("This version of Video for Windows does not run on Windows NT.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
END IF
'' *** Setup reference to bitmap for background windows in setup installation
''** changed to let the user enter a different drive
''END
GOTO ASKDIR
END IF
''*** Install all the files
Install
''*** Register DVP and delete DVP.REG when finished
RegFile$ = MakePath(SpliceDir$, "dvp.reg")
FILEEXIST% = DoesFileExist(RegFile$, femExists)
IF FILEEXIST% = 1 THEN
Run ("regedit.exe /s " + RegFile$ )
RemoveFile RegFile$, cmoNone
END IF
'' *** If mplayer.reg exist, then register mplayer and then delete the file
RegFile$ = MakePath(WinDir$, "mplayer.reg")
FILEEXIST% = DoesFileExist(RegFile$, femExists)
IF FILEEXIST% = 1 THEN
Run ("regedit.exe /s " + RegFile$ )
RemoveFile RegFile$, cmoNone
END IF
'' *** If ole2.reg exist, then register ole services and then delete the file
RegFile$ = MakePath(WinSysDir$, "ole2.reg")
FILEEXIST% = DoesFileExist(RegFile$, femExists)
IF FILEEXIST% = 1 THEN
Run ("regedit.exe /s " + RegFile$ )
RemoveFile RegFile$, cmoNone
END IF
'' *** profile the display
Run ("profdisp.exe")
'' *** Create the Program Group for the application and the program items within
CreateProgmanGroup "Digital Video Producer", "", cmoNone
SpliceCmd$ = MakePath(SpliceDir$, "dvp.EXE")
CaptureCmd$ = MakePath(SpliceDir$, "dvpcap.EXE")
CreateProgmanItem "Digital Video Producer", "Digital Video Producer", SpliceCmd$, "", cmoOverwrite
CreateProgmanItem "Digital Video Producer", "Digital Video Producer Capture", CaptureCmd$, "", cmoOverwrite
CreateProgmanItem "Digital Video Producer", "Media Player", MakePath(WinDir$, "mplayer.exe"), "", cmoOverwrite
'' *** CLEANUP OF OLD INDEO: If there exists a file named INDEO.DRV in the Windows System directory, delete it.
IF NEWINDEO = 1 THEN
DelFile$ = MakePath ( WinSysDir$,"indeo.drv")
FILEEXIST% = DoesFileExist(DelFile$, femExists)
IF FILEEXIST% = 1 THEN
RemoveFile DelFile$, cmoForce
END IF
ENDIF
'' *** CLEANUP OF OLD INDEO: If there exists a file named INDEO.INI in the Windows directory, delete it.
IF NEWINDEO = 1 THEN
DelFile$ = MakePath ( WinDir$,"indeo.ini")
FILEEXIST% = DoesFileExist(DelFile$, femExists)
IF FILEEXIST% = 1 THEN
RemoveFile DelFile$, cmoForce
END IF
END IF
'' *** CLEANUP OF OLD INDEO: If there exists a file named IR30.DLL in the Windows Systems directory, delete it.
IF NEWINDEO = 1 THEN
DelFile$ = MakePath ( WinSysDir$,"ir30.dll")
FILEEXIST% = DoesFileExist(DelFile$, femExists)
IF FILEEXIST% = 1 THEN
RemoveFile DelFile$, cmoForce
END IF
END IF
'' *** CLEANUP OF OLD SPLICE: If there exists a file named FLICFILE.DLL in the Windows Systems directory, delete it.
DelFile$ = MakePath ( WinSysDir$,"flicfile.dll")
FILEEXIST% = DoesFileExist(DelFile$, femExists)
IF FILEEXIST% = 1 THEN
RemoveFile DelFile$, cmoForce
END IF
'' *** CLEANUP OF OLD SPLICE: If there exists a file named IMAGESEQ.DLL in the Windows Systems directory, delete it.
DelFile$ = MakePath ( WinSysDir$,"imageseq.dll")
FILEEXIST% = DoesFileExist(DelFile$, femExists)
IF FILEEXIST% = 1 THEN
RemoveFile DelFile$, cmoForce
END IF
'' *** Running from another Install, just inform user to restart Windows before running DVP then terminate
IF CHILDINSTALL = 1 THEN
i% = DoMsgBox("Asymetrix Digital Video Producer installation is complete. Restart Windows before running this application.", "Asymetrix Digital Video Producer Setup", MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
END
END IF
'' *** Restart Windows: if it has to updates ACM from DOS, it restarts Windows automatically
'' *** else, it gives the user the choice
RESTRT% = RestartListEmpty ()
Exe$ = DEST$ + "\_msrstrt.exe"
Batch$ = DEST$ + "\_mssetup.bat"
empty$ = ""
RESTART:
'' *** there is something in the restart list, prompt the user about need to restart windows
