''////////////////////////////////// check if Sound Impression is currently running
findclass1$ = "EDITPARENT"
findclass2$ = "AUDRKPARENT"
findtitle$ = "Sound Impression"
lookforsi1% = FindWindow (findclass1$,findtitle$)
lookforsimin% = FindWindow (findclass2$,NULL)
If lookforsi1% <> 0 or lookforsimin% <> 0 then
runningstop% = MessageBox(hwnd%, "Sound Impression is running. Close it, then run Setup again.","Sound Impression Setup", MB_OK+MB_TASKMODAL+MB_ICONSTOP)
axnotfound% = MessageBox(hwnd%, "Sound Impression program not found in this directory. Try again.", "Sound Impression Setup", MB_OK+MB_TASKMODAL+MB_ICONQUESTION)
lastchance% = MessageBox(hwnd%, "Are you SURE you want to remove Sound Impression from your hard disk?", "Sound Impression Deinstall", MB_YESNO+MB_TASKMODAL+MB_ICONQUESTION)
if IDYES then
GOTO DEINSTALL
else
GOTO CURPATHL1
end if
END IF
END IF
UIPop 1
ELSEIF sz$ = "REACTIVATE" THEN
GOTO CURPATHL1
ELSE
GOSUB ASKQUIT
GOTO CURPATH
END IF
end if
''//////////////////////////////////////// prep status report items,
''//////////////////////////////////////// get Help file ready to call if needed
source$ = GetSymbolValue("STF_SRCDIR")
helpsource$ = MakePath$(source$,"audiotec.hlp")
If OPTCUR$ = "1" then
helploc$ = MakePath(DEST$,"audiotec.hlp")
CopyFile helpsource$,helploc$,cmoOverwrite,0
elseif OPTCUR$ = "2" then
helploc$ = MakePath(PATHNOW$,"audiotec.hlp")
CopyFile helpsource$,helploc$,cmoOverwrite,0
end if
helptitle$ = "Sound Impression Help System"
helpWnd% = FindWindow (NULL,helptitle$)
STATUSITEMS$ = "ListItemsIn"
STATUSITEMSPICK$ = "ListItemsOut"
If CDD$ = "no" then
AddListItem STATUSITEMS$,"**** CD-ROM driver not detected"
end if
If SEQ$ = "no" then
AddListItem STATUSITEMS$,"**** MIDI driver not detected"
end if
If WAV$ = "no" then
AddListItem STATUSITEMS$,"**** Wave audio driver not detected"
end if
If TIM$ = "no" then
AddListItem STATUSITEMS$,"**** Multimedia Timer not detected"
end if
AddListItem STATUSITEMS$,WORKSTRING$
AddListItem STATUSITEMS$,VIRTSTRING$
If wtempswapd$ <> "" Then
AddListItem STATUSITEMS$,TEMPSWAP$
end if
If wpermswapd$ <> "" Then
AddListItem STATUSITEMS$,PERMSWAP$
else
AddListItem STATUSITEMS$,NOPERMSWAP$
end if
AddListItem STATUSITEMS$,wproctyprpt$
If DOSVERRPT$ <> "" then
AddListItem STATUSITEMS$,DOSVERRPT$
end if
If WINVERRPT <> "" then
AddListItem STATUSITEMS$,WINVERRPT$
end if
If wmode% <> 2 then
AddListItem STATUSITEMS$,WMODERPT$
end if
IF MOUSERPT$ <> "" then
AddListItem STATUSITEMS$,MOUSERPT$
end if
IF ARIALRPT$ <> "" then
AddListItem STATUSITEMS$,ARIALRPT$
end if
IF ARIALKEY$ <> "" then
AddListItem STATUSITEMS$,ARIALKEY$
end if
If TRUTYPRPT$ <> "" then
AddListItem STATUSITEMS$,TRUTYPRPT$
end if
If TRUTYPKEY$ <> "" then
AddListItem STATUSITEMS$,TRUTYPKEY$
end if
If WBITRPT$ <> "" then
AddListItem STATUSITEMS$,WBITRPT$
end if
''//////////////////////////////////////// show status report
closeremoval% = MessageBox(hwnd%, "Sound Impression files have been removed.", "Sound Impression deinstallation", MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
UIPopAll
stop
XDEINSTALL:
if exists (MakePath(PATHNOW$ , "*.*")) then
verifyfdel% = MessageBox(hwnd%, "One or more files (not identified as Sound Impression program files) remain in directory" + DEST$ + ".","Sound Impression Setup", MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)
'nopm% = MessageBox(hwnd%,"Program Manager not found on your path. Add Sound Impression paths and properties to your shell after installation.", "Sound Impression Setup)", MB_OK+MB_ICONINFORMATION)
'end if
''///////////////// (installation): if the logfile isn't already closed, close it and end setup
if logclosed% = 0 then
CloseLogFile
end if
END SUB
''/////////////////////////////////// end subroutine
SUB FINIS STATIC
If SETUPOK = "success" then
endit:
end if
END SUB
''/////////////////////////////////// subroutine to remove SI files & destination directory
''/////////////////////////////////// if process cancelled by user
''<<<NEW:'end if' that was here moved to end of this sub (it's the third one down there)
if exists (MakePath(DEST$ , "*.*")) then
verifydel3% = MessageBox(hwnd%, "One or more files (not identified as Sound Impression program files) remain in directory" + DEST$ + ".","Sound Impression Setup", MB_OK+MB_TASKMODAL+MB_ICONINFORMATION)