home *** CD-ROM | disk | FTP | other *** search
/ Collection of Internet / Collection of Internet.iso / winprogs / gcp_24 / setup.ms_ / setup.ms
Encoding:
Text File  |  1994-04-01  |  10.0 KB  |  296 lines
  1. '**************************************************************************
  2. '*                         GCP++ SDK Setup 2.2
  3. '**************************************************************************
  4.  
  5. '$INCLUDE 'setupapi.inc'
  6. '$INCLUDE 'msdetect.inc'
  7.  
  8. ''Dialog ID's
  9. CONST WELCOME       = 100
  10. CONST ASKQUIT       = 200
  11. CONST DESTPATH      = 300
  12. CONST EXITFAILURE   = 400
  13. CONST EXITQUIT      = 600
  14. CONST EXITSUCCESS   = 700
  15. CONST APPHELP       = 900
  16. CONST BADPATH       = 6400
  17. CONST IDYES            =6
  18. CONST IDNO            =7
  19. CONST MB_YESNO=4
  20. CONST MB_DEFBUTTON2        =256
  21.  
  22. ''Bitmap ID
  23. CONST LOGO = 1
  24.  
  25. GLOBAL DEST$        ''Default destination directory.
  26.  
  27. DECLARE SUB Install
  28. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  29. DECLARE FUNCTION EditAutoexec LIB "GCPSETUP.DLL" (szDir As String) As Integer
  30. DECLARE FUNCTION ExitWindows LIB "User" (dwReserved As Long, wReturnCode As Integer) As Integer 
  31. DECLARE FUNCTION ShowWindow Lib "User" (hWnd As Integer, nCmdShow As Integer) As Integer
  32.  
  33. INIT:
  34.     IF ShowWindow(HWndFrame(), 3) THEN
  35.     END IF
  36.  
  37.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  38.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  39.  
  40.     SetBitmap CUIDLL$, LOGO
  41.     SetTitle "Dart Communications"
  42.     SetAbout "GCP++ TCP/IP Development Tools" + Chr$(13) + "Version 2.3" + Chr$(13) + "for Microsoft Windows","Dart Communications" + Chr$(13) + "(315) 841-8106" + Chr$(13) + "INTERNET: baldwin@SUNYIT.edu" 
  43.  
  44.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  45.     IF szInf$ = "" THEN
  46.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  47.     END IF
  48.     ReadInfFile szInf$
  49.  
  50.     DEST$ = "C:\GCP"
  51.  
  52. '$IFDEF DEBUG
  53.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  54.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  55.     IF IsDriveValid(WinDrive$) = 0 THEN
  56.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  57.         GOTO QUIT
  58.     END IF
  59. '$ENDIF ''DEBUG
  60.  
  61.  
  62. WELCOME:
  63.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  64.     IF sz$ = "CONTINUE" THEN
  65.         UIPop 1
  66.     ELSE
  67.         GOSUB ASKQUIT
  68.         GOTO WELCOME
  69.     END IF
  70.  
  71. GETPATH:
  72.     SetSymbolValue "EditTextIn", DEST$
  73.     SetSymbolValue "EditFocus", "END"
  74. GETPATHL1:
  75.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  76.     DEST$ = GetSymbolValue("EditTextOut")
  77.  
  78.     IF sz$ = "CONTINUE" THEN
  79.         IF IsDirWritable(DEST$) = 0 THEN
  80.             GOSUB BADPATH
  81.             GOTO GETPATHL1
  82.         END IF
  83.         UIPop 1
  84.     ELSEIF sz$ = "REACTIVATE" THEN
  85.         GOTO GETPATHL1
  86.     ELSEIF sz$ = "BACK" THEN
  87.         UIPop 1
  88.         GOTO WELCOME
  89.     ELSE
  90.         GOSUB ASKQUIT
  91.         GOTO GETPATH
  92.     END IF
  93.  
  94.  
  95.     Install
  96.  
  97.  
  98. QUIT:
  99.     ON ERROR GOTO ERRQUIT
  100.  
  101.     IF ERR = 0 THEN
  102.         dlg% = EXITSUCCESS
  103.     ELSEIF ERR = STFQUIT THEN
  104.         dlg% = EXITQUIT
  105.     ELSE
  106.         dlg% = EXITFAILURE
  107.     END IF
  108.  
  109.     IF dlg% = EXITSUCCESS THEN
  110. ' Remainder commented out because setup files are left behind...very messy
  111. '        MSG% = DoMsgBox("You must re-boot your system for installation to take effect."+Chr$(13)+Chr$(10)+"Do you want to restart now?", "EXIT SETUP", 36)
  112. '        IF MSG% = 6 THEN
  113. 'RESTARTLINE:
  114. '            suc = ExitWindows(67, 0)
  115. '             if 1=RestartListEmpty then
  116. '             MSG% = DoMsgBox("Cannot Restart", "Restart List Empty", 36)
  117. '             else
  118. '             MSG% = DoMsgBox("Restarting", "Restart List OK", 36)
  119. '             SetRestartDir Dest$
  120. '             end if    
  121. '             Suc = ExitExecRestart()
  122. '             MSG% = DoMsgBox("Not all applications terminated.", "RESTART ERROR", 53)
  123. '             IF MSG% = 4 THEN
  124. '                 GOTO RESTARTLINE
  125. '             END IF
  126. '            END IF
  127. '        END IF 
  128.     END IF
  129.  
  130.  
  131. QUITL1:
  132.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  133.     IF sz$ = "REACTIVATE" THEN
  134.         GOTO QUITL1
  135.     END IF
  136.  
  137.     UIPop 1
  138.     END
  139.  
  140. ERRQUIT:
  141.     i% = DoMsgBox("Setup sources were corrupted, call Dart Communications at 315.841.8106", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  142.     END
  143.  
  144.  
  145.  
  146. BADPATH:
  147.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  148.     IF sz$ = "REACTIVATE" THEN
  149.         GOTO BADPATH
  150.     END IF
  151.     UIPop 1
  152.     RETURN
  153.  
  154.  
  155.  
  156. ASKQUIT:
  157.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  158.  
  159.     IF sz$ = "EXIT" THEN
  160.         UIPopAll
  161.         ERROR STFQUIT
  162.     ELSEIF sz$ = "REACTIVATE" THEN
  163.         GOTO ASKQUIT
  164.     ELSE
  165.         UIPop 1
  166.     END IF
  167.     RETURN
  168.  
  169.  
  170.  
  171. '**
  172. '** Purpose:
  173. '**     Builds the copy list and performs all installation operations.
  174. '** Arguments:
  175. '**     none.
  176. '** Returns:
  177. '**     none.
  178. '*************************************************************************
  179. SUB Install STATIC
  180.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  181.     CreateDir DEST$, cmoNone
  182.  
  183.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  184.     WriteToLogFile ""
  185.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  186.     WriteToLogFile ""
  187.     WriteToLogFile "May have had to create the directory: " + DEST$
  188.     WriteToLogFile ""
  189.  
  190.     SysDir$=GetWindowsSysDir()
  191.  
  192.     CreateDir DEST$ + "\bin", cmoNone
  193.     CreateDir DEST$ + "\doc", cmoNone
  194.     CreateDir DEST$ + "\gcp", cmoNone
  195.     CreateDir DEST$ + "\vb", cmoNone
  196.     CreateDir DEST$ + "\vb_tcp", cmoNone
  197.     CreateDir DEST$ + "\vb_udp", cmoNone
  198.     CreateDir DEST$ + "\vb_tlnt", cmoNone
  199.     CreateDir DEST$ + "\vb_tftp", cmoNone
  200.     CreateDir DEST$ + "\vb_220", cmoNone
  201.     CreateDir DEST$ + "\lib", cmoNone
  202.     CreateDir DEST$ + "\include", cmoNone
  203.  
  204.     AddSectionFilesToCopyList "binsection", SrcDir$, DEST$ + "\bin"
  205.     AddSectionFilesToCopyList "docsection", SrcDir$, DEST$ + "\doc"
  206.     AddSectionFilesToCopyList "gcpsection", SrcDir$, DEST$ + "\gcp"
  207.     AddSectionFilesToCopyList "tcpsection", SrcDir$, DEST$ + "\vb_tcp"
  208.     AddSectionFilesToCopyList "tlntsection", SrcDir$, DEST$ + "\vb_tlnt"
  209.     AddSectionFilesToCopyList "tftpsection", SrcDir$, DEST$ + "\vb_tftp"
  210.     AddSectionFilesToCopyList "udpsection", SrcDir$, DEST$ + "\vb_udp"
  211.     AddSectionFilesToCopyList "vt220section", SrcDir$, DEST$ + "\vt220"
  212.     AddSectionFilesToCopyList "libsection", SrcDir$, DEST$ + "\lib"
  213.     AddSectionFilesToCopyList "includesection", SrcDir$, DEST$ + "\include"
  214.     CopyFilesInCopyList
  215.  
  216.     Grp$="GCP++ Evaluation Edition"
  217.  
  218.     CreateProgmanGroup Grp$, "", cmoNone
  219.     ShowProgmanGroup  Grp$, 1, cmoNone
  220.  
  221. vb$=FindFileInTree("vb.exe","c:\")
  222. vb$=vb$ + " "
  223. CreateProgmanItem Grp$, "Evaluation Edition", MakePath(DEST$ + "\doc","gcp_eval.wri"), "", cmoOverwrite
  224. CreateProgmanItem Grp$, "SDK Desc", "winword "+DEST$ + "\doc\sdk.doc", "", cmoOverwrite
  225. CreateProgmanItem Grp$, "GCP Server", DEST$ +"\bin\gcp242.exe", "", cmoOverwrite
  226. CreateProgmanItem Grp$, "Read Me", MakePath(DEST$ + "\doc" , "readme.wri"),"",cmoOverwrite
  227. CreateProgmanItem Grp$, "GCP Client", MakePath(DEST$ +"\bin","gcp_clnt.exe"),"",cmoOverwrite
  228. CreateProgmanItem Grp$, "GCP Client Help", MakePath(DEST$ +"\doc","gcp_clnt.hlp"),"",cmoOverwrite
  229. CreateProgmanItem Grp$, "C Developer's Guide", MakePath(DEST$ +"\doc","gcp_c.hlp"),"",cmoOverwrite
  230. CreateProgmanItem Grp$, "VB Developer's Guide", MakePath(DEST$ +"\doc","gcp_vb.hlp"),"",cmoOverwrite
  231.  
  232. CreateProgmanItem Grp$, "TCP Custom Control", DEST$+"\vb_tcp\tcp.exe", "", cmoOverwrite
  233. if vb$ <> " " then
  234.     CreateProgmanItem Grp$, "TCP Sample Form", vb$ + DEST$ + "\vb_tcp\tcp.mak", "", cmoOverwrite
  235. end if
  236. CreateProgmanItem Grp$, "TELNET Custom Control", DEST$ + "\vb_tlnt\tlnt.exe", "", cmoOverwrite
  237. if vb$ <> " " then
  238.     CreateProgmanItem Grp$, "TELNET Sample Form", vb$ + DEST$ + "\vb_tlnt\tlnt.mak", "", cmoOverwrite
  239. end if
  240. CreateProgmanItem Grp$, "UDP Custom Control", DEST$ + "\vb_udp\udp.exe", "", cmoOverwrite
  241. if vb$ <> " " then
  242.     CreateProgmanItem Grp$, "UDP Sample Form", vb$ + DEST$ + "\vb_udp\udp.mak", "", cmoOverwrite
  243. end if
  244. CreateProgmanItem Grp$, "TFTP Custom Control", DEST$ + "\vb_tftp\tftp.exe", "", cmoOverwrite
  245. if vb$ <> " " then
  246.     CreateProgmanItem Grp$, "TFTP Sample Form", vb$ + DEST$ + "\vb_tftp\tftp.mak", "", cmoOverwrite
  247. end if
  248. CreateProgmanItem Grp$, "VT-220 Custom Control", DEST$ + "\vt220\vt220.exe", "", cmoOverwrite
  249. if vb$ <> " " then
  250.     CreateProgmanItem Grp$, "VT-220 Form", vb$ + DEST$ + "\vt220\vt220.mak", "", cmoOverwrite
  251. end if
  252.  
  253.         CreateProgmanItem Grp$, "Ordering Information", MakePath(DEST$+"\doc" ,"order.wri"),"",cmoOverwrite
  254.  
  255.     MSG% = DoMsgBox("Modify AUTOEXEC.BAT to include new path?", "AUTOEXEC.BAT", 36) ' OK and CANCEL
  256.     IF MSG% = 6 THEN
  257.       If EditAutoexec(DEST$) = 0 Then
  258.           WriteToLogFile "     Using GCPSETUP.DLL to edit AUTOEXEC.BAT: Successful"
  259.           msg% = DoMsgBox ("AUTOEXEC.BAT renamed AUTOEXEC.GCP"+Chr$(13)+Chr$(10)+"AUTOEXEC.BAT PATH now includes "+DEST$+"\BIN"+Chr$(13)+Chr$(10)+"--- Reboot for changes to take effect ---","AUTOEXEC Modified",0)
  260.       Else
  261.           WriteToLogFile "     Using GCPSETUP.DLL to edit AUTOEXEC.BAT: Failed"
  262.           msg% = DoMsgBox ("Unable to modify AUTOEXEC.BAT"+Chr$(13)+Chr$(10)+"Add "+DEST$+"\BIN to PATH environment variable.","AUTOEXEC Not Modified",48)
  263.       End If
  264.     else
  265.       i% = DoMsgBox("Ensure you include "+ DEST$ + "\bin in your PATH!", "AUTOEXEC not modified!", MB_OK)
  266.     End If
  267.  
  268.  
  269.     CloseLogFile
  270. END SUB
  271.  
  272.  
  273.  
  274. '**
  275. '** Purpose:
  276. '**     Appends a file name to the end of a directory path,
  277. '**     inserting a backslash character as needed.
  278. '** Arguments:
  279. '**     szDir$  - full directory path (with optional ending "\")
  280. '**     szFile$ - filename to append to directory
  281. '** Returns:
  282. '**     Resulting fully qualified path name.
  283. '*************************************************************************
  284. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  285.     IF szDir$ = "" THEN
  286.         MakePath = szFile$
  287.     ELSEIF szFile$ = "" THEN
  288.         MakePath = szDir$
  289.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  290.         MakePath = szDir$ + szFile$
  291.     ELSE
  292.         MakePath = szDir$ + "\" + szFile$
  293.     END IF
  294. END FUNCTION
  295.  
  296.