home *** CD-ROM | disk | FTP | other *** search
/ Systema 1.6 / USSYS16.iso / windrv / utility / wddrv / wdcdrv.mst < prev    next >
Encoding:
Text File  |  1994-08-21  |  6.9 KB  |  257 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_InfoSysIni2           =       7803
  26. CONST IDD_FailedSysIni3         =       7804
  27. CONST EXITSUCCESS2              =       7805
  28. CONST IDD_SYSTEMINI             =       101
  29. CONST IDD_SYSTEMINI2            =       7801
  30.  
  31. ''Bitmap ID
  32. CONST LOGO = 106
  33.  
  34. GLOBAL DEST$        ''Default destination directory.
  35. GLOBAL WasCreated
  36.  
  37. DECLARE SUB Install
  38. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  39.  
  40.  
  41. INIT:
  42.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  43.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  44.  
  45.     SetBitmap CUIDLL$, LOGO
  46.     SetTitle "WDC Caviar Installation Program Version 1.1"
  47.  
  48.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  49.     IF szInf$ = "" THEN
  50.         szInf$ = GetSymbolValue("STF_CWDDIR") + "WDCDRV.INF"
  51.     END IF
  52.     ReadInfFile szInf$
  53.  
  54.     DEST$ = GetWindowsDir()
  55.     DEST$ = MID$(DEST$,1,LEN(DEST$)-1)
  56.  
  57. '$IFDEF DEBUG
  58.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  59.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  60.     IF IsDriveValid(WinDrive$) = 0 THEN
  61.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  62.         GOTO QUIT
  63.     END IF
  64. '$ENDIF ''DEBUG
  65.  
  66.  
  67. WELCOME:
  68.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  69.     IF sz$ = "CONTINUE" THEN
  70.         UIPop 1
  71.     ELSE
  72.         GOSUB ASKQUIT
  73.         GOTO WELCOME
  74.     END IF
  75.  
  76. GETPATH:
  77.     SetSymbolValue "EditTextIn", DEST$
  78.     SetSymbolValue "EditFocus", "END"
  79. GETPATHL1:
  80.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  81.     DEST$ = GetSymbolValue("EditTextOut")
  82.  
  83.     IF sz$ = "CONTINUE" THEN
  84.         IF IsDirWritable(DEST$) = 0 THEN
  85.             GOSUB BADPATH
  86.             GOTO GETPATHL1
  87.         END IF
  88.         UIPop 1
  89.     ELSEIF sz$ = "REACTIVATE" THEN
  90.         GOTO GETPATHL1
  91.     ELSEIF sz$ = "BACK" THEN
  92.         UIPop 1
  93.         GOTO WELCOME
  94.     ELSE
  95.         GOSUB ASKQUIT
  96.         GOTO GETPATH
  97.     END IF
  98.  
  99.  
  100.     Install
  101.  
  102.  
  103. QUIT:
  104.     ON ERROR GOTO ERRQUIT
  105.  
  106.     IF ERR = 0 THEN
  107.         IF WasCreated = 0 THEN
  108.             dlg% = EXITSUCCESS
  109.         ELSE
  110.             dlg% = EXITSUCCESS2
  111.         END IF
  112.     ELSEIF ERR = STFQUIT THEN
  113.         dlg% = EXITQUIT
  114.     ELSE
  115.         dlg% = EXITFAILURE
  116.     END IF
  117. QUITL1:
  118.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  119.     IF sz$ = "REACTIVATE" THEN
  120.         GOTO QUITL1
  121.     END IF
  122.     UIPop 1
  123.  
  124.     END
  125.  
  126. ERRQUIT:
  127.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  128.     END
  129.  
  130.  
  131.  
  132. BADPATH:
  133.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  134.     IF sz$ = "REACTIVATE" THEN
  135.         GOTO BADPATH
  136.     END IF
  137.     UIPop 1
  138.     RETURN
  139.  
  140.  
  141.  
  142. ASKQUIT:
  143.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  144.  
  145.     IF sz$ = "EXIT" THEN
  146.         UIPopAll
  147.         ERROR STFQUIT
  148.     ELSEIF sz$ = "REACTIVATE" THEN
  149.         GOTO ASKQUIT
  150.     ELSE
  151.         UIPop 1
  152.     END IF
  153.     RETURN
  154.  
  155.  
  156.  
  157. '**
  158. '** Purpose:
  159. '**     Builds the copy list and performs all installation operations.
  160. '** Arguments:
  161. '**     none.
  162. '** Returns:
  163. '**     none.
  164. '*************************************************************************
  165. SUB Install STATIC
  166.  
  167.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  168.     
  169.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  170.     IF DEST$ <> GetWindowsDir() THEN
  171.         CreateDir DEST$, cmoNone
  172.     ENDIF
  173.  
  174.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  175.     WriteToLogFile ""
  176.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  177.     WriteToLogFile ""
  178.     WriteToLogFile "  May have had to create the directory: " + DEST$
  179.     WriteToLogFile ""
  180.  
  181.     AddSectionKeyFileToCopyList "wdc", "Configuration", SrcDir$, DEST$
  182.     AddSectionKeyFileToCopyList "wdc", "ConfigHelp", SrcDir$, DEST$
  183.     AddSectionKeyFileToCopyList "wdc", "DocFile", SrcDir$, DEST$
  184.     AddSectionKeyFileToCopyList "wdc", "Driver", SrcDir$, DEST$
  185.     DumpCopyList MakePath(DEST$,"LOGFILE.OUT")
  186.     CopyFilesInCopyList
  187.  
  188.     sz$ = UIStartDlg(CUIDLL$, IDD_SYSTEMINI, "FInfoDlgProc", APPHELP, HELPPROC$)
  189.     IF sz$ = "CONTINUE" THEN
  190.         UIPop 1
  191.     ELSEIF sz$ = "EXIT" THEN
  192.         UIPop 1
  193.         sz$ = UIStartDlg(CUIDLL$, IDD_SYSTEMINI2, "FInfoDlgProc", APPHELP, HELPPROC$)
  194.         UIPop 1
  195.         GOTO FinishInstall
  196.     END IF
  197.  
  198.     szSystemIni$ = MakePath(GetWindowsDir(),"SYSTEM.INI")
  199.     IF GetIniKeyString(szSystemIni$,"386enh","32BitDiskAccess") = "" THEN
  200.         CreateIniKeyValue szSystemIni$,"386enh","32BitDiskAccess","off",cmoOverwrite
  201.         iVal2% = UpdateSystemIni("*int13","*int13")
  202.         WasCreated = 1
  203.     ELSE
  204.         WasCreated = 0
  205.     END IF
  206.  
  207.     szNewDriver$ = DEST$+"\"+GetSectionKeyFilename("wdc","Driver")
  208.     iVal% = UpdateSystemIni(szNewDriver$,"*wdctrl")
  209.  
  210.     IF iVal% = 0 THEN
  211.         sz$ = UIStartDlg(CUIDLL$, IDD_FailedSysIni1, "FInfoDlgProc", APPHELP, HELPPROC$)
  212.         UIPop 1
  213.         ERROR -1
  214.     ELSEIF iVal% = 2 THEN
  215.         sz$ = UIStartDlg(CUIDLL$, IDD_InfoSysIni2, "FInfoDlgProc", APPHELP, HELPPROC$)
  216.         UIPop 1
  217.     ELSEIF iVal% = 3 THEN
  218.         sz$ = UIStartDlg(CUIDLL$, IDD_FailedSysIni3, "FInfoDlgProc", APPHELP, HELPPROC$)
  219.         UIPop 1
  220.     ENDIF
  221.  
  222. FinishInstall:
  223.     UIPopAll
  224.  
  225.     CreateProgmanGroup "Western Digital", "", cmoNone
  226.     ShowProgmanGroup  "Western Digital", 1, cmoNone
  227.     CreateProgmanItem "Western Digital", "Caviar Setup", MakePath(DEST$,"caviar.exe"), "", cmoOverwrite
  228.  
  229.     CloseLogFile
  230.     
  231. END SUB
  232.  
  233.  
  234.  
  235. '**
  236. '** Purpose:
  237. '**     Appends a file name to the end of a directory path,
  238. '**     inserting a backslash character as needed.
  239. '** Arguments:
  240. '**     szDir$  - full directory path (with optional ending "\")
  241. '**     szFile$ - filename to append to directory
  242. '** Returns:
  243. '**     Resulting fully qualified path name.
  244. '*************************************************************************
  245. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  246.     IF szDir$ = "" THEN
  247.         MakePath = szFile$
  248.     ELSEIF szFile$ = "" THEN
  249.         MakePath = szDir$
  250.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  251.         MakePath = szDir$ + szFile$
  252.     ELSE
  253.         MakePath = szDir$ + "\" + szFile$
  254.     END IF
  255. END FUNCTION
  256.  
  257.