BUG 1/BUGCD1996_0708.ISO/pc/aplic/lapis/disk1/lapis.mst

Text File | 1995-11-10 | 10KB | 319 lines

'**************************************************************************
'*                       MSSetup Toolkit Sample 1
'**************************************************************************

'$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 EXITRESTART   = 750
CONST OPTIONS       = 800
CONST APPHELP       = 900
CONST BADPATH       = 6400

CONST TRUE      = -1
CONST FALSE     = 0

''Bitmap ID
CONST LOGO = 1

const MB_ICONINFORMATION = 64

'declare sub MessageBox lib "user.exe" (hwnd%, message$,title$, options%)


GLOBAL DEST$        ''Default destination directory.
GLOBAL OPTCUR$      ''Option selection from option dialog.
GLOBAL DestDrive$
GLOBAL PRODUCTNAME$
GLOBAL WinDrive$

DECLARE SUB Install
DECLARE FUNCTION CheckSpace () AS INTEGER
DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING

DECLARE FUNCTION ShowWindow  LIB "user.exe" (hWnd%,iShow%) AS INTEGER
DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG     ''this declaration must all be on one line
DECLARE FUNCTION     MessageBox LIB "User" (hwnd%, message$,title$, options%) AS INTEGER

DECLARE FUNCTION CreateScalableFontResource LIB "gdi.exe" (fHidden%,ResFile$,FontFile$,CurrentPath$) AS INTEGER
DECLARE FUNCTION AddFontResource LIB "gdi.exe" (ResFile$) AS INTEGER

DECLARE FUNCTION WriteProfileString Lib "Kernel" (lpApplicationName$, lpKeyName$, lpString$) AS INTEGER

INIT:
'**************************************************************************************************
'--------------------------------------------------------------------------
''following were taken from windows.h. &H means they're hex
CONST WS_VISIBLE=&H10000000
CONST WS_BORDER =&H00800000
CONST WS_CLIPCHILDREN =&H02000000
CONST GWL_STYLE =-16

CONST SW_SHOWMAXIMIZED=3

hWnd%=HwndFrame()
i1&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
j1%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
'--------------------------------------------------------------------------
'**************************************************************************************************
     PRODUCTNAME$ = "LAPIS 1.5"
     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure

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

     szInf$ = GetSymbolValue("STF_SRCINFPATH")
     IF szInf$ = "" THEN
          szInf$ = MakePath(GetSymbolValue("STF_CWDDIR"),"LAPIS.INF")
     END IF
     ReadInfFile szInf$

     OPTCUR$ = "1.5"
     DEST$ = "C:\LAPIS"

     WinDrive$ = MID$(GetWindowsDir, 1, 1)
     IF IsDriveValid(WinDrive$) = 0 THEN
          i% = DoMsgBox("Upisani disk ('"+WinDrive$+"') nije valjana vrijednost.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
          GOTO QUIT
     END IF

WELCOME:
     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, 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", APPHELP, HELPPROC$)
     DEST$ = GetSymbolValue("EditTextOut")

     IF sz$ = "CONTINUE" THEN
          DestDrive$ = MID$(DEST$, 1, 1)
          IF IsDriveValid(DestDrive$) = 0 THEN
         GOSUB BADPATH
                GOTO GETPATHL1
          END IF
          IF IsDirWritable(DEST$) = 0 THEN
                GOSUB BADPATH
                GOTO GETPATHL1
          END IF
          UIPop 1
     ELSEIF sz$ = "REACTIVATE" THEN
          GOTO GETPATHL1
     ELSEIF sz$ = "BACK" THEN
          GOTO GETPATHL1
     ELSE
          GOSUB ASKQUIT
          GOTO GETPATH
     END IF

     IF CheckSpace() = FALSE THEN
    GOTO GETPATH
     END IF

     Install     'POZIVA sub funckiju koja instalira program

QUIT:
     ON ERROR GOTO ERRQUIT

     IF ERR = 0 THEN
          IF RestartListEmpty() = 0 THEN
         dlg% = EXITRESTART
          ELSE
                dlg% = EXITSUCCESS
          END IF
     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

     IF dlg% = EXITRESTART THEN
    j% = ExitExecRestart()
     END IF
     END

ERRQUIT:
     i% = DoMsgBox("IzvoriÜne instalacijske datoteke su oÜteµene!", "Poruka instalacije", 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.
'**************************************************************************************************
STATIC FUNCTION CheckSpace() AS INTEGER

     SrcDir$ = GetSymbolValue("STF_SRCDIR")

     ClearCopyList

            'Komentar iskljucuje setup datoteke
     'AddSectionFilesToCopyList "Files", SrcDir$, DEST$

     AddSectionFilesToCopyList "Root", SrcDir$, DEST$
     AddSectionFilesToCopyList "Slike", SrcDir$, MakePath(DEST$,"Slike")
                 'AddSectionFilesToCopyList "Primjeri", SrcDir$, MakePath(DEST$,"Primjeri")
     AddSectionFilesToCopyList "Obrasci", SrcDir$, MakePath(DEST$,"Obrasci")
     AddSectionFilesToCopyList "System", SrcDir$, GetWindowsSysDir()
     'AddSectionFilesToCopyList "Windows", SrcDir$, GetWindowsDir()

     FOR i% = 1 TO 26 STEP 1
          AddListItem "EXTRA", "0"
     NEXT i%

     wd% = ASC(ucase$(WinDrive$)) - ASC("A") + 1
     dd% = ASC(ucase$(DestDrive$)) - ASC("A") + 1

     ReplaceListItem "EXTRA", wd%, "10240"

     spaceNeeded& = GetCopyListCost("EXTRA","COST","NEEDED")
     IF spaceNeeded& = 0 THEN
    CheckSpace = TRUE
     ELSE
    CheckSpace = FALSE
    w& = VAL(GetListItem("NEEDED",wd%))
    d& = VAL(GetListItem("NEEDED",dd%))
    m$ = "Nema dovoljno prostora na disku za instalirati Lapis."
    IF d& > 0 THEN
         m$ = m$ + CHR$(10) + CHR$(10)
         m$ = m$ + "Potrebito je dodatnih " + STR$((d&+999)/1000) + " kilobytea na disku " + DestDrive$ + "."
                m$ = m$ + " Izaberite drugi disk za instalaciju, ili oslobodite dodatnog mjesta na disku " + DestDrive$ + "."
          END IF
    IF (w& > 0) AND (wd% <> dd%) THEN
         m$ = m$ + CHR$(10) + CHR$(10)
         m$ = m$ + "Morate osloboditi dodatnih " + STR$((w&+999)/1000) + " kilobytea na disku " + WinDrive$
                m$ = m$ + " prije instalacije Lapisa."
    END IF
    i% = DoMsgBox(m$,"Nema dovoljno prostora na disku",MB_TASKMODAL+MB_OK+MB_ICONHAND)
     END IF


END FUNCTION

'**************************************************************************************************
STATIC SUB Install

     CreateDir DEST$, cmoNone
     CreateDir MakePath(DEST$,"Slike"), cmoNone

     SetRestartDir DEST$

     CopyFilesInCopyList


     IniFile$ = MakePath(GetWindowsDir(),"lapis.ini")
     'IF DoesFileExist(IniFile$,femReadWrite) = 1 THEN
     'RemoveFile IniFile$,cmoNone
     'END IF

     IF DoesIniSectionExist(IniFile$,"Registration") THEN
     RemoveIniSection IniFile$,"Registration",cmoNone
     END IF

     CreateProgmanGroup "Lapis", "", cmoNone
     ShowProgmanGroup  "Lapis", 1, cmoNone
     CreateProgmanItem "Lapis", PRODUCTNAME$, MakePath(DEST$,"lapis.exe"), "", cmoOverwrite
     CreateProgmanItem "Lapis", "Lapis", MakePath(DEST$,"lapis.hlp"), "", cmoOverwrite
     CreateProgmanItem "Lapis", "PolarGraf", MakePath(DEST$,"polargrf.hlp"), "", cmoOverwrite



     dumm% = WriteProfileString("Extensions", "rtf", MakePath(DEST$,"lapis.exe") + " ^.rtf")


    if RestartListEmpty ()=0 then
        ii% = MessageBox (hwndFrame , "Sada µe se Windows ponovo pokrenuti.", "Lapis Instalacijska poruka", MB_OK+MB_ICONINFORMATION)
        eer:
        i% = ExitExecRestart ()
        jj% = MessageBox (hwndFrame , "Windows se ne mo₧e ponovo pokrenuti, jer je aktivan MS-DOS program.  Zatvorite sve MS-DOS programe, a zatim pritisnite OK.", "Lapis Instalacijska poruka", MB_OK + MB_ICONSTOP)
        goto eer
    end if

'            if RestartListEmpty ()=0 then
 '             '' The following two lines must go on one line.
  '             MessageBox hwndFrame (), "Sada µe se Windows ponovo pokrenuti.", "Lapis Instalacijska poruka", MB_OK+MB_ICONINFORMATION
    '        eer:
     '         i%=ExitExecRestart ()
      '
        '     '' The following three lines must go on one line.
         '     MessageBox hwndFrame (), "Windows se ne mo₧e ponovo pokrenuti, jer je aktivan MS-DOS program.  Zatvorite sve MS-DOS programe, a zatim pritisnite OK.", "Lapis Instalacijska poruka", MB_OK+MB_ICONSTOP
          '     goto eer
            'end if

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
    IF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
         MakePath = MID$(szDir$, 1, LEN(szDir$)-1)
    ELSE
         MakePath = szDir$
    END IF
     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
          MakePath = szDir$ + szFile$
     ELSE
          MakePath = szDir$ + "\" + szFile$
     END IF
END FUNCTION