home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / DRIVERS / FASTDISK.ZIP / WDCDRV.MST < prev   
Text File  |  1993-12-09  |  7KB  |  246 lines
  1. '**************************************************************************
  2. '*                       MSSetup Installation for WDC Fastdisk driver, etc.
  3. '**************************************************************************
  4.  
  5. ''$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. DECLARE FUNCTION UpdateSystemIni LIB "mscuistf.dll" (szAdd$,szDelete$) As INTEGER
  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 CHECK         = 2500
  22. CONST BADPATH       = 6400
  23. CONST IDD_InstalledSysIni       =       102
  24. CONST IDD_FailedSysIni1         =       7802
  25. CONST IDD_FailedSysIni2         =       7803
  26. CONST IDD_FailedSysIni3         =       7804
  27. CONST IDD_SYSTEMINI             =       101
  28. CONST IDD_SYSTEMINI2            =       7801
  29.  
  30. ''Bitmap ID
  31. CONST LOGO = 106
  32.  
  33. GLOBAL DEST$        ''Default destination directory.
  34.  
  35. DECLARE SUB Install
  36. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  37.  
  38.  
  39. INIT:
  40.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  41.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  42.  
  43.     SetBitmap CUIDLL$, LOGO
  44.     SetTitle "WDC Caviar Installation Program"
  45.  
  46.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  47.     IF szInf$ = "" THEN
  48.     szInf$ = GetSymbolValue("STF_CWDDIR") + "WDCDRV.INF"
  49.     END IF
  50.     ReadInfFile szInf$
  51.  
  52.     DEST$ = GetWindowsDir()
  53.     DEST$ = MID$(DEST$,1,LEN(DEST$)-1)
  54.  
  55. '$IFDEF DEBUG
  56.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  57.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  58.     IF IsDriveValid(WinDrive$) = 0 THEN
  59.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  60.     GOTO QUIT
  61.     END IF
  62. '$ENDIF ''DEBUG
  63.  
  64.  
  65. WELCOME:
  66.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  67.     IF sz$ = "CONTINUE" THEN
  68.     UIPop 1
  69.     ELSE
  70.     GOSUB ASKQUIT
  71.     GOTO WELCOME
  72.     END IF
  73.  
  74. GETPATH:
  75.     SetSymbolValue "EditTextIn", DEST$
  76.     SetSymbolValue "EditFocus", "END"
  77. GETPATHL1:
  78.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  79.     DEST$ = GetSymbolValue("EditTextOut")
  80.  
  81.     IF sz$ = "CONTINUE" THEN
  82.     IF IsDirWritable(DEST$) = 0 THEN
  83.         GOSUB BADPATH
  84.         GOTO GETPATHL1
  85.     END IF
  86.     UIPop 1
  87.     ELSEIF sz$ = "REACTIVATE" THEN
  88.     GOTO GETPATHL1
  89.     ELSEIF sz$ = "BACK" THEN
  90.     UIPop 1
  91.     GOTO WELCOME
  92.     ELSE
  93.     GOSUB ASKQUIT
  94.     GOTO GETPATH
  95.     END IF
  96.  
  97.  
  98.     Install
  99.  
  100.  
  101. QUIT:
  102.     ON ERROR GOTO ERRQUIT
  103.  
  104.     IF ERR = 0 THEN
  105.     dlg% = EXITSUCCESS
  106.     ELSEIF ERR = STFQUIT THEN
  107.     dlg% = EXITQUIT
  108.     ELSE
  109.     dlg% = EXITFAILURE
  110.     END IF
  111. QUITL1:
  112.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  113.     IF sz$ = "REACTIVATE" THEN
  114.     GOTO QUITL1
  115.     END IF
  116.     UIPop 1
  117.  
  118.     END
  119.  
  120. ERRQUIT:
  121.     i% = DoMsgBox("Setup sources were corrupted!", "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.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  162.     
  163.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  164.     IF DEST$ <> GetWindowsDir() THEN
  165.     CreateDir DEST$, cmoNone
  166.     ENDIF
  167.  
  168.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  169.     WriteToLogFile ""
  170.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  171.     WriteToLogFile ""
  172.     WriteToLogFile "  May have had to create the directory: " + DEST$
  173.     WriteToLogFile ""
  174.  
  175.     AddSectionKeyFileToCopyList "wdc", "Configuration", SrcDir$, DEST$
  176.     AddSectionKeyFileToCopyList "wdc", "ConfigHelp", SrcDir$, DEST$
  177.     AddSectionKeyFileToCopyList "wdc", "DocFile", SrcDir$, DEST$
  178.     AddSectionKeyFileToCopyList "wdc", "Driver", SrcDir$, DEST$
  179.     AddSectionKeyFileToCopyList "System", "vbx", SrcDir$, DEST$
  180.     DumpCopyList MakePath(DEST$,"LOGFILE.OUT")
  181.     CopyFilesInCopyList
  182.  
  183.     sz$ = UIStartDlg(CUIDLL$, IDD_SYSTEMINI, "FInfoDlgProc", APPHELP, HELPPROC$)
  184.     IF sz$ = "CONTINUE" THEN
  185.     UIPop 1
  186.     ELSEIF sz$ = "EXIT" THEN
  187.     UIPop 1
  188.     sz$ = UIStartDlg(CUIDLL$, IDD_SYSTEMINI2, "FInfoDlgProc", APPHELP, HELPPROC$)
  189.     UIPop 1
  190.     GOTO FinishInstall
  191.     END IF
  192.  
  193.     szNewDriver$ = DEST$+"\"+GetSectionKeyFilename("wdc","Driver")
  194.     iVal% = UpdateSystemIni(szNewDriver$,"*wdctrl")
  195.  
  196.     szSystemIni$ = MakePath(GetWindowsDir(),"SYSTEM.INI")
  197.     CreateIniKeyValue szSystemIni$,"386enh","32BitDiskAccess","on",cmoOverwrite
  198.  
  199.     IF iVal% = 0 THEN
  200.     sz$ = UIStartDlg(CUIDLL$, IDD_FailedSysIni1, "FInfoDlgProc", APPHELP, HELPPROC$)
  201.     UIPop 1
  202.     ERROR -1
  203.     ELSEIF iVal% = 2 THEN
  204.     sz$ = UIStartDlg(CUIDLL$, IDD_FailedSysIni2, "FInfoDlgProc", APPHELP, HELPPROC$)
  205.     UIPop 1
  206.     ELSEIF iVal% = 3 THEN
  207.     sz$ = UIStartDlg(CUIDLL$, IDD_FailedSysIni3, "FInfoDlgProc", APPHELP, HELPPROC$)
  208.     UIPop 1
  209.     ENDIF
  210.  
  211. FinishInstall:
  212.     UIPopAll
  213.  
  214.     CreateProgmanGroup "Western Digital", "", cmoNone
  215.     ShowProgmanGroup  "Western Digital", 1, cmoNone
  216.     CreateProgmanItem "Western Digital", "Caviar Setup", MakePath(DEST$,"caviar.exe"), "", cmoOverwrite
  217.  
  218.     CloseLogFile
  219.     
  220. END SUB
  221.  
  222.  
  223.  
  224. '**
  225. '** Purpose:
  226. '**     Appends a file name to the end of a directory path,
  227. '**     inserting a backslash character as needed.
  228. '** Arguments:
  229. '**     szDir$  - full directory path (with optional ending "\")
  230. '**     szFile$ - filename to append to directory
  231. '** Returns:
  232. '**     Resulting fully qualified path name.
  233. '*************************************************************************
  234. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  235.     IF szDir$ = "" THEN
  236.     MakePath = szFile$
  237.     ELSEIF szFile$ = "" THEN
  238.     MakePath = szDir$
  239.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  240.     MakePath = szDir$ + szFile$
  241.     ELSE
  242.     MakePath = szDir$ + "\" + szFile$
  243.     END IF
  244. END FUNCTION
  245.  
  246.