home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / utility / sst102 / sysscan.ms_ / sysscan.bin
Text File  |  1995-12-09  |  6KB  |  217 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit Sample 1
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. DECLARE FUNCTION DoMax LIB "custom.dll" (hwnd%) AS INTEGER
  8. '$INCLUDE 'setupapi.inc'
  9. '$INCLUDE 'msdetect.inc'
  10. i% = DoMax(HwndFrame)
  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$        ''Default destination directory.
  27. GLOBAL OPTCUR$      ''Option selection from option dialog.
  28.  
  29. DECLARE SUB Install
  30. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  31.  
  32.  
  33. INIT:
  34.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  35.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  36.  
  37.     SetBitmap CUIDLL$, LOGO
  38.     SetTitle "SystemScanTools Setup Program"
  39.  
  40.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  41.     IF szInf$ = "" THEN
  42.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SYSSCAN.INF"
  43.     END IF
  44.     ReadInfFile szInf$
  45.  
  46.     OPTCUR$ = "1"
  47.     DEST$ = "C:\SYSSCAN"
  48.  
  49. '$IFDEF DEBUG
  50.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  51.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  52.     IF IsDriveValid(WinDrive$) = 0 THEN
  53.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  54.         GOTO QUIT
  55.     END IF
  56. '$ENDIF ''DEBUG
  57.  
  58.  
  59. WELCOME:
  60.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  61.     IF sz$ = "CONTINUE" THEN
  62.         UIPop 1
  63.     ELSE
  64.         GOSUB ASKQUIT
  65.         GOTO WELCOME
  66.     END IF
  67.  
  68.    
  69. GETPATH:
  70.     SetSymbolValue "EditTextIn", DEST$
  71.     SetSymbolValue "EditFocus", "END"
  72. GETPATHL1:
  73.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  74.     DEST$ = GetSymbolValue("EditTextOut")
  75.  
  76.     IF sz$ = "CONTINUE" THEN
  77.         IF IsDirWritable(DEST$) = 0 THEN
  78.             GOSUB BADPATH
  79.             GOTO GETPATHL1
  80.         END IF
  81.         UIPop 1
  82.     ELSEIF sz$ = "REACTIVATE" THEN
  83.         GOTO GETPATHL1
  84.     ELSEIF sz$ = "BACK" THEN
  85.         UIPop 1
  86.         GOTO WELCOME
  87.     ELSE
  88.         GOSUB ASKQUIT
  89.         GOTO GETPATH
  90.     END IF
  91.  
  92. '** install the files on the hard disk
  93.     Install
  94.  
  95.  
  96. QUIT:
  97.     ON ERROR GOTO ERRQUIT
  98.  
  99.     IF ERR = 0 THEN
  100.         dlg% = EXITSUCCESS
  101.     ELSEIF ERR = STFQUIT THEN
  102.         dlg% = EXITQUIT
  103.     ELSE
  104.         dlg% = EXITFAILURE
  105.     END IF
  106.     
  107. QUITL1:
  108.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  109.     IF sz$ = "REACTIVATE" THEN
  110.         GOTO QUITL1
  111.     ELSEIF sz$ = "CANCEL" THEN
  112.     GOTO EXITWIN
  113.     END IF
  114.     UIPop 1
  115.  
  116.     i% = RUN(DEST$)
  117. EXITWIN:
  118.     END
  119.  
  120. ERRQUIT:
  121.     i% = DoMsgBox("Setup sources were corrupted, call Thomas Computer Systems at 432-7002!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  122.     END
  123.  
  124.  
  125.  
  126. BADPATH:
  127.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  128.     IF sz$ = "REACTIVATE" THEN
  129.         GOTO BADPATH
  130.     END IF
  131.     UIPop 1
  132.     RETURN
  133.  
  134.  
  135.  
  136. ASKQUIT:
  137.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  138.  
  139.     IF sz$ = "EXIT" THEN
  140.         UIPopAll
  141.         ERROR STFQUIT
  142.     ELSEIF sz$ = "REACTIVATE" THEN
  143.         GOTO ASKQUIT
  144.     ELSE
  145.         UIPop 1
  146.     END IF
  147.     RETURN
  148.  
  149.  
  150.  
  151. '**
  152. '** Purpose:
  153. '**     Builds the copy list and performs all installation operations.
  154. '** Arguments:
  155. '**     none.
  156. '** Returns:
  157. '**     none.
  158. '*************************************************************************
  159. SUB Install STATIC
  160.  
  161.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  162.     
  163.   
  164.     CreateDir DEST$, cmoNone
  165.  
  166.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  167.     WriteToLogFile ""
  168.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  169.     WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  170.     WriteToLogFile ""
  171.     WriteToLogFile "May have had to create the directory: " + DEST$
  172.     WriteToLogFile ""
  173.  
  174.     ''get rid of old 9 byte sst.cfg, leave the newer version
  175.     fs& = GetSizeOfFile(DEST$ + "\sst.cfg")
  176.     IF fs& = 9 THEN
  177.         RemoveFile DEST$ + "\sst.cfg", cmoForce
  178.     ENDIF
  179.  
  180.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  181.     CopyFilesInCopyList
  182.  
  183.     CreateProgmanGroup "SystemScanTools", "", cmoNone
  184.     ShowProgmanGroup  "SystemScanTools", 1, cmoNone
  185.     CreateProgmanItem "SystemScanTools", "System ScanTools", DEST$ + "\sysscan.exe", "", cmoOverwrite
  186.     CreateProgmanItem "SystemScanTools", "Read Me", DEST$ + "\readme.txt", "", cmoOverwrite
  187. CreateProgmanItem "SystemScanTools", "System ScanTools Help", DEST$ + "\sysscan.hlp", "", cmoOverwrite
  188.     DEST$ = DEST$ + "\sysscan.exe"
  189.     CloseLogFile
  190.  
  191. END SUB
  192.  
  193.  
  194.  
  195. '**
  196. '** Purpose:
  197. '**     Appends a file name to the end of a directory path,
  198. '**     inserting a backslash character as needed.
  199. '** Arguments:
  200. '**     szDir$  - full directory path (with optional ending "\")
  201. '**     szFile$ - filename to append to directory
  202. '** Returns:
  203. '**     Resulting fully qualified path name.
  204. '*************************************************************************
  205. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  206.     IF szDir$ = "" THEN
  207.         MakePath = szFile$
  208.     ELSEIF szFile$ = "" THEN
  209.         MakePath = szDir$
  210.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  211.         MakePath = szDir$ + szFile$
  212.     ELSE
  213.         MakePath = szDir$ + "\" + szFile$
  214.     END IF
  215. END FUNCTION
  216.  
  217.