Multimedia Classic/MultimediaClassic.mdf/app_midi/cake2pro/disk1/wincake.ms_/wincake.bin

Text File | 1993-05-23 | 17.9 KB | 568 lines

'**************************************************************************
'* $Header:   G:/SRC/WCW/MSSETUP/VCS/WINCAKE.MSV   1.19   24 May 1993 17:09:22   gwh  $
'*
'* DESCRIPTION: MS-Setup script for Wincake and Wcwdemo.
'*
'* $Log:   G:/SRC/WCW/MSSETUP/VCS/WINCAKE.MSV  $
'*
'*    Rev 1.19   24 May 1993 17:09:22   gwh
'* Removed serial number item from user info prompt.
'*
'*    Rev 1.18   18 Apr 1993 17:50:40   gwh
'* More refinements for user name, organization, serial number stamping.
'*
'*    Rev 1.17   01 Apr 1993 18:32:44   gwh
'* Prompt user for Name, Organization, and Serial number.
'* Stamp the .EXE resources for these items.
'*
'*    Rev 1.16   18 Mar 1993 14:06:42   pws
'* No more need to clean up old DLL's in Windows sys dir (or TTSSEQ.INI).
'* Also check for existence of TTSSEQ.INI in install dir before copying
'* any TTSSEQ.INI found in Windows sys dir before copying new files.
'*
'*    Rev 1.15   05 Mar 1993 12:08:38   pws
'* Fix support for multiple-disk installations, which had broken when
'* we started determining which product we were by testing for the
'* existence of name.EXE on the first diskette but it had been put
'* on the second one.  Now determine which product we are by testing
'* for existence of product-specific section in SETUP.INF file.
'*
'*    Rev 1.14   22 Dec 1992 13:17:36   pws
'* Reflect changed dialog id's in BLDCUI\DIALOGS.H.
'*
'*    Rev 1.13   15 Dec 1992 14:47:18   pws
'* Added CTL3D.DLL.
'*
'*    Rev 1.12   10 Nov 1992 12:37:56   pws
'* Made more dialogs product-specific.
'*
'* ---
'* See logfile for earlier revision comments
'*
'* Copyright (C) 1990- by Greg Hendershott.  All rights reserved.
'**************************************************************************

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

''These should have all been in SETUPAPI.INC.
''Note that duplicate definitions are errors and so are commented out!

'CONST MB_OK               = &H0000
CONST MB_OKCANCEL         = &H0001
CONST MB_ABORTRETRYIGNORE = &H0002
CONST MB_YESNOCANCEL      = &H0003
CONST MB_YESNO            = &H0004
CONST MB_RETRYCANCEL      = &H0005
CONST MB_TYPEMASK         = &H000F

'CONST MB_ICONHAND         = &H0010
CONST MB_ICONQUESTION     = &H0020
CONST MB_ICONEXCLAMATION  = &H0030
CONST MB_ICONASTERISK     = &H0040
CONST MB_ICONMASK         = &H00F0

CONST MB_ICONINFORMATION  = MB_ICONASTERISK
CONST MB_ICONSTOP         = MB_ICONHAND

CONST MB_DEFBUTTON1       = &H0000
CONST MB_DEFBUTTON2       = &H0100
CONST MB_DEFBUTTON3       = &H0200
CONST MB_DEFMASK          = &H0F00

CONST MB_APPLMODAL        = &H0000
CONST MB_SYSTEMMODAL      = &H1000
'CONST MB_TASKMODAL        = &H2000

CONST MB_NOFOCUS          = &H8000

CONST IDOK                = 1
CONST IDCANCEL            = 2
CONST IDABORT             = 3
CONST IDRETRY             = 4
CONST IDIGNORE            = 5
CONST IDYES               = 6
CONST IDNO                = 7

