home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 24
/
CD_ASCQ_24_0995.iso
/
vrac
/
visvideo.zip
/
VISCUI.MST
< prev
next >
Wrap
Text File
|
1994-08-31
|
10KB
|
319 lines
'$DEFINE DEBUG ''Define for script development/debugging
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
''Dialog ID's
''Must be the same as viscui.h
CONST WELCOME = 100
CONST ASKQUIT = 200
CONST DESTPATH = 300
CONST EXITFAILURE = 400
CONST EXITQUIT = 600
CONST EXITSUCCESS = 700
CONST IOOPTIONSA = 1210 '' Audio IO base address selection dialog
CONST IRQOPTIONS = 1120 '' Interrupt switch selection dialog
CONST DMAOPTIONS = 1100 '' DMA Channel switch selection dialog
CONST APPHELP = 900 '' Help dialog box
CONST BADPATH = 6400 '' Bad destination directory dialog box
'' Dialog bitmap icon ID
CONST LOGO = 1
''Global variable declaration
GLOBAL VxD$ '' Virtual device installl status
GLOBAL MCI$ '' MCI device driver installl status
GLOBAL DEST$ '' Default destination directory
GLOBAL DESTCODE$ '' Default destination directory
GLOBAL DESTMCI$ '' Default destination directory
GLOBAL DESTDOS$ '' Default destination directory
GLOBAL DESTWIN$ '' Default destination directory
GLOBAL DESTINC$ '' Default destination directory
GLOBAL DESTLIB$ '' Default destination directory
GLOBAL BASEIOA$ '' Audio I/O address
GLOBAL BASEIOV$ '' Video I/O address
GLOBAL INTR$ '' IRQ
GLOBAL DMA$ '' DMA channel
GLOBAL VIDEOSOURCE$ '' NTSC,PAL
DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
INIT:
CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
SetBitmap CUIDLL$, LOGO
SetTitle "MPEG Master Installation"
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + "VISCUI.INF"
END IF
ReadInfFile szInf$
BASEIOA$ = "0x380"
DMA$ = "6"
INTR$ = "12"
VIDEOSOURCE$ = "NTSC"
DEST$ = "C:\VISMPEG"
VxD = "NO" '' need not to add device=winvdmad.386 to system.ini
WELCOME:
sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
IF sz$ = "CONTINUE" THEN
UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
' Get the installation destination path
GETPATH:
SetSymbolValue "EditTextIn", DEST$
SetSymbolValue "EditFocus", "END"
GETPATHL1:
sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
DEST$ = GetSymbolValue("EditTextOut")
DESTCODE$=DEST$+"\code"
DESTWIN$=DEST$+"\windows"
DESTDOS$=DEST$+"\dos"
DESTINC$=DEST$+"\include"
DESTLIB$=DEST$+"\lib"
DESTMCI$=DEST$+"\mci"
IF sz$ = "CONTINUE" THEN
IF IsDirWritable(DEST$) = 0 THEN
GOSUB BADPATH
GOTO GETPATHL1
END IF
UIPop 1
ELSEIF sz$ = "REACTIVATE" THEN
GOTO GETPATHL1
ELSE
GOSUB ASKQUIT
GOTO GETPATH
END IF
' Get IO Port
IOOPTIONA:
SetSymbolValue "DefIO", "12" ''0x380
SetSymbolValue "DefVSrc", "NTSC" ''NTSC
IOOPTL1A:
sz$ = UIStartDlg(CUIDLL$, IOOPTIONSA, "FAIOProc", APPHELP, HELPPROC$)
BASEIOA$ = GetSymbolValue("IOPortA")
BASEIOV$ = GetSymbolValue("IOPortV")
VIDEOSOURCE$ = GetSymbolValue("VideoSource")
IF sz$ = "CONTINUE" THEN
UIPop(1)
ELSEIF sz$ = "REACTIVATE" THEN
GOTO IOOPTL1A
ELSE
GOSUB ASKQUIT
GOTO IOOPTIONA
END IF
' Get IRQ
AINTOPTION:
SetSymbolValue "IRQ", "12"
AINTOPTL1:
sz$ = UIStartDlg(CUIDLL$, IRQOPTIONS, "FIRQDlgProc", APPHELP, HELPPROC$)
INTR$ = GetSymbolValue("IRQ")
IF sz$ = "CONTINUE" THEN
UIPop(1)
ELSEIF sz$ = "REACTIVATE" THEN
GOTO AINTOPTL1
ELSE
GOSUB ASKQUIT
GOTO AINTOPTION
END IF
' Get DMA
DMAOPTION:
SetSymbolValue "DMA", "6"
DMAOPTL1:
sz$ = UIStartDlg(CUIDLL$, DMAOPTIONS, "FDMADlgProc", APPHELP, HELPPROC$)
DMA$ = GetSymbolValue("DMAChannel")
IF sz$ = "CONTINUE" THEN
UIPop(1)
ELSEIF sz$ = "REACTIVATE" THEN
GOTO DMAOPTL1
ELSE
GOSUB ASKQUIT
GOTO DMAOPTION
END IF
Install
QUIT:
ON ERROR GOTO ERRQUIT
IF ERR = 0 THEN
dlg% = EXITSUCCESS
ELSEIF ERR = STFQUIT THEN
dlg% = EXITQUIT
ELSE
dlg% = EXITFAILURE
END IF
QUITL1:
sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO QUITL1
END IF
UIPop 1
END
ERRQUIT:
i% = DoMsgBox("Setup sources were corrupted, call technical support!", "CL450 Development kit Installation", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
BADPATH:
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
IF sz$ = "REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
IF sz$ = "EXIT" THEN
UIPopAll
ERROR STFQUIT
ELSEIF sz$ = "REACTIVATE" THEN
GOTO ASKQUIT
ELSE
UIPop 1
END IF
RETURN
'**
'** Purpose:
'** Builds the copy list and performs all installation operations.
'** Arguments:
'** none.
'** Returns:
'** none.
'*************************************************************************
SUB Install STATIC
' Create the directory
SrcDir$ = GetSymbolValue("STF_SRCDIR")
CreateDir DEST$,cmoNone
CreateDir DESTCODE$, cmoNone
CreateDir DESTWIN$, cmoNone
CreateDir DESTINC$, cmoNone
CreateDir DESTDOS$, cmoNone
CreateDir DESTLIB$, cmoNone
CreateDir DESTMCI$, cmoNone
' Copy files
AddSectionFilesToCopyList "code", SrcDir$, DESTCODE$
AddSectionFilesToCopyList "windows", SrcDir$, DESTWIN$
AddSectionFilesToCopyList "dos", SrcDir$, DESTDOS$
AddSectionFilesToCopyList "include", SrcDir$, DESTINC$
AddSectionFilesToCopyList "lib", SrcDir$, DESTLIB$
AddSectionFilesToCopyList "mci", SrcDir$, DESTMCI$
CopyFilesInCopyList
windir$ = GetWindowsDir()
sysdir$ = GetWindowsSysDir()
mpegini$ = windir$+"WINMPEG.INI"
winini$ = windir$+"WIN.INI"
sysini$ = windir$+"SYSTEM.INI"
' create section
sec1$ = "WinMPEG"
sec2$ = "UserDef"
BUS$ = "AT"
VFORMAT$ = "RGB"
CDIFMV$="CDIFMV"
SLASH$ = "\"
' Create the WINMPEG.INI file
RemoveFile mpegini$, cmoForce
' Add the symbols to the winmpeg.ini file for windows demo program
CreateIniKeyValue mpegini$, sec1$, "IOBASEA", "0x"+BASEIOA$ , cmoOverwrite
CreateIniKeyValue mpegini$, sec1$, "IRQ", INTR$ , cmoOverwrite
CreateIniKeyValue mpegini$, sec1$, "DMA", DMA$, cmoOverwrite
CreateIniKeyValue mpegini$, sec1$, "PATH", DESTCODE$+SLASH$, cmoOverwrite
CreateIniKeyValue mpegini$, sec1$, "VideoSource", VIDEOSOURCE$ ,cmoOverwrite
CreateIniKeyValue mpegini$, sec1$, "VideoFormat", VFORMAT$ ,cmoOverwrite
CreateIniKeyValue mpegini$, sec2$, "BusType", BUS$ ,cmoOverwrite
CreateIniKeyValue mpegini$, sec2$, "DiscType", CDIFMV$ ,cmoOverwrite
CreateIniKeyValue mpegini$, sec2$, "ShowOnVGA", "yes" ,cmoOverwrite
CreateIniKeyValue mpegini$, sec2$, "Stereo", "Spatial" ,cmoOverwrite
' Add the VxD to the system.ini file
VxD$ = GetSymbolValue("AddVxD") '' need to add VxD driver to system.ini?
IF VxD$ = "YES" THEN
CreateSysIniKeyValue sysini$, "386Enh", "DEVICE",MakePath(DESTCODE$,"WINVDMAD.386"), cmoOverwrite
ENDIF
' Add the symbols to the dosmpeg.ini file for DOS demo program
CopyFile mpegini$,DESTDOS$+"\DOSMPEG.INI",cmoOverwrite,0
' Create a MPEG Master group under Windows
group$ = "MPEG Master"
CreateProgmanGroup group$, "", cmoNone
ShowProgmanGroup group$, 1, cmoNone
CreateProgmanItem group$, "MPEG Master", MakePath(DESTWIN$,"wplayer.exe"),"", cmoOverwrite
' Add MPEG Master MCI drivers
RemoveIniKey sysini$, "MCI", "VISVideoCD",cmoForce
RemoveIniKey sysini$, "MCI", "VISCDIMovie",cmoForce
'
CreateSysIniKeyValue sysini$, "MCI", "VISVideoCD","visvideo.drv", cmoOverwrite
CreateSysIniKeyValue sysini$, "MCI", "VISCDIMovie","viscdi.drv", cmoOverwrite
'
CreateIniKeyValue winini$, "MCI EXTENSIONS", "mpg","VISVideoCD", cmoOverwrite
CreateIniKeyValue winini$, "MCI EXTENSIONS", "dat","VISVideoCD", cmoOverwrite
CreateIniKeyValue winini$, "MCI EXTENSIONS", "cdi","VISCDIMovie", cmoOverwrite
' Copy files to windows\system
CopyFile DESTWIN$+"\WINMPEG.DLL",sysdir$+"WINMPEG.DLL",cmoOverwrite,0
CopyFile DESTMCI$+"\visvideo.drv",sysdir$+"visvideo.drv",cmoOverwrite,0
CopyFile DESTMCI$+"\viscdi.drv",sysdir$+"viscdi.drv",cmoOverwrite,0
CopyFile DESTMCI$+"\movie.cdi",windir$+"movie.cdi",cmoOverwrite,0
END SUB
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")
'** szFile$ - filename to append to directory
'** Returns:
'** Resulting fully qualified path name.
'*************************************************************************
FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
IF szDir$ = "" THEN
MakePath = szFile$
ELSEIF szFile$ = "" THEN
MakePath = szDir$
ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
MakePath = szDir$ + szFile$
ELSE
MakePath = szDir$ + "\" + szFile$
END IF
END FUNCTION