home *** CD-ROM | disk | FTP | other *** search
/ GU Photo: Mantan 2 - Seasons of Life / MANTAN2-2.iso / pc / setup.mst < prev    next >
Encoding:
Text File  |  1996-04-12  |  2.8 KB  |  135 lines
  1. '**************************************************************************
  2. '*                      GU Setup
  3. '*                       1995/05/16
  4. '*                                  written by K.Ishida ( ATOM Co.Ltd )
  5. '*                                  k-ishida@atom.co.jp
  6. '*
  7. '**************************************************************************
  8.  
  9. '$INCLUDE 'setupapi.inc'
  10. '$INCLUDE 'msdetect.inc'
  11.  
  12. ''Dialog ID's
  13. CONST WELCOME       = 100
  14. CONST ASKQUIT       = 200
  15. CONST DESTPATH      = 300
  16. CONST EXITFAILURE   = 400
  17. CONST EXITQUIT      = 600
  18. CONST EXITSUCCESS   = 700
  19. CONST OPTIONS       = 800
  20. CONST APPHELP       = 900
  21. CONST BADPATH       = 6400
  22.  
  23. ''Bitmap ID
  24. CONST LOGO = 1
  25.  
  26. GLOBAL DEST$
  27. GLOBAL OPTCUR$
  28. GLOBAL    PGROUP$
  29. GLOBAL    PITEM$
  30. GLOBAL PNAME$
  31.  
  32.  
  33. DECLARE SUB Install
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35.  
  36.  
  37. INIT:
  38.     CUIDLL$ = "mscuistf.dll"
  39.     HELPPROC$ = "FHelpDlgProc"
  40.     PGROUP$ = "GU"
  41.     PITEM$ = "MANTAN2-2"
  42.     PNAME$ = "MANTAN22.EXE"
  43.  
  44.     'SetBitmap CUIDLL$, LOGO
  45.     SetTitle "GU Setup"
  46.  
  47.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  48.     IF szInf$ = "" THEN
  49.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  50.     END IF
  51.     ReadInfFile szInf$
  52.  
  53.     OPTCUR$ = "1"
  54.  
  55.     i% = SetSizeCheckMode( scmOnIgnore )
  56.     WinDrive$ = MID$( GetWindowsDir, 1, 1 )
  57.     IF IsDriveValid( WinDrive$ ) = 0 THEN
  58.         i% = DoMsgBox( "Windows drive ('" + WinDrive$ + "') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK )
  59.     GOTO QUIT
  60.     END IF
  61.  
  62.  
  63. WELCOME:
  64.     sz$ = UIStartDlg( CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$ )
  65.     IF (sz$ = "CONTINUE") THEN
  66.         UIPop 1
  67.     ELSE
  68.         GOSUB ASKQUIT
  69.         GOTO WELCOME
  70.     END IF
  71.  
  72.     Install
  73.  
  74.  
  75. QUIT:
  76.     ON ERROR GOTO ERRQUIT
  77.  
  78.     IF (ERR = 0) THEN
  79.         dlg% = EXITSUCCESS
  80.     ELSEIF (ERR = STFQUIT) THEN
  81.         dlg% = EXITQUIT
  82.     ELSE
  83.             dlg% = EXITFAILURE
  84.         END IF
  85.     
  86. QUITL1:
  87.     sz$ = UIStartDlg( CUIDLL$, dlg%, "FInfo0DlgProc", 0, "" )
  88.     IF sz$ = "REACTIVATE" THEN
  89.         GOTO QUITL1
  90.     END IF
  91.     UIPop 1
  92.  
  93.     END
  94.  
  95. ERRQUIT:
  96.     'i% = DoMsgBox( "Setup sources were corrupted, call A&P .", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  97.     END
  98.  
  99.  
  100. ASKQUIT:
  101.     sz$ = UIStartDlg( CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "" )
  102.  
  103.     IF (sz$ = "EXIT") THEN
  104.         UIPopAll
  105.         ERROR STFQUIT
  106.     ELSEIF (sz$ = "REACTIVATE") THEN
  107.         GOTO ASKQUIT
  108.     ELSE
  109.         UIPop 1
  110.     END IF
  111.     RETURN
  112.  
  113.  
  114.  
  115. SUB Install STATIC
  116.     SrcDir$    = GetSymbolValue( "STF_SRCDIR" )
  117.  
  118.     CreateProgmanGroup PGROUP$, "", cmoNone
  119.     ShowProgmanGroup  PGROUP$, 1, cmoNone
  120.     CreateProgmanItem PGROUP$, PITEM$, MakePath( SrcDir$, PNAME$), "", cmoOverwrite
  121.  
  122. END SUB
  123.  
  124. FUNCTION MakePath( szDir$, szFile$ ) STATIC AS STRING
  125.     IF (szDir$ = "") THEN
  126.         MakePath = szFile$
  127.     ELSEIF (szFile$ = "") THEN
  128.         MakePath = szDir$
  129.     ELSEIF (MID$( szDir$, LEN( szDir$ ), 1 ) = "¥") THEN
  130.         MakePath = szDir$ + szFile$
  131.     ELSE
  132.         MakePath = szDir$ + "¥" + szFile$
  133.     END IF
  134. END FUNCTION
  135.