home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 3 (Alt) / Chip_Hitware_Vol_03.iso / chiphit3 / dfu / browseed / setup.mst < prev    next >
Encoding:
Text File  |  1995-11-08  |  3.1 KB  |  133 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. CONST WELCOME       = 100
  5. CONST ASKQUIT       = 200
  6. CONST DESTPATH      = 300
  7. CONST EXITFAILURE   = 400
  8. CONST EXITQUIT      = 600
  9. CONST EXITSUCCESS   = 700
  10. CONST APPHELP       = 900
  11. CONST BADPATH       = 6400
  12. GLOBAL DEST$
  13. GLOBAL OPTCUR$
  14. GLOBAL hWndHND%
  15. CONST LOGO = 1
  16.  
  17. DECLARE SUB Install
  18. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  19.  
  20.  
  21. INIT:
  22.     CUIDLL$ = "mscuistf.dll"
  23.     HELPPROC$ = "FHelpDlgProc"
  24.     SetBitmap CUIDLL$, LOGO    
  25.     SetTitle "Browse Editor v1.0 Setup"
  26.     hWndHND% = HwndFrame()
  27.     ShowHND% = ShowWindow(hWndHND%, 3)
  28.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  29.     IF szInf$ = "" THEN
  30.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  31.     END IF
  32.     ReadInfFile szInf$
  33.  
  34.     OPTCUR$ = "1"
  35.     DEST$ = "C:\BROWSED"
  36.  
  37. WELCOME:
  38.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  39.     IF sz$ = "CONTINUE" THEN
  40.         UIPop 1
  41.     ELSE
  42.         GOSUB ASKQUIT
  43.         GOTO WELCOME
  44.     END IF
  45.  
  46. GETPATH:
  47.     SetSymbolValue "EditTextIn", DEST$
  48.     SetSymbolValue "EditFocus", "END"
  49. GETPATHL1:
  50.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  51.     DEST$ = GetSymbolValue("EditTextOut")
  52.  
  53.     IF sz$ = "CONTINUE" THEN
  54.         IF IsDirWritable(DEST$) = 0 THEN
  55.             GOSUB BADPATH
  56.             GOTO GETPATHL1
  57.         END IF
  58.         UIPop 1
  59.     ELSEIF sz$ = "REACTIVATE" THEN
  60.         GOTO GETPATHL1
  61.     ELSE
  62.         GOSUB ASKQUIT
  63.         GOTO GETPATH
  64.     END IF
  65.  
  66.  
  67.     Install
  68.  
  69.  
  70. QUIT:
  71.     IF ERR = 0 THEN
  72.         dlg% = EXITSUCCESS
  73.     ELSEIF ERR = STFQUIT THEN
  74.         dlg% = EXITQUIT
  75.     ELSE
  76.         dlg% = EXITFAILURE
  77.     END IF
  78. QUITL1:
  79.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  80.     IF sz$ = "REACTIVATE" THEN
  81.         GOTO QUITL1
  82.     END IF
  83.     UIPop 1
  84.  
  85.     END
  86.  
  87. BADPATH:
  88.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  89.     IF sz$ = "REACTIVATE" THEN
  90.         GOTO BADPATH
  91.     END IF
  92.     UIPop 1
  93.     RETURN
  94.  
  95. ASKQUIT:
  96.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  97.  
  98.     IF sz$ = "EXIT" THEN
  99.         UIPopAll
  100.         ERROR STFQUIT
  101.     ELSEIF sz$ = "REACTIVATE" THEN
  102.         GOTO ASKQUIT
  103.     ELSE
  104.         UIPop 1
  105.     END IF
  106.     RETURN
  107.  
  108. SUB Install STATIC
  109.  
  110.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  111.     CreateDir DEST$, cmoNone
  112.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  113.     CopyFilesInCopyList
  114.     CreateProgmanGroup "Browse Editor", "", cmoNone
  115.     ShowProgmanGroup  "Browse Editor", 1, cmoNone
  116.     CreateProgmanItem "Browse Editor", "Browse Editor", MakePath(DEST$,"browsed.exe"), "", cmoOverwrite
  117.     CreateProgmanItem "Browse Editor", "Browse Editor Help", "winhelp.exe "+MakePath(DEST$,"browsed.hlp"), "", cmoOverwrite
  118.     CloseLogFile
  119.  
  120. END SUB
  121.  
  122. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  123.     IF szDir$ = "" THEN
  124.         MakePath = szFile$
  125.     ELSEIF szFile$ = "" THEN
  126.         MakePath = szDir$
  127.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  128.         MakePath = szDir$ + szFile$
  129.     ELSE
  130.         MakePath = szDir$ + "\" + szFile$
  131.     END IF
  132. END FUNCTION
  133.