HomeWare 14/HOMEWARE14.bin/windows/editprog/chinwar1.arj/CHINESEL.MST

Text File | 1993-12-03 | 5KB | 214 lines

'**************************************************************************
'*
'*      ChineseWare Setup Script
'*
'**************************************************************************

'$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 APPHELP       = 900
CONST BADPATH       = 6400
CONST UPDATEAUTOEXEC    = 7900

''Bitmap ID
CONST LOGO = 1

GLOBAL DEST$        ''Default destination directory.
GLOBAL ValidInt%

DECLARE SUB Install
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
DECLARE FUNCTION FCheckSnumrec LIB "mscuistf.dll" AS INTEGER
DECLARE FUNCTION FCreateSnumrec LIB "mscuistf.dll" AS INTEGER

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

    SetBitmap CUIDLL$, LOGO
    SetTitle "ChineseWare Setup"

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

    DEST$ = GetWindowsDir
    DEST$ = MID$(DEST$, 1, 3) + "CHINESE"

WELCOME:

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


OPTION:


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 OPTION
    ELSE
    GOSUB ASKQUIT
    GOTO GETPATH
    END IF

    SetSymbolValue "EditTextIn", DEST$

    drive$ = MID$(DEST$, 1, 1)
    free& = GetFreeSpaceForDrive(drive$)
    IF free& < 5000000 THEN
      myInt% = DoMsgBox("You need at least 5 MB free space to install ChineseWare basic version, delete some files and try setup again.", "Insufficient Disk Space!", MB_OK+MB_TASKMODAL+MB_ICONHAND)
      GOTO ERRQUIT
    END IF

    ValidInt% = FCheckSnumrec()

    Install

    IF ValidInt% = 1 THEN
    IF FCreateSnumrec() = -1 THEN
      myInt% = DoMsgBox("Can not install ChineseWare", "Error: Can not Create Files", MB_OK+MB_TASKMODAL+MB_ICONHAND)
      GOTO ERRQUIT
    END IF
    END IF


    IF GetWindowsDir <> (DEST$+"\")  THEN

    sz$ = GetWindowsDir
'''    sz$ = MID$(sz$, 1, LEN(sz$)-1)
    sz$ = MakePath(sz$, "CWIN.INI")
    szz$ = MakePath(DEST$, "CWIN.INI")
    CopyFile szz$, sz$, cmoOverwrite, 0

    sz$ = UIStartDlg(CUIDLL$, UPDATEAUTOEXEC, "FUpdateAutoexecDlgProc", 0, "")
    UIPop 1

    END IF

    CreateProgmanGroup "ChineseWare", "", cmoNone
    CreateProgmanItem "ChineseWare", "ChineseWare", MakePath(DEST$,"CWIN.EXE"), "", cmoOverwrite
    CreateProgmanItem "ChineseWare", "Readme.wri", MakePath(DEST$,"readmech.wri"), "", cmoOverwrite
    CreateProgmanItem "ChineseWare", "Manual.wri", MakePath(DEST$,"manualch.wri"), "", cmoOverwrite

''' utilities for std and adv version:
    CreateProgmanItem "ChineseWare", "CC==>Pic", MakePath(DEST$,"cc2pic.exe"), "", cmoOverwrite
    CreateProgmanItem "ChineseWare", "Gb<==>Big5", MakePath(DEST$,"gb2big5.exe"), "", cmoOverwrite


''' need to get out of Windows and restart computer
    IF GetWindowsDir <> (DEST$+"\")  THEN
      myInt% = DoMsgBox("Because of the new PATH added to Autoexec.bat, you need to restart the computer to run ChineseWare properly.", "Restart your computer to run ChineseWare", MB_OK+MB_TASKMODAL)
    END IF

    ShowProgmanGroup  "ChineseWare", 1, cmoNone


    END


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, please contact Daytron Inc.", "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



SUB Install STATIC

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

    AddSectionFilesToCopyList "SysFiles", SrcDir$, DEST$
    CopyFilesInCopyList

END SUB



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