home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / WDCE20.ZIP / WDCE.MST < prev    next >
Text File  |  1993-08-21  |  7KB  |  243 lines
  1. '**************************************************************************
  2. '*                       WinDial Setup
  3. '**************************************************************************
  4.  
  5. ''$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9.  
  10. ''Dialog ID's
  11. CONST WELCOME       = 100
  12. CONST ASKQUIT       = 200
  13. CONST DESTPATH      = 300
  14. CONST EXITFAILURE   = 400
  15. CONST EXITQUIT      = 600
  16. CONST EXITSUCCESS   = 700
  17. CONST CDGETNAMEORG  = 7500
  18. CONST APPHELP       = 900
  19. CONST BADPATH       = 6400
  20.  
  21. ''Bitmap ID
  22. CONST LOGO = 1
  23.  
  24. GLOBAL DEST$        ''Default destination directory.
  25. GLOBAL OPTCUR$      ''Option selection from option dialog.
  26.  
  27.  
  28. ''GLOBAL szName$      ''User Name.
  29. ''GLOBAL szCompany$   ''Company Name.
  30. ''GLOBAL szRegno$     ''Registration Number.
  31.  
  32. DECLARE SUB Install
  33. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  34.  
  35.  
  36. INIT:
  37.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  38.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  39.  
  40.     SetBitmap CUIDLL$, LOGO
  41.     SetTitle "WinDial Corporate Edition Setup"
  42.  
  43.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  44.     IF szInf$ = "" THEN
  45.     szInf$ = GetSymbolValue("STF_CWDDIR") + "WDCE.INF"
  46.     END IF
  47.     ReadInfFile szInf$
  48.  
  49.     OPTCUR$ = "1"
  50.     DEST$ = "C:\WDCE20"
  51.     USERNAME$ = " "
  52.     szName$     = " "
  53.     szCompany$  = " "
  54.     szRegno$    = " "
  55.     szDate$     = " "
  56. '$IFDEF DEBUG
  57.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  58.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  59.     IF IsDriveValid(WinDrive$) = 0 THEN
  60.     i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  61.     GOTO QUIT
  62.     END IF
  63. '$ENDIF ''DEBUG
  64.  
  65.  
  66. WELCOME:
  67.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  68.     IF sz$ = "CONTINUE" THEN
  69.     UIPop 1
  70.     ELSE
  71.     GOSUB ASKQUIT
  72.     GOTO WELCOME
  73.     END IF
  74.  
  75.  
  76. NAMES:
  77.  
  78.     ''SetSymbolValue "NameOut", szName$
  79.     ''SetSymbolValue "OrgOut", szCompany$
  80.     ''SetSymbolValue "RegNoOut", szRegno$
  81. OPTL1:
  82.     sz$ = UIStartDlg(CUIDLL$, CDGETNAMEORG, "FNameOrgDlgProc", APPHELP, HELPPROC$)
  83.     szShareDir$ = GetWindowsDir()
  84.     szName$ = GetSymbolValue("NameOut")
  85.     CreateIniKeyValue szShareDir$+"WDCE.INI", "UserInfo", "Name", szName$, cmoOverwrite
  86.     szCompany$ = GetSymbolValue("OrgOut")
  87.     CreateIniKeyValue szShareDir$+"WDCE.INI", "UserInfo", "Company", szCompany$, cmoOverwrite
  88.     szRegno$ = GetSymbolValue("RegNoOut")
  89.     CreateIniKeyValue szShareDir$+"WDCE.INI", "UserInfo", "Reg", szRegno$, cmoOverwrite
  90.     szDate$ = GetDateOfFile(szShareDir$+"WDCE.INI")
  91.     CreateIniKeyValue szShareDir$+"WDCE.INI", "UserInfo", "Ref", szDate$, cmoOverwrite
  92.     IF sz$ = "CONTINUE" THEN
  93.     UIPop(1)
  94.     ELSEIF sz$ = "REACTIVATE" THEN
  95.     GOTO OPTL1
  96.     ELSE
  97.     GOSUB ASKQUIT
  98.     GOTO NAMES
  99.     END IF
  100.  
  101.  
  102. GETPATH:
  103.     SetSymbolValue "EditTextIn", DEST$
  104.     SetSymbolValue "EditFocus", "END"
  105. GETPATHL1:
  106.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  107.     DEST$ = GetSymbolValue("EditTextOut")
  108.  
  109.     IF sz$ = "CONTINUE" THEN
  110.     IF IsDirWritable(DEST$) = 0 THEN
  111.         GOSUB BADPATH
  112.         GOTO GETPATHL1
  113.     END IF
  114.     UIPop 1
  115.     ELSEIF sz$ = "REACTIVATE" THEN
  116.     GOTO GETPATHL1
  117.     ELSEIF sz$ = "BACK" THEN
  118.     UIPop 1
  119.     GOTO NAMES
  120.     ELSE
  121.     GOSUB ASKQUIT
  122.     GOTO GETPATH
  123.     END IF
  124.  
  125.  
  126.     Install
  127.  
  128.  
  129. QUIT:
  130.     ON ERROR GOTO ERRQUIT
  131.  
  132.     IF ERR = 0 THEN
  133.     dlg% = EXITSUCCESS
  134.     ELSEIF ERR = STFQUIT THEN
  135.     dlg% = EXITQUIT
  136.     ELSE
  137.     dlg% = EXITFAILURE
  138.     END IF
  139. QUITL1:
  140.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  141.     IF sz$ = "REACTIVATE" THEN
  142.     GOTO QUITL1
  143.     END IF
  144.     UIPop 1
  145.  
  146.     END
  147.  
  148. ERRQUIT:
  149.     i% = DoMsgBox("Setup sources were corrupted, contact DameWare Development!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  150.     END
  151.  
  152.  
  153.  
  154. BADPATH:
  155.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  156.     IF sz$ = "REACTIVATE" THEN
  157.     GOTO BADPATH
  158.     END IF
  159.     UIPop 1
  160.     RETURN
  161.  
  162.  
  163.  
  164. ASKQUIT:
  165.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  166.  
  167.     IF sz$ = "EXIT" THEN
  168.     UIPopAll
  169.     ERROR STFQUIT
  170.     ELSEIF sz$ = "REACTIVATE" THEN
  171.     GOTO ASKQUIT
  172.     ELSE
  173.     UIPop 1
  174.     END IF
  175.     RETURN
  176.  
  177.  
  178.  
  179. '**
  180. '** Purpose:
  181. '**     Builds the copy list and performs all installation operations.
  182. '** Arguments:
  183. '**     none.
  184. '** Returns:
  185. '**     none.
  186. '*************************************************************************
  187. SUB Install STATIC
  188.  
  189.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  190.     CreateDir DEST$, cmoNone
  191.  
  192.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  193.     WriteToLogFile ""
  194.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  195.     WriteToLogFile "  User chose option: '" + OPTCUR$ + "'"
  196.     WriteToLogFile ""
  197.     WriteToLogFile "May have had to create the directory: " + DEST$
  198.     WriteToLogFile ""
  199.  
  200.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  201.     szWinSysDir$ = GetWindowsSysDir()
  202.     AddSectionFilesToCopyList "Options", SrcDir$, szWinSysDir$
  203.     CopyFilesInCopyList
  204.  
  205.  
  206.     CreateProgmanGroup "WinDial C. E.", "", cmoNone
  207.     ShowProgmanGroup  "WinDial C. E.", 1, cmoNone
  208.     CreateProgmanItem "WinDial C. E.", "WinDial C. E. 2.0", MakePath(DEST$,"wdce.exe"), "", cmoOverwrite
  209.     CreateProgmanItem "WinDial C. E.", "WinDial Help", "winhelp.exe "+MakePath(DEST$,"wdce.hlp"), "", cmoOverwrite
  210.     CreateProgmanItem "WinDial C. E.", "WinDial Write", "write.exe "+MakePath(DEST$,"windial.wri"), "", cmoOverwrite
  211.     CreateProgmanItem "WinDial C. E.", "WinDial Registration", "write.exe "+MakePath(DEST$,"registra.wri"), "", cmoOverwrite
  212.  
  213.     AddDos5Help "WinDial", "WinDial is a Windows 3.1 program."+chr$(10)+"Phone dialer - data base etc."+chr$(10)+"To start WinDial from the DOS prompt type WIN WDCE.", cmoNone
  214.  
  215.     CloseLogFile
  216.  
  217. END SUB
  218.  
  219.  
  220.  
  221. '**
  222. '** Purpose:
  223. '**     Appends a file name to the end of a directory path,
  224. '**     inserting a backslash character as needed.
  225. '** Arguments:
  226. '**     szDir$  - full directory path (with optional ending "\")
  227. '**     szFile$ - filename to append to directory
  228. '** Returns:
  229. '**     Resulting fully qualified path name.
  230. '*************************************************************************
  231. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  232.     IF szDir$ = "" THEN
  233.     MakePath = szFile$
  234.     ELSEIF szFile$ = "" THEN
  235.     MakePath = szDir$
  236.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  237.     MakePath = szDir$ + szFile$
  238.     ELSE
  239.     MakePath = szDir$ + "\" + szFile$
  240.     END IF
  241. END FUNCTION
  242.  
  243.