''Dialog ID's
CONST WELCOME_PRO             = 170
CONST WELCOME_DEMO            = 171
CONST WELCOME_LITE            = 172
CONST ASKQUIT                 = 200
CONST DESTPATH                = 300
CONST USERINFO                  = 310
CONST EXITFAILURE             = 400
CONST EXITQUIT_PRO            = 670
CONST EXITQUIT_DEMO           = 671
CONST EXITQUIT_LITE           = 672
CONST EXITSUCCESS_PRO         = 770
CONST EXITSUCCESS_DEMO        = 771
CONST EXITSUCCESS_LITE        = 772
CONST APPHELP_PRO             = 970
CONST APPHELP_DEMO            = 971
CONST APPHELP_LITE            = 972
CONST INI_NOT_OVERWRITTEN     = 1000
CONST PATCHES_NOT_OVERWRITTEN = 1100
CONST BADPATH                 = 6400

''Bitmap ID
CONST LOGO = 1

GLOBAL COMPANY$
GLOBAL PROGNAME$
GLOBAL PRODUCTNAME$
GLOBAL DEST$        ''Default destination directory.

DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE SUB MaybeAssociate (szExt$)

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

    ''Determine full SETUP.INF path+name (same name for all products).
    szInf$ = GetSymbolValue("STF_SRCINFPATH")
    IF szInf$ = "" THEN
        szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
    END IF
    ReadInfFile szInf$

    ''Determine which product we are by seeing if specific section name exists.
    IF DoesIniSectionExist(szInf$, "pro") <> 0 THEN
        PROGNAME$ = "WINCAKE"
        PRODUCTNAME$ = "Cakewalk Professional"
        PROGMANGROUPNAME$ = "Cakewalk Professional"
        INIBASENAME$ = "WINCAKE"
        DEST$ = "C:\WINCAKE"
    ELSEIF DoesIniSectionExist(szInf$, "demo") <> 0 THEN
        PROGNAME$ = "WCWDEMO"
        PRODUCTNAME$ = "Cakewalk Professional Demo"
        PROGMANGROUPNAME$ = "Cakewalk Professional"
        INIBASENAME$ = "WINCAKE"
        DEST$ = "C:\WINCAKE"
    ELSEIF DoesIniSectionExist(szInf$, "lite") <> 0 THEN
        PROGNAME$ = "WCWLITE"
        PRODUCTNAME$ = "Cakewalk Apprentice"
        PROGMANGROUPNAME$ = "Cakewalk Apprentice"
        INIBASENAME$ = "WCWLITE"
        DEST$ = "C:\WCWLITE"
    ELSE
        GOTO ERRQUIT
    END IF

    winVerReqd$ = "3.1"

    SetBitmap CUIDLL$, LOGO
    SetTitle PRODUCTNAME$ + " Setup"

    winVer$ = LTRIM$(STR$(GetWindowsMajorVersion())) + "." + LTRIM$(STR$(GetWindowsMinorVersion()))
    IF winVer$ < winVerReqd$ THEN             ''String sort works
        i% = DoMsgBox("Sorry, but your Windows version is "+winVer$+" and "+PRODUCTNAME$+" requires at least Windows "+winVerReqd$+".", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
        END
    END IF

    ''Disk cost list symbols
    FILECOSTS$   = "FileCosts"
    EXTRACOSTS$  = "ExtraCosts"
    STILLNEEDED$ = "StillNeeded"
    FOR i% = 1 TO 26 STEP 1
        AddListItem EXTRACOSTS$, "0"
    NEXT i%
    ''Add extra cost to Windows drive for ini/progman, etc.
    ixWinDrive% = ASC(UCASE$( MID$(GetWindowsDir(), 1, 1) )) - ASC("A") + 1
    ReplaceListItem EXTRACOSTS$, ixWinDrive%, "10240"


WELCOME:
    IF PROGNAME$ = "WINCAKE" THEN
        dlg% = WELCOME_PRO
        dlghelp% = APPHELP_PRO
    ELSEIF PROGNAME$ = "WCWDEMO" THEN
        dlg% = WELCOME_DEMO
        dlghelp% = APPHELP_DEMO
    ELSEIF PROGNAME$ = "WCWLITE" THEN
        dlg% = WELCOME_LITE
        dlghelp% = APPHELP_LITE
    END IF
    sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", dlghelp%, HELPPROC$)
    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", dlghelp%, HELPPROC$)
    DEST$ = GetSymbolValue("EditTextOut")

    IF sz$ = "CONTINUE" THEN
        IF IsDirWritable(DEST$) = 0 THEN
            GOSUB BADPATH
            GOTO GETPATHL1
        END IF
        UIPop 1
        ixAppDrive% = ASC(UCASE$( MID$(DEST$, 1, 1) )) - ASC("A") + 1
    ELSEIF sz$ = "REACTIVATE" THEN
        GOTO GETPATHL1
    ELSEIF sz$ = "BACK" THEN
        UIPop 1
        GOTO WELCOME
    ELSE
        GOSUB ASKQUIT
        GOTO GETPATH
    END IF

' Install
    GOSUB INSTALL
    IF StillNeed& > 0 THEN
        GOTO GETPATH
    END IF

QUIT:
    ON ERROR GOTO ERRQUIT

    IF ERR = 0 THEN
        IF PROGNAME$ = "WINCAKE" THEN
            dlg% = EXITSUCCESS_PRO
        ELSEIF PROGNAME$ = "WCWDEMO" THEN
            dlg% = EXITSUCCESS_DEMO
        ELSEIF PROGNAME$ = "WCWLITE" THEN
            dlg% = EXITSUCCESS_LITE
        END IF
    ELSEIF ERR = STFQUIT THEN
        IF PROGNAME$ = "WINCAKE" THEN
            dlg% = EXITQUIT_PRO
        ELSEIF PROGNAME$ = "WCWDEMO" THEN
            dlg% = EXITQUIT_DEMO
        ELSEIF PROGNAME$ = "WCWLITE" THEN
            dlg% = EXITQUIT_LITE
        END IF
    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("Installation failure.  Call " + COMPANY$ + " Technical Support", "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.
'*************************************************************************
INSTALL:

    ' Get user information; we'll stamp later.
    GOSUB DOUSERINFODIALOG

    SrcDir$ = GetSymbolValue("STF_SRCDIR")

    AddSectionFilesToCopyList "app", SrcDir$, DEST$
    IF PROGNAME$ = "WINCAKE" THEN
        AddSectionFilesToCopyList "pro", SrcDir$, DEST$
    ELSEIF PROGNAME$ = "WCWDEMO" THEN
        AddSectionFilesToCopyList "demo", SrcDir$, DEST$
    ELSEIF PROGNAME$ = "WCWLITE" THEN
        AddSectionFilesToCopyList "lite", SrcDir$, DEST$
    END IF
    AddSectionFilesToCopyList "appdlls", SrcDir$, DEST$
    AddSectionFilesToCopyList "system", SrcDir$, GetWindowsSysDir()

    StillNeed& = GetCopyListCost(EXTRACOSTS$, FILECOSTS$, STILLNEEDED$)
    IF StillNeed& > 0 THEN
        ClearCopyList
        FOR ix% = 1 TO 26 STEP 1              ''find first drive that needs space
            need1& = VAL(GetListItem(STILLNEEDED$, ix%))
            IF need1& > 0 THEN
                GOTO FNDDRV
            END IF
        NEXT ix%
        ix = ixAppDrive                       ''(shouldn't happen)
        need1& = 0
        StillNeed& = 1
FNDDRV:
        need$  = LTRIM$(STR$( (need1&+1023) / 1024 )) + "K bytes"
        cost$  = LTRIM$(STR$( (VAL(GetListItem(FILECOSTS$, ix%))+1023) / 1024 )) + "K"
        drive$ = CHR$(ix% - 1 + ASC("A")) + ":"
        msg$ = "Sorry, "+PRODUCTNAME$+" needs "+need$+" more ("+cost$+" total) on drive "+drive$+".  Clear space or try a new path."
        i% = DoMsgBox(msg$, "Setup Problem", MB_RETRYCANCEL+MB_TASKMODAL+MB_ICONHAND)
        IF i% = IDCANCEL THEN
            GOSUB ASKQUIT
        END IF
        RETURN          ''must RETURN out of GOSUB to pop stack, not just GOTO
    END IF

    CreateDir DEST$, cmoNone

    OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
    WriteToLogFile ""
    WriteToLogFile "User chose as destination directory: '" + DEST$ + "'"
    WriteToLogFile "May have had to create the directory: " + DEST$
    WriteToLogFile ""

    CopyFilesInCopyList

    ' Important: Do this here before any dialogs with an Exit button, so
    ' user cannot avoid stamping.
    GOSUB STAMPUSERINFO

    SetRegKeyValue PROGNAME$, PRODUCTNAME$
    SetRegKeyValue PROGNAME$+"\shell\print", ""
    SetRegKeyValue PROGNAME$+"\shell\open\command", MakePath(DEST$,PROGNAME$+".EXE") + " %1"
    MaybeAssociate "wrk"
    MaybeAssociate "mid"
    MaybeAssociate "mff"

''Deal with old installation where our app DLL's were in WINDOWS\SYSTEM.
''No more need to delete old DLL's, since we don't use any with same name now.
''If old TTSSEQ.INI exists in sysdir but not in appdir, copy it now to preserve settings.
    SysDir$ = GetWindowsSysDir()
    IF DoesFileExist(SysDir$+"TTSSEQ.INI",femExists) <> 0 AND DoesFileExist(DEST$+"TTSSEQ.INI",femExists) = 0 THEN
        CopyFile SysDir$+"TTSSEQ.INI", DEST$+"\TTSSEQ.INI", cmoNone, 0
    END IF

    IF PROGNAME$ <> "WCWLITE" THEN
        ini$ = MakePath(DEST$, INIBASENAME$+".INI")
        drm$ = MakePath(DEST$, "DRM.INI")
        IF DoesFileExist(ini$,femExists) = 0 THEN
            CopyFile drm$, ini$, cmoVital, 0
        ELSE
            sz$ = UIStartDlg(CUIDLL$, INI_NOT_OVERWRITTEN, "FInfoDlgProc", 0, "")
            IF sz$ = "EXIT" THEN
                GOSUB ASKQUIT
            ELSE
                UIPop 1
            END IF
        END IF
    END IF

    patches$ = MakePath(DEST$, "PATCHES.INI")
    pat$ = MakePath(DEST$, "PAT.INI")
    IF DoesFileExist(patches$,femExists) = 0 THEN
        CopyFile pat$, patches$, cmoVital, 0
    ELSE
        sz$ = UIStartDlg(CUIDLL$, PATCHES_NOT_OVERWRITTEN, "FInfoDlgProc", 0, "")
        IF sz$ = "EXIT" THEN
            GOSUB ASKQUIT
        ELSE
            UIPop 1
        END IF
    END IF

    CreateProgmanGroup PROGMANGROUPNAME$, "", cmoNone
    ShowProgmanGroup  PROGMANGROUPNAME$, 1, cmoNone
    CreateProgmanItem PROGMANGROUPNAME$, PRODUCTNAME$, MakePath(DEST$,PROGNAME$+".EXE"), "", cmoOverwrite
    CreateProgmanItem PROGMANGROUPNAME$, "README.WRI", "write.exe "+MakePath(DEST$,"readme.wri"), "", cmoOverwrite
    WriteToLogFile ""

    WriteToLogFile "SUB Install completed."
    CloseLogFile

    RETURN



'**
'** 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



'**
'** Purpose:
'** Arguments:
'** Returns:
'**     none.
'*************************************************************************
DOUSERINFODIALOG:
' Get user info for stamping later
    IF PROGNAME$ <> "WCWDEMO" THEN
GETUSERINFO:
        sz$ = UIStartDlg(CUIDLL$, USERINFO, "FNameOrgDlgProc", dlghelp%, HELPPROC$)
        IF sz$ = "REACTIVATE" THEN
            GOTO GETUSERINFO
        END IF

        szUser$ = GetSymbolValue( "NameOut" )
        szCo$ = GetSymbolValue( "OrgOut" )

        ' Company may be blank, but not the other two
        IF szUser$ = "" THEN
            msg$ = "You must supply your name or Setup cannot proceed."
            i% = DoMsgBox(msg$, "Setup Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
            GOTO GETUSERINFO
        END IF

        ' Dismiss dialog now that we've validated
        UIPop 1
    END IF

    RETURN


'**
'** Purpose:
'** Arguments:
'** Returns:
'**     none.
'*************************************************************************
STAMPUSERINFO:
' Stamp user info
    IF PROGNAME$ <> "WCWDEMO" THEN

        ' szUser$ szCo$ were prompted for above
        szDat$ = CHR$(LEN(szUser$)) + szUser$
        szDat$ = szDat$ + CHR$(LEN(szCo$)) + szCo$

        IF PROGNAME$ = "WINCAKE" THEN
            szInfSect$ = "pro"
        ELSEIF PROGNAME$ = "WCWLITE" THEN
            szInfSect$ = "lite"
        END IF

        ' 6 is the resource type for STRINGTABLE entries
        '
        ' &H401 is the upper 12 bits of IDS_USERNAME (0x4000) + 1.
        '
        ' In DSKLAYT we specified a reference key for the .EXE which
        ' is the same as PROGNAME$.
        StampResource szInfSect$,PROGNAME$,DEST$,6,&H401,szDat$,LEN(szDat$)
    END IF

    RETURN


'**
'** Purpose:
'**     Associates given filetype with us, but asks for user confirmation
'**     if already set to something else.
'** Arguments:
'**     szExt$ - filetype extension, e.g. "mid"
'** Returns:
'**     none.
'*************************************************************************
SUB MaybeAssociate (szExt$) STATIC
    oldProg$ = ""
    ok% = IDYES

'Check Registration Database (overrides WIN.INI [Extensions]).

    oldCmd$ = UCASE$( LTRIM$( GetRegKeyValue("."+szExt$+"\shell\open\command") ) )
    IF oldCmd$ = "" THEN    'didn't find direct association, check via prog name
        oldProg$ = LTRIM$( RTRIM$( GetRegKeyValue("."+szExt$) ) )
        IF oldProg$ <> "" THEN
            oldCmd$ = UCASE$( LTRIM$( GetRegKeyValue(oldProg$+"\shell\open\command") ) )
            oldProduct$ = LTRIM$( RTRIM$( GetRegKeyValue(oldProg$) ) )
            IF oldProduct$ <> "" THEN    'long product name found, use it
                oldProg$ = oldProduct$
            END IF
        END IF
    END IF
    IF oldCmd$ <> "" THEN
        IF INSTR(oldCmd$, PROGNAME$+".EXE") = 0 THEN    'not us, must confirm
            IF oldProg$ = "" THEN   'no short or long name, parse command string
                j% = INSTR(oldCmd$, " ")
                IF j% > 1 THEN
                    oldProg$ = MID$(oldCmd$, 1, j%-1)
                ELSE
                    oldProg$ = oldCmd$
                END IF
            END IF
        ELSE                            'it's us, clear oldProg$ => no confirm
            oldProg$ = ""
        END IF
        GOTO MAYBE_CONFIRM      'found association, no need to examine WIN.INI
    END IF

'Check WIN.INI [Extensions].

    oldCmd$ = UCASE$( LTRIM$( GetIniKeyString("WIN.INI","Extensions",szExt$) ) )
    IF oldCmd$ <> "" THEN
        IF INSTR(oldCmd$, PROGNAME$+".EXE") = 0 THEN    'not us, must confirm
            j% = INSTR(oldCmd$, " ")
            IF j% > 1 THEN
                oldProg$ = MID$(oldCmd$, 1, j%-1)
            ELSE
                oldProg$ = oldCmd$
            END IF
        END IF
    END IF

'Get user confirmation if necessary, and do the association if ok.

MAYBE_CONFIRM:
    IF oldProg$ <> "" THEN
        ok% = DoMsgBox("."+UCASE$(szExt$)+" files are currently associated with "+oldProg$+".  Switch association to "+PRODUCTNAME$+"?", "Setup Question", MB_YESNO+MB_TASKMODAL+MB_ICONQUESTION)
    END IF

    IF ok% = IDYES THEN
        DeleteRegKey   "."+szExt$       'delete all keys for any old direct association
        SetRegKeyValue "."+szExt$, PROGNAME$
        CreateIniKeyValue "WIN.INI", "Extensions", szExt$, MakePath(DEST$,PROGNAME$+".EXE") + " ^." + szExt$, cmoOverwrite
    END IF

END SUB