Bible/B-001-027-630.zip/B-001-027-630/CDROM/SETUP.MST

Text File | 1996-10-11 | 6KB | 240 lines

'**************************************************************************
'*                       Copyright 1996 Kirill Lozin
'*
'**************************************************************************

'$DEFINE DEBUG  ''Define for script development/debugging

'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'

''Dialog ID's
CONST WELCOME       = 100
CONST ASKQUIT       = 200
CONST DESTPATH      = 300
CONST EXITFAILURE   = 400
CONST EXITQUIT      = 600
CONST EXITSUCCESS   = 700
CONST OPTIONS       = 800
CONST APPHELP       = 900
CONST BADPATH       = 6400

''Bitmap ID
CONST LOGO = 1

GLOBAL DEST$        ''Default destination directory.
GLOBAL OPTCUR$      ''Option selection from option dialog.
GLOBAL SRCDIR$      ''Source directory
GLOBAL WINDIR$      ''Window Directory
GLOBAL MYDIR$        ''Project directory
DECLARE SUB Install
DECLARE SUB Install2
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
rem DECLARE FUNCTION UpdateAutoExecBat LIB "setupenu.dll" (szIn$, szOut$, szDest$) AS INTEGER
DECLARE FUNCTION InstallFont LIB "instfont.dll" (lpszFileName$) AS INTEGER
DECLARE FUNCTION UninstallFont LIB "instfont.dll" (lpszFileName$) AS INTEGER


INIT:
    CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
    HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure

    SetBitmap CUIDLL$, LOGO
    SetTitle "Bible"

    SRCDIR$ = GetSymbolValue("STF_SRCDIR")
    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
    szInf$ = GetSymbolValue("STF_SRCDIR")  + "bible.inf"
    END IF
    ReadInfFile szInf$

    OPTCUR$ = "1"
    DEST$ = "C:\QTPlayer"
    MYDIR$ = "C:\BIBLE"
    WINDIR$ = GetWindowsDir()

    SetAbout "Bible","Copyright (C) 1996."
    i% = InstallFont ("cdp.fon")
    IF (i% = 0) THEN
    i% = DoMsgBox("Can't install the fonts - try to do this manualy or call product support at [phone]", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
    END IF

WELCOME:
    sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
    IF sz$ = "CONTINUE" THEN
    UIPop 1
    ELSE
    GOSUB ASKQUIT
    GOTO WELCOME
    END IF

   GOTO OPTL1


GETPATH:
    SetSymbolValue "EditTextIn", MYDIR$
    SetSymbolValue "EditFocus", "END"
GETPATHL1:
    sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
    MYDIR$ = GetSymbolValue("EditTextOut")

    IF sz$ = "CONTINUE" THEN
    IF IsDirWritable(MYDIR$) = 0 THEN
        GOSUB BADPATH
        GOTO GETPATHL1
    END IF
    UIPop 1
    ELSEIF sz$ = "REACTIVATE" THEN
    GOTO GETPATHL1
    ELSEIF sz$ = "BACK" THEN
    UIPop 1
    GOTO WELCOME
    ELSE
    GOSUB ASKQUIT
    GOTO GETPATH
    END IF


OPTION:
    SetSymbolValue "RadioDefault", OPTCUR$
OPTL1:
    Install
    Install2
    GOTO QUIT

    sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
    OPTCUR$ = GetSymbolValue("ButtonChecked")

    IF sz$ = "CONTINUE" THEN
    UIPop(1)
    ELSEIF sz$ = "REACTIVATE" THEN
    GOTO OPTL1
    ELSE
    GOSUB ASKQUIT
    GOTO OPTION
    END IF

    IF OPTCUR$ = "1" THEN
        GOTO ICONONLY
    END IF


    Install

    IF OPTCUR$ = "4" THEN
        GOTO QUIT
    END IF

ICONONLY:

    Install2



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
    i% = UninstallFont ("cdp.fon")
    END

ERRQUIT:
    i% = DoMsgBox("Setup sources were corrupted, call product support at [phone]", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
    i% = UninstallFont ("cdp.fon")
    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

    rem Update WIN.INI and SYSTEM.INI
    rem -----------------------------

    DEST$ = GetWindowsSysDir()

    AddSectionFilesToCopyList "Options", MakePath(SRCDIR$,"MV13"), GetWindowsSysDir()
    CopyFilesInCopyList

END SUB

SUB Install2 STATIC


    CreateProgmanGroup "Cyrill&Mephody", "", cmoNone
    ShowProgmanGroup  "Cyrill&Mephody", 1, cmoNone
    CreateProgmanItem "Cyrill&Mephody", "Bible", MakePath(SrcDir$,"bible.exe"), MakePath(SrcDir$,"bible.exe"), cmoOverwrite
    CreateProgmanItem "Cyrill&Mephody", "Install QuickTime for Windows 2.01", MakePath(SrcDir$,"qtw.201\setup.exe"), MakePath(SrcDir$,"qtw.201\setup.exe"), cmoOverwrite

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