home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Midisoft Multimedia Screensavers
/
MidisoftScreensavers.iso
/
setup.mst
< prev
next >
Wrap
Text File
|
1994-08-17
|
11KB
|
427 lines
'**************************************************************************
'* Midisoft Sequencer Setup
'*
'* DEFINE STUDIO, SESSION, MUSICMAGIC, AUDIOWORKS, WOMSMPLR, POPBLOCKS
'*
'* This is a hack install to install Midisoft Screen Savers
'*
'*
'*
'*
'*
'*
'*
'*
'**************************************************************************
'$INCLUDE 'setupapi.inc'
'$INCLUDE 'msdetect.inc'
DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG
DECLARE FUNCTION GetWindowLong LIB "user.exe" (hWnd%, offset%) AS LONG
''Dialog ID's
CONST WELCOME = 100
CONST WELCOMEX = 150
CONST ASKQUIT = 200
CONST ASKQUITX = 250
CONST DESTPATH1 = 300
CONST DESTPATH1X = 350
CONST EXITFAILURE = 400
CONST EXITFAILUREX = 450
CONST EXITQUIT = 600
CONST EXITQUITX = 650
CONST EXITSUCCESS = 700
CONST EXITSUCCESSX = 750
CONST OPTIONS = 800
CONST OPTIONSX = 850
CONST APPHELP = 900
CONST APPHELPX = 950
CONST ALREADYEXISTS = 1000
CONST ALREADYEXISTSX = 1050
CONST CUSTINST = 6451 'WAS 6200
CONST TOOBIG = 6300
CONST TOOBIGX = 6350
CONST BADPATH = 6400
CONST BADPATHX = 6450
''Bitmap ID
CONST LOGO1 = 1
CONST LOGO2 = 2
CONST WS_VISIBLE = &H10000000
CONST WS_CLIPCHILDREN = &H2000000
CONST WS_BORDER = &H800000
CONST SW_SHOWMAXIMIZED = 3
CONST GWL_STYLE =-16
Global ac$
Global ap$
Global az$
GLOBAL DEST$ ''Default destination directory.
GLOBAL OPTCUR$ ''Option selection from option dialog.
GLOBAL SCRWID%
GLOBAL WINDRIVE$ 'duh
GLOBAL WINDIR$
GLOBAL COMPOSERS%
GLOBAL PHONEBALONE% 'I'm hoping to set a global flag to true or false
GLOBAL ZAPPER% 'depending on the item selected
GLOBAL HDSPACE&
DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
INIT:
CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
WINDIR$ = GetWindowsDir()
mainWnd%=HwndFrame()
curLong& = GetWindowLong (mainWnd%, GWL_STYLE) 'Creates window with
curLong& = curLong& OR (WS_BORDER OR WS_CLIPCHILDREN OR WS_CAPTION) 'title bar (Note: using
w&=SetWindowLong (mainWnd%, GWL_STYLE, curLong&) 'HT video drivers icon
'on one screen is corrupt)
'w&=SetWindowLong(mainWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
j%=ShowWindow(mainWnd%,SW_SHOWMAXIMIZED)
SCRWID% = GetScreenWidth()
IF SCRWID% = 640 THEN
SetBitmap CUIDLL$, LOGO1
ELSE
SetBitmap CUIDLL$, LOGO2
END IF
SetTitle "Midisoft MultiMedia Screen Saver Setup"
szInf$ = GetSymbolValue("STF_SRCINFPATH")
IF szInf$ = "" THEN
szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
END IF
ReadInfFile szInf$
OPTCUR$ = "1"
DEST$ = WINDRIVE$ + "c:\ssmedia" 'WINDRIVE$ WASN'T WORKING...FIX LATER
WELCOME:
IF scrwid% = 640 THEN
sz$ = UIStartDlg(CUIDLL$, WELCOMEX, "FInfoDlgProc", APPHELP, HELPPROC$)
ELSE
sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
END IF
IF sz$ = "CONTINUE" THEN
UIPop 1
ELSE
GOSUB ASKQUIT
GOTO WELCOME
END IF
CUSTINST:
sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPHELP, HELPPROC$)
CHECKSTATES$ = "CheckItemsState"
FOR i% = 1 TO 3 STEP 1
AddListItem CHECKSTATES$, "ON"
NEXT i%
'For i% = 1 to 3
ac$ = GetListItem (CHECKSTATES$, 1) '<> '"" then
ap$ = GetListItem (CHECKSTATES$, 2) ' If checke, the string is set to on
az$ = GetListItem (CHECKSTATES$, 3)
IF sz$ = "CONTINUE" Then
UIPop 1
GOTO GETPATH
ELSEIF sz$ = "EXIT" THEN
GOTO ASKQUIT
ELSE
GOTO CUSTINST
'GOTO GETPATH
'GOSUB ASKQUIT
END IF
GETPATH:
SetSymbolValue "EditTextIn", DEST$ 'az$ + ap$
SetSymbolValue "EditFocus", "END"
GETPATHL1:
IF scrwid% = 640 THEN
sz$ = UIStartDlg(CUIDLL$, DESTPATH1X, "FEditDlgProc", APPHELP, HELPPROC$)
ELSE
sz$ = UIStartDlg(CUIDLL$, DESTPATH1, "FEditDlgProc", APPHELP, HELPPROC$)
END IF
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
'Give warning if directory exists, give option to go back and change dest directory
'$IFNDEF POPBLOCKS
IF DoesDirExist(DEST$) THEN
UIPop 1
IF SCRWID% = 640 THEN
sz$ = UIStartDlg(CUIDLL$, ALREADYEXISTSX, "FInfoDlgProc", 0, "")
ELSE
sz$ = UIStartDlg(CUIDLL$, ALREADYEXISTS, "FInfoDlgProc", 0, "")
END IF 'Screen resolution
IF sz$ = "CONTINUE" THEN
UIPop 1
ELSEIF sz$ = "REACTIVATE" THEN
UIPop 1
GOTO GETPATHL1
ELSEIF sz$ = "BACK" THEN
UIPop 1
GOTO GETPATHL1
ELSE
UIPop 1
GOSUB ASKQUIT
GOTO GETPATH
END IF
END IF
'$ENDIF
'Check if HD has enough space for install
HDSPACE = 0
IF ac$ = "ON" Then
HDSPACE = HDSPACE + 6000000
ElseIf ap$ = "ON" Then
HDSPACE = HDSPACE + 4000000
ElseIf az$ = "ON" Then
HDSPACE = HDSPACE + 5000000
End If
checkdltr$ = mid$(DEST$, 1, 1)
checkdspc& = GetFreeSpaceForDrive(checkdltr$)
if checkdspc& < HDSPACE then
IF scrwid% = 640 THEN
sz$ = UIStartDlg(CUIDLL$, TOOBIGX, "FInfoDlgProc", APPHELP, HELPPROC$)
ELSE
sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfoDlgProc", APPHELP, HELPPROC$)
END IF
ERROR STFQUIT
GOTO QUIT
end if
Install
QUIT:
'ON ERROR GOTO ERRQUIT
IF ERR = 0 THEN
IF SCRWID% = 640 THEN
dlg% = EXITSUCCESSX
ELSE
dlg% = EXITSUCCESS
END IF
ELSEIF ERR = STFQUIT THEN
IF SCRWID% = 640 THEN
dlg% = EXITQUITX
ELSE
dlg% = EXITQUIT
END IF
ELSE
IF SCRWID% = 640 THEN
dlg% = EXITFAILUREX
ELSE
dlg% = EXITFAILURE
END IF
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, please call Midisoft Technical Support", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
BADPATH:
IF scrwid% = 640 THEN
sz$ = UIStartDlg(CUIDLL$, BADPATHX, "FInfoDlgProc", APPHELP, HELPPROC$)
ELSE
sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfoDlgProc", APPHELP, HELPPROC$)
END IF
IF sz$ = "REACTIVATE" THEN
GOTO BADPATH
END IF
UIPop 1
RETURN
ASKQUIT:
IF scrwid% = 640 THEN
sz$ = UIStartDlg(CUIDLL$, ASKQUITX, "FQuitDlgProc", APPHELP, HELPPROC$)
ELSE
sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", APPHELP, HELPPROC$)
END IF
IF sz$ = "EXIT" THEN
UIPop 5 'UIPopAll does not work
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.
'**********