home *** CD-ROM | disk | FTP | other *** search
/ Verbatim Entertainment Pack Sample 3.5" / verbatim_mep.img / WEPSETUP.MS_ / WEPSETUP.bin
Encoding:
Text File  |  1993-06-25  |  4.8 KB  |  215 lines
  1. '$INCLUDE 'setupapi.inc'
  2.  
  3. ''Dialog ID's
  4. CONST LEGAL            = 1200
  5. CONST WELCOME       = 100
  6. CONST ASKQUIT       = 200
  7. CONST DESTPATH      = 300
  8. CONST EXITFAILURE   = 400
  9. CONST EXITQUIT      = 600
  10. CONST EXITSUCCESS   = 700
  11. CONST APPHELP       = 900
  12. CONST BADPATH       = 6400
  13. CONST CHECKDIR      = 1000
  14. CONST TOOBIG        = 6300
  15.  
  16. ''Bitmap ID
  17. CONST LOGO = 1
  18.  
  19. GLOBAL DEST$        ''Default destination directory.
  20.  
  21. DECLARE SUB Install
  22. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  23.  
  24.  
  25. INIT:
  26.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  27.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  28.  
  29.     SetBitmap CUIDLL$, LOGO
  30.     SetTitle "Verbatim Entertainment Pack Sampler"
  31.  
  32.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  33.     IF szInf$ = "" THEN
  34.     szInf$ = GetSymbolValue("STF_CWDDIR") + "wepsetup.INF"
  35.     END IF
  36.     ReadInfFile szInf$
  37.  
  38.     DEST$ = "C:\WEP"
  39.  
  40. LEGAL:
  41.     sz$ = UIStartDlg(CUIDLL$, LEGAL, "FLegalDlgProc", APPHELP, HELPPROC$)
  42.     IF sz$ = "CONTINUE" THEN
  43.     UIPop 1
  44.     ELSE
  45.     END
  46.     END IF
  47.  
  48.  
  49. WELCOME:
  50.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  51.     IF sz$ = "CONTINUE" THEN
  52.     UIPop 1
  53.     ELSE
  54.     GOSUB ASKQUIT
  55.     GOTO WELCOME
  56.     END IF
  57.  
  58.     AddToBillboardList CUIDLL$,1100,"FBillboardDlgProc",50
  59.     SetCopyGaugePosition 125,138
  60.  
  61.  
  62.  
  63. GETPATH:
  64.     SetSymbolValue "EditTextIn", DEST$
  65.     SetSymbolValue "EditFocus", "END"
  66. GETPATHL1:
  67.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  68.     DEST$ = GetSymbolValue("EditTextOut")
  69.  
  70.     IF sz$ = "CONTINUE" THEN
  71.     IF IsDirWritable(DEST$) = 0 THEN
  72.         GOSUB BADPATH
  73.         GOTO GETPATHL1
  74.     END IF
  75.     UIPop 1
  76.     ELSEIF sz$ = "REACTIVATE" THEN
  77.     GOTO GETPATHL1
  78.     ELSEIF sz$ = "BACK" THEN
  79.     UIPop 1
  80.     GOTO WELCOME
  81.     ELSE
  82.     GOSUB ASKQUIT
  83.     GOTO GETPATH
  84.     END IF
  85.  
  86.     IF DoesDirExist(DEST$)=0 THEN
  87.     If DEST$<>"C:\WEP" THEN
  88.         sz$ = UIStartDlg(CUIDLL$, CHECKDIR, "FInfoDlgProc", APPHELP, HELPPROC$)
  89.         IF SZ$ = "BACK" THEN 
  90.             UIPOP 1
  91.             GOTO GETPATH
  92.         ELSE
  93.             UIPOP 1
  94.         ENDIF
  95.     ENDIF
  96.     ENDIF
  97.  
  98.  
  99. CHECKSIZE:
  100.     IF (GetFreeSpaceForDrive(MID$(DEST$,1,1)) < 2500000) THEN
  101.     sz$ = UIStartDlg(CUIDLL$,TOOBIG,"FInfoDlgProc", APPHELP,HELPPROC$)
  102.     UIPOP 1
  103.     GOTO GETPATHL1
  104.     ENDIF
  105.  
  106.  
  107.     Install
  108.  
  109.  
  110. QUIT:
  111.     ON ERROR GOTO ERRQUIT
  112.  
  113.     IF ERR = 0 THEN
  114.     dlg% = EXITSUCCESS
  115.     ELSEIF ERR = STFQUIT THEN
  116.     dlg% = EXITQUIT
  117.     ELSE
  118.     dlg% = EXITFAILURE
  119.     END IF
  120. QUITL1:
  121.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  122.     IF sz$ = "REACTIVATE" THEN
  123.     GOTO QUITL1
  124.     END IF
  125.     UIPop 1
  126.  
  127.     END
  128.  
  129. ERRQUIT:
  130.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  131.     END
  132.  
  133.  
  134.  
  135. BADPATH:
  136.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  137.     IF sz$ = "REACTIVATE" THEN
  138.     GOTO BADPATH
  139.     END IF
  140.     UIPop 1
  141.     RETURN
  142.  
  143.  
  144.  
  145. ASKQUIT:
  146.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  147.  
  148.     IF sz$ = "EXIT" THEN
  149.     UIPopAll
  150.     ERROR STFQUIT
  151.     ELSEIF sz$ = "REACTIVATE" THEN
  152.     GOTO ASKQUIT
  153.     ELSE
  154.     UIPop 1
  155.     END IF
  156.     RETURN
  157.  
  158.  
  159.  
  160. '**
  161. '** Purpose:
  162. '**     Builds the copy list and performs all installation operations.
  163. '** Arguments:
  164. '**     none.
  165. '** Returns:
  166. '**     none.
  167. '*************************************************************************
  168. SUB Install STATIC
  169.  
  170.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  171.     CreateDir DEST$, cmoNone
  172.  
  173.     WINDIR$=GetWindowsDir()
  174.     SYSDIR$=GetWindowsSysDir()
  175.  
  176.     AddSectionFilesToCopyList "WEP Files", SrcDir$, DEST$
  177.     AddSectionFilesToCopyList "System Files",SrcDir$, SYSDIR$
  178.  
  179.     CopyFilesInCopyList
  180.     ClearBillboardList
  181.  
  182.     CreateProgmanGroup "Verbatim Sampler", "", cmoNone
  183.     ShowProgmanGroup  "Verbatim Sampler", 1, cmoNone
  184.     CreateProgmanItem "Verbatim Sampler","Taipei",MakePath(DEST$,"tp.exe"), "", cmoOverwrite
  185.     CreateProgmanItem "Verbatim Sampler","FreeCell",MakePath(Dest$,"freecell.exe"),"", cmoOverwrite
  186.     CreateProgmanItem "Verbatim Sampler","SkiFree",MakePath(Dest$,"ski.exe"),"",cmoOverwrite
  187.     CreateProgmanItem "Verbatim Sampler","Dr. Black Jack",MakePath(Dest$,"Blakjak"),"",cmoOverwrite
  188.  
  189. END SUB
  190.  
  191.  
  192.  
  193. '**
  194. '** Purpose:
  195. '**     Appends a file name to the end of a directory path,
  196. '**     inserting a backslash character as needed.
  197. '** Arguments:
  198. '**     szDir$  - full directory path (with optional ending "\")
  199. '**     szFile$ - filename to append to directory
  200. '** Returns:
  201. '**     Resulting fully qualified path name.
  202. '*************************************************************************
  203. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  204.     IF szDir$ = "" THEN
  205.     MakePath = szFile$
  206.     ELSEIF szFile$ = "" THEN
  207.     MakePath = szDir$
  208.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  209.     MakePath = szDir$ + szFile$
  210.     ELSE
  211.     MakePath = szDir$ + "\" + szFile$
  212.     END IF
  213. END FUNCTION
  214.  
  215.