home *** CD-ROM | disk | FTP | other *** search
/ Swifte Typecase 2001 / TYPE2001.ISO / pc / setup.mst < prev    next >
Text File  |  1995-06-30  |  4KB  |  172 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. ''Dialog ID's
  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 OPTIONS       = 800
  12. CONST APPHELP       = 900
  13. CONST BADPATH       = 6400
  14. CONST SHOWMAX       = 3
  15.  
  16. ''Bitmap ID
  17. CONST LOGO = 1
  18.  
  19. GLOBAL DEST$        ''Default destination directory.
  20. GLOBAL OPTCUR$      ''Option selection from option dialog.
  21. GLOBAL SOURCE$
  22. GLOBAL SYSDIR$      ''System directory
  23. GLOBAL TTFPATH$     ''Location of font TTF file
  24. GLOBAL FOTPATH$     ''Location of font FON file
  25. GLOBAL FONTNAME$    ''Font File base name
  26.  
  27. DECLARE SUB Install
  28. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  29. DECLARE FUNCTION ActivateFont LIB "instfont.dll" (szFaceName$, szResourcePath$, szFontPath$, bPermanent%) as INTEGER
  30. DECLARE FUNCTION ShowWindow LIB "user" (hwnd%, nCmdShow%) AS INTEGER
  31.  
  32.  
  33. INIT:
  34.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  35.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  36.  
  37.     hwnd% = HwndFrame
  38.     i% = ShowWindow(hwnd, SHOWMAX)
  39.  
  40.     SetBitmap CUIDLL$, LOGO
  41.     SetTitle "Typecase 2001"
  42.  
  43.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  44.     IF szInf$ = "" THEN
  45.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  46.     END IF
  47.     ReadInfFile szInf$
  48.  
  49.     OPTCUR$ = "1"
  50.     DEST$ = GetWindowsDir ()
  51.     SYSDIR$ = GetWindowsSysDir()
  52.     SOURCE$ = GetSymbolValue ("STF_SRCDIR")
  53.  
  54. WELCOME:
  55.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  56.     IF sz$ = "CONTINUE" THEN
  57.         UIPop 1
  58.     ELSE
  59.         GOSUB ASKQUIT
  60.         GOTO WELCOME
  61.     END IF
  62.  
  63.  
  64.     Install
  65.  
  66.  
  67. QUIT:
  68.     ON ERROR GOTO ERRQUIT
  69.  
  70.     IF ERR = 0 THEN
  71.         dlg% = EXITSUCCESS
  72.     ELSEIF ERR = STFQUIT THEN
  73.         dlg% = EXITQUIT
  74.     ELSE
  75.         dlg% = EXITFAILURE
  76.     END IF
  77. QUITL1:
  78.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  79.     IF sz$ = "REACTIVATE" THEN
  80.         GOTO QUITL1
  81.     END IF
  82.     UIPop 1
  83.  
  84.     END
  85.  
  86. ERRQUIT:
  87.     i% = DoMsgBox("Setup sources were corrupted, please contact Swfte Technical Support","Underground CD-Rom Handbook to The SAT", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  88.     END
  89.  
  90.  
  91.  
  92. BADPATH:
  93.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  94.     IF sz$ = "REACTIVATE" THEN
  95.         GOTO BADPATH
  96.     END IF
  97.     UIPop 1
  98.     RETURN
  99.  
  100.  
  101.  
  102. ASKQUIT:
  103.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  104.  
  105.     IF sz$ = "EXIT" THEN
  106.         UIPopAll
  107.         ERROR STFQUIT
  108.     ELSEIF sz$ = "REACTIVATE" THEN
  109.         GOTO ASKQUIT
  110.     ELSE
  111.         UIPop 1
  112.     END IF
  113.     RETURN
  114.  
  115.  
  116.  
  117. '**
  118. '** Purpose:
  119. '**     Builds the copy list and performs all installation operations.
  120. '** Arguments:
  121. '**     none.
  122. '** Returns:
  123. '**     none.
  124. '*************************************************************************
  125. SUB Install STATIC
  126.  
  127.     '' Install fonts
  128.  
  129.     '' Copy font files from CD-ROM
  130.     AddSectionFilesToCopyList "book",   SOURCE$, SYSDIR$
  131.     CopyFilesInCopyList
  132.  
  133.     '' Install first Font
  134.     ''FONTNAME$ = "birds___"
  135.     ''TTFPATH$ = MakePath(SYSDIR$, FONTNAME$) + ".TTF"
  136.     ''FOTPATH$ = MakePath(SYSDIR$, FONTNAME$) + ".FOT"
  137.     '' install the font
  138.     ''i% = ActivateFont("birds___", FOTPATH$, TTFPATH$, 1)
  139.  
  140.    
  141.     CreateProgmanGroup "Typecase 2001", "", cmoNone
  142.     ShowProgmanGroup  "Typecase 2001", 1, cmoNone
  143. ''    CreateProgmanItem "Birds", "Birds", MakePath(SOURCE$,"birds.exe"), "", cmoOverwrite
  144.     CreateProgmanItem "Typecase 2001", "Typecase Font Browser", MakePath(SOURCE$,"fontbrow.exe"), MakePath(SYSDIR$,"type2001.ico"), cmoOverwrite
  145. END SUB
  146.  
  147.  
  148.  
  149. '**
  150. '** Purpose:
  151. '**     Appends a file name to the end of a directory path,
  152. '**     inserting a backslash character as needed.
  153. '** Arguments:
  154. '**     szDir$  - full directory path (with optional ending "\")
  155. '**     szFile$ - filename to append to directory
  156. '** Returns:
  157. '**     Resulting fully qualified path name.
  158. '*************************************************************************
  159. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  160.     IF szDir$ = "" THEN
  161.         MakePath = szFile$
  162.     ELSEIF szFile$ = "" THEN
  163.         MakePath = szDir$
  164.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  165.         MakePath = szDir$ + szFile$
  166.     ELSE
  167.         MakePath = szDir$ + "\" + szFile$
  168.     END IF
  169. END FUNCTION
  170.  
  171. 
  172.