Computer Arts Interactive 4/CARTS4.iso/pc/axs/axs.mst

Text File | 1995-05-17 | 5KB | 211 lines

'**************************************************************************
'*                       MSSetup Toolkit Sample 1
'**************************************************************************

'$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.

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 "ImageAXS Setup"

    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
    szInf$ = GetSymbolValue("STF_CWDDIR") + "axs.INF"
    END IF
    ReadInfFile szInf$

    OPTCUR$ = "1"
    DEST$ = "C:\IMAGEAXS"

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

OPTION:
    SetSymbolValue "RadioDefault", OPTCUR$
OPTL1:
    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

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

    IF sz$ = "CONTINUE" THEN
    IF IsDirWritable(DEST$) = 0 THEN
        GOSUB BADPATH
        GOTO GETPATHL1
    END IF
    UIPop 1
    ELSEIF sz$ = "REACTIVATE" THEN
    GOTO GETPATHL1
    ELSEIF sz$ = "BACK" THEN
    UIPop 1
    GOTO GETPATH
    ELSE
    GOSUB ASKQUIT
    GOTO GETPATH
    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 AXS at [phone]!", "Setup Message", 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

    SrcDir$ = GetSymbolValue("STF_SRCDIR")
    CreateDir DEST$, cmoNone

    AddSectionFilesToCopyList "Files", SrcDir$, DEST$
    IF OPTCUR$ = "1" THEN
        AddSectionFilesToCopyList "Samples", SrcDir$, MakePath (DEST$, "SAMPLES" )
    END IF

    drive$ = MID$(DEST$, 1, 1)
'       IF GetFreeSpaceForDrive(drive$) < GetCopyListCost("10000","","") THEN
'       IF GetFreeSpaceForDrive(drive$) < 2000000 THEN
    IF GetCopyListCost("10000","","") > 0 THEN
        i% = DoMsgBox("Insufficient disk space. ImageAXS requires 2 Megabytes", "Error", MB_OK+MB_TASKMODAL+MB_ICONHAND)
        RETURN
    END IF

    CopyFilesInCopyList

    CreateIniKeyValue "WIN.INI", "Extensions", "col", MakePath(DEST$,"imageaxs.exe ^.col"), cmoOverwrite
    CreateProgmanGroup "ImageAXS", "", cmoNone
    ShowProgmanGroup  "ImageAXS", 1, cmoNone

    CreateProgmanItem "ImageAXS", "ImageAXS 2.5 Demo", MakePath(DEST$,"imageaxs.exe"), "", cmoOverwrite
    CreateProgmanItem "ImageAXS", "ImageAXS ReadMe", MakePath(DEST$,"readme.wri"), "", cmoOverwrite
    IF OPTCUR$ = "1" THEN
        CreateProgmanItem "ImageAXS", "Sample Collection", MakePath(DEST$,"samples\dci.col"), "", cmoOverwrite
    END IF
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