Temptress/Temptress.iso/setup.mst

Text File | 1995-06-15 | 5.9 KB | 209 lines

''$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 BADPATH       = 6400


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

    SetTitle "Temptriss Setup-Program"

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

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

'$IFDEF DEBUG
    i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
    WinDrive$ = MID$(GetWindowsDir, 1, 1)
    IF IsDriveValid(WinDrive$) = 0 THEN
        i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
        GOTO QUIT
    END IF
'$ENDIF ''DEBUG


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


GETPATH:
    SetSymbolValue "EditTextIn", DEST$
    SetSymbolValue "EditFocus", "END"
GETPATHL1:
    sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", 0, "")
    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 WELCOME
    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", "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 "App", SrcDir$, DEST$

    CopyFilesInCopyList

'Create "temptris.ini" and put DataPath and FullScreen entries in the Config section

    INIFILE$ = MakePath (DEST$, "temptris.ini")
    SMALL$ = MakePath (SrcDir$, "pics\small\")
    LARGE8$ = MakePath (SrcDir$, "pics\large8\")
    LARGE24$ = MakePath (SrcDir$, "pics\large24\")
    PANEL$ = MakePath (SrcDir$, "pics\panels\")
    SOUNDS$ = MakePath (SrcDir$, "sounds\")

    CreateIniKeyValue INIFILE$, "Application", "Name", "Temptriss", cmoOverwrite

    CreateIniKeyValue INIFILE$, "Session", "Reveal", "122", cmoOverwrite
    CreateIniKeyValue INIFILE$, "Session", "Sound", "1", cmoOverwrite
    CreateIniKeyValue INIFILE$, "Session", "Open", "1", cmoOverwrite
    CreateIniKeyValue INIFILE$, "Session", "Last", "0", cmoOverwrite
    CreateIniKeyValue INIFILE$, "Session", "Preview", "1", cmoOverwrite

    CreateIniKeyValue INIFILE$, "Paths", "Small DIBs", SMALL$, cmoOverwrite
    CreateIniKeyValue INIFILE$, "Paths", "Large8 DIBs", LARGE8$, cmoOverwrite
    CreateIniKeyValue INIFILE$, "Paths", "Large24 DIBs", LARGE24$, cmoOverwrite
    CreateIniKeyValue INIFILE$, "Paths", "Panel DIBs", PANEL$, cmoOverwrite
    CreateIniKeyValue INIFILE$, "Paths", "Sounds", SOUNDS$, cmoOverwrite

'Create the Program Group (You've got to SHOW it to add items)
    CreateProgmanGroup "Temptriss", "", cmoNone
    ShowProgmanGroup  "Temptriss", 1, cmoNone

'Add 2 items, one for Temptriss and one for VFW
'* Note the path "\VFW1_1" in the VFW item
    CreateProgmanItem "Temptriss", "Temptriss", MakePath(DEST$,"temptris.exe"), "", cmoOverwrite
    'CreateProgmanItem "Temptriss", "Video for Windows Setup", MakePath(SrcDir$,"vfw1_1\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