home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1996 May / PCA0596.ISO / tcdemo / tcdemo.mst < prev    next >
Encoding:
Text File  |  1996-01-31  |  4.6 KB  |  168 lines
  1. '**************************************************************************
  2. '*                       THiNK - CROSS  Setup Program
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8.  
  9. ''Dialog ID's
  10. CONST W1       = 100
  11. CONST W2       = 200
  12. CONST W3       = 300
  13. CONST W4       = 1400
  14. CONST W5       = 500
  15. CONST W6      = 600
  16. CONST APPHELP = 900
  17. CONST WS_VISIBLE      =&H10000000
  18. CONST WS_BORDER       =&H00800000
  19. CONST WS_CLIPCHILDREN =&H02000000
  20. CONST GWL_STYLE = -16
  21. CONST SW_SHOWMAXIMIZED = 3
  22. ''File Types
  23.  
  24.  
  25. ''Bitmap ID
  26. CONST LOGO = 1
  27.  
  28. GLOBAL FILEDIALOG   ''File path dialog ID
  29.  
  30. GLOBAL DEST$        ''Default destination directory.
  31. GLOBAL instdir$
  32. GLOBAL CHECKSTATES$ ''Dialog list symbol names
  33. GLOBAL WINDRIVE$    ''Windows drive letter.
  34. GLOBAL lang%
  35. GLOBAL TMPDEST$     '' tmpfile destination
  36. GLOBAL OPTCUR$
  37. GLOBAL bInstallDVA%
  38.  
  39. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  40. DECLARE FUNCTION GetRealWindowsSysDir AS STRING
  41.  
  42. DECLARE FUNCTION OnWin3x LIB "setuphlp.DLL" AS INTEGER
  43. DECLARE FUNCTION VflatdPresent LIB "setuphlp.DLL" AS INTEGER
  44. DECLARE FUNCTION GetRealSystemDir LIB "setuphlp.DLL" (szDir$,cbBuf%) AS INTEGER
  45. DECLARE FUNCTION RestartWindows LIB "setuphlp.DLL" AS INTEGER
  46. DECLARE FUNCTION IsWin32FileNewer LIB "setuphlp.DLL" (szOrig$,szNew$) AS INTEGER
  47. DECLARE SUB RenameFilePlease LIB "setuphlp.DLL" (szOrig$,szNew$) 
  48. DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%, iShow%) AS INTEGER
  49. DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%, offset%, style&) AS LONG
  50.  
  51. INIT:
  52. hWnd%=HwndFrame() 
  53.  i1&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN) 
  54.  j1%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED) 
  55.  
  56.     bInstallDVA% = 0
  57.     OPTCUR$ ="1"
  58.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  59.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  60.      instdir$ = "C:\THINK_X"
  61.  
  62.      SetBitmap CUIDLL$, LOGO
  63.      ''SetTitle "Th!nk Cross Setup"
  64.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  65.      IF szInf$ = "" THEN
  66.         szInf$ = GetSymbolValue("STF_CWDDIR") + "tcdemo.inf"
  67.     END IF
  68.     ReadInfFile szInf$
  69.  
  70.          lang%=1
  71.      sz$ = UIStartDlg(CUIDLL$,W1+lang%, "FInfoDlgProc", APPHELP, HELPPROC$)
  72.      IF sz$ = "CONTINUE" THEN
  73.     UIPop 1
  74.      ELSE
  75.     GOTO QUIT
  76.      END IF
  77.  
  78. GETPATH:
  79.      SetSymbolValue "EditTextIn", instdir$
  80.      SetSymbolValue "EditFocus", "END"
  81. PATH:
  82.      sz$ = UIStartDlg(CUIDLL$,W3+lang%, "FEditDlgProc", APPHELP, HELPPROC$)
  83.      instdir$ = GetSymbolValue("EditTextOut")
  84.  
  85.      IF sz$ = "CONTINUE" THEN
  86.           IF IsDirWritable(instdir$) = 0 THEN
  87.                 GOSUB BADPATH
  88.                 GOTO PATH
  89.           END IF
  90.           UIPop 1
  91.      ELSE
  92.           GOTO QUIT
  93.      END IF
  94.  
  95. INSTALL:
  96.  
  97.      SrcDir$=GetSymbolValue("STF_SRCDIR")
  98.      CreateDir instdir$, cmoNone
  99.     AddSectionFilesToCopyList "Files", SrcDir$, instdir$
  100.     DEST$ = GetWindowsSysDir
  101.     IF OnWin3x() = 1 THEN
  102.          AddSectionFilesToCopyList "system", SrcDir$, DEST$
  103.          IF VflatdPresent() = 0 THEN
  104.         CreateSysIniKeyValue GetWindowsDir + "system.ini", "386Enh", "device", GetWindowsSysDir+"dva.386", cmoOverwrite
  105.         bInstallDVA% = 1
  106.          END IF
  107.     END IF
  108.     AddSectionFilesToCopyList "system",SrcDir$,DEST$
  109.     CopyFilesInCopyList
  110.     CreateProgmanGroup "JoWooD", "", cmoNone
  111.     ShowProgmanGroup  "JoWooD", 1, cmoNone
  112.     CreateProgmanItem "JoWooD", "THiNK-X for Windows DEMO", instdir$+"\tcdemo.exe", "", cmoOverwrite
  113. REA:
  114.     sz$ = UIStartDlg(CUIDLL$,W6+lang%,"FInfoDlgProc", APPHELP, HELPPROC$)
  115.      IF sz$ = "CONTINUE" THEN
  116.      UIPop 1
  117.      END IF
  118. QUIT:
  119. END
  120. BADPATH:
  121.      sz$ = UIStartDlg(CUIDLL$, W4+lang%, "FInfo0DlgProc", 0, "")
  122.       IF sz$ = "CONTINUE" THEN
  123.     UIPop 1
  124.      ELSE
  125.     GOTO QUIT
  126.      END IF
  127.      RETURN
  128.     
  129. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  130.      IF szDir$ = "" THEN
  131.     MakePath = szFile$
  132.      ELSEIF szFile$ = "" THEN
  133.     MakePath = szDir$
  134.      ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  135.     MakePath = szDir$ + szFile$
  136.     ELSE
  137.     MakePath = szDir$ + "\" + szFile$
  138.      END IF
  139. END FUNCTION
  140.  
  141.  
  142. FUNCTION GetRealWindowsSysDir STATIC AS STRING
  143.      szBuf$ = string$(260, 32)
  144.      cbBuf% = GetRealSystemDir(szBuf$, 260)
  145.      IF cbBuf% = 0 THEN
  146.     ERROR STFERR
  147.     ELSE
  148.     IF cbBuf% > 259 THEN
  149.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  150.         ERROR STFERR
  151.     END IF
  152.     szBuf$ = RTRIM$(szBuf$)
  153.     IF MID$(szBuf$, 1, 1) = "\" THEN
  154.         szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  155.     ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
  156.         szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  157.     END IF
  158.     IF MID$(szBuf$, LEN(szBuf$), 1) <> "\" THEN
  159.         szBuf$ = szBuf$ + "\"
  160.     END IF
  161.     GetRealWindowsSysDir = szBuf$
  162.     END IF
  163.  
  164.     szBuf$ = ""
  165. END FUNCTION
  166.  
  167.  
  168.