home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 13 / PCFORMAT.bin / prodtour / setup / ptsetup.mst < prev    next >
Text File  |  1995-01-03  |  3KB  |  119 lines
  1. '**************************************************************************
  2. '*           MSSetup Toolkit - Corel Product Tour Setup                   *
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. CONST WS_VISIBLE=&H10000000
  11. CONST WS_BORDER =&H00800000
  12. CONST WS_CLIPCHILDREN =&H02000000
  13. CONST GWL_STYLE =-16
  14. CONST SW_SHOWMAXIMIZED=3
  15.  
  16. DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
  17. DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%,offset%,style&) AS LONG
  18.  
  19. hWnd%=HwndFrame()
  20.  
  21. sti&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
  22. stj%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
  23.  
  24. ''Dialog ID's
  25. CONST WELCOME      = 100
  26. CONST ASKQUIT      = 200
  27. CONST DESTPATH     = 300
  28. CONST EXITFAILURE  = 400
  29. CONST EXITQUIT     = 600
  30. CONST EXITSUCCESS  = 700
  31. CONST APPHELP      = 900
  32. CONST CUSTINST     = 6200
  33. CONST TOOBIG       = 6300
  34. CONST BADPATH      = 6400
  35.  
  36. ''Bitmap ID
  37. CONST LOGO         = 1
  38.  
  39.  
  40. ''Dialog list symbol names
  41. GLOBAL CHECKSTATES$
  42. GLOBAL STATUSTEXT$
  43. GLOBAL DRIVETEXT$
  44.  
  45.  
  46. INIT:
  47.     CUIDLL$ = "mscuistf.dll"            ''custom user interface dll
  48.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  49.  
  50.     SetBitmap CUIDLL$, LOGO
  51.     SetTitle "Corel Products Showcase Setup"
  52.  
  53.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  54.     IF szInf$ = "" THEN
  55.     szInf$ = GetSymbolValue("STF_CWDDIR") + "ptsetup.INF"
  56.     END IF
  57.     ReadInfFile szInf$
  58.  
  59. '$IFDEF DEBUG
  60.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  61. '$ENDIF ''DEBUG
  62.  
  63.  
  64. WELCOME:
  65.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  66.     IF sz$ = "CONTINUE" THEN
  67.     UIPop 1
  68.     ELSE
  69.     GOSUB ASKQUIT
  70.     GOTO WELCOME
  71.     END IF
  72.  
  73.  
  74. INSTALL:
  75.     CreateProgmanGroup "Corel Product Showcase", "", cmoNone
  76.     CreateProgmanItem "Corel Product Showcase","Corel Product Showcase", GetSymbolValue("STF_SRCDIR")+"prodtour\prodtour.exe", GetSymbolValue("STF_SRCDIR")+"prodtour\prodtour.ico", cmoOverwrite
  77.  
  78.  
  79.  
  80. QUIT:
  81.     ON ERROR GOTO ERRQUIT
  82.  
  83.     IF ERR = 0 THEN
  84.     dlg% = EXITSUCCESS
  85.     ELSEIF ERR = STFQUIT THEN
  86.     dlg% = EXITQUIT
  87.     ELSE
  88.     dlg% = EXITFAILURE
  89.     END IF
  90.  
  91.  
  92. QUITL1:
  93.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  94.     IF sz$ = "REACTIVATE" THEN
  95.     GOTO QUITL1
  96.     END IF
  97.     UIPop 1
  98.     END
  99.  
  100.  
  101. ERRQUIT:
  102.     i% = DoMsgBox("Setup sources were corrupted, call Corel Tech Support", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  103.     END
  104.  
  105.  
  106. ASKQUIT:
  107.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  108.  
  109.     IF sz$ = "EXIT" THEN
  110.     UIPopAll
  111.     ERROR STFQUIT
  112.     ELSEIF sz$ = "REACTIVATE" THEN
  113.     GOTO ASKQUIT
  114.     ELSE
  115.     UIPop 1
  116.     END IF
  117.     RETURN
  118.  
  119.