home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1036 / setup.ms_ / setup.bin
Encoding:
Text File  |  1992-11-14  |  4.3 KB  |  131 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3. CONST WELCOME=100
  4. CONST ASKQUIT=200
  5. CONST DESTPATH=300
  6. CONST EXITFAILURE=400
  7. CONST EXITQUIT=600
  8. CONST EXITSUCCESS=700
  9. CONST APPHELP=900
  10. CONST BADPATH=6400
  11. CONST LOGO=1
  12. GLOBAL DEST$
  13. DECLARE SUB Install
  14. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  15. INIT:
  16. CUIDLL$ = "mscuistf.dll"
  17. HELPPROC$ = "FHelpDlgProc"
  18. SetBitmap CUIDLL$, LOGO
  19. SetTitle "Setup fⁿr Captain Kirk"
  20. szInf$ = GetSymbolValue("STF_SRCINFPATH")
  21. IF szInf$ = "" THEN
  22. szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  23. END IF
  24. ReadInfFile szInf$
  25. DEST$ = MakePath(GetWindowsDir, "CK")
  26. WELCOME:
  27. sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  28. IF sz$ = "CONTINUE" THEN
  29. UIPop 1
  30. ELSE
  31. GOSUB ASKQUIT
  32. GOTO WELCOME
  33. END IF
  34. GETPATH:
  35. SetSymbolValue "EditTextIn", DEST$
  36. SetSymbolValue "EditFocus", "END"
  37. GETPATHL1:
  38. sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  39. DEST$ = GetSymbolValue("EditTextOut")
  40. IF sz$ = "CONTINUE" THEN
  41. IF IsDirWritable(DEST$) = 0 THEN
  42. GOSUB BADPATH
  43. GOTO GETPATHL1
  44. END IF
  45. UIPop 1
  46. ELSEIF sz$ = "REACTIVATE" THEN
  47. GOTO GETPATHL1
  48. ELSEIF sz$ = "BACK" THEN
  49. UIPop 1
  50. GOTO WELCOME
  51. ELSE
  52. GOSUB ASKQUIT
  53. GOTO GETPATH
  54. END IF
  55. Install
  56. QUIT:
  57. ON ERROR GOTO ERRQUIT
  58. IF ERR = 0 THEN
  59. dlg% = EXITSUCCESS
  60. ELSEIF ERR = STFQUIT THEN
  61. dlg% = EXITQUIT
  62. ELSE
  63. dlg% = EXITFAILURE
  64. END IF
  65. QUITL1:
  66. sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  67. IF sz$ = "REACTIVATE" THEN
  68. GOTO QUITL1
  69. END IF
  70. UIPop 1
  71. END
  72. ERRQUIT:
  73. i% = DoMsgBox("Die Setup Quelldateien sind defekt! Rufen Sie 030/452 4066 an!", "Setup Meldung", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  74. END
  75. BADPATH:
  76. sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  77. IF sz$ = "REACTIVATE" THEN
  78. GOTO BADPATH
  79. END IF
  80. UIPop 1
  81. RETURN
  82. ASKQUIT:
  83. sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  84. IF sz$ = "EXIT" THEN
  85. UIPopAll
  86. ERROR STFQUIT
  87. ELSEIF sz$ = "REACTIVATE" THEN
  88. GOTO ASKQUIT
  89. ELSE
  90. UIPop 1
  91. END IF
  92. RETURN
  93. SUB Install STATIC
  94. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  95. CreateDir DEST$, cmoNone
  96. ''AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  97. szTemp$ = "Files"
  98. AddSpecialFileToCopyList szTemp$, "CKP", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "CKP"))
  99. AddSpecialFileToCopyList szTemp$, "CKH", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "CKH"))
  100. AddSpecialFileToCopyList szTemp$, "ASCIISSL", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "ASCIISSL"))
  101. AddSpecialFileToCopyList szTemp$, "WRITESSL", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "WRITESSL"))
  102. AddSpecialFileToCopyList szTemp$, "ASCIIR", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "ASCIIR"))
  103. AddSpecialFileToCopyList szTemp$, "WRITER", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "WRITER"))
  104. AddSpecialFileToCopyList szTemp$, "ASCIIRM", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "ASCIIRM"))
  105. AddSpecialFileToCopyList szTemp$, "NOTEPRM", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "NOTEPRM"))
  106. AddSpecialFileToCopyList szTemp$, "DAP", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "DAP"))
  107. AddSpecialFileToCopyList szTemp$, "DAH", SrcDir$, MakePath(DEST$, GetSectionKeyFilename(szTemp$, "DAH"))
  108. CopyFilesInCopyList
  109. szTemp$ = "Captain Kirk"
  110. CreateProgmanGroup szTemp$, "", cmoAppend
  111. ShowProgmanGroup   szTemp$, 1, cmoNone
  112. CreateProgmanItem  szTemp$, "Captain Kirk", MakePath(DEST$, "CK.EXE"), "", cmoOverwrite
  113. CreateProgmanItem  szTemp$, "Hilfe zu Captain Kirk", "WINHELP.EXE "+MakePath(DEST$, "CK.HLP"), "", cmoOverwrite
  114. CreateProgmanItem  szTemp$, "Shareware Lizenz", "WRITE.EXE "+MakePath(DEST$, "LIZENZ.WRI"), "", cmoOverwrite
  115. CreateProgmanItem  szTemp$, "Registrierung", "WRITE.EXE "+MakePath(DEST$, "REGISTER.WRI"), "", cmoOverwrite
  116. CreateProgmanItem  szTemp$, "Read Me", "NOTEPAD.EXE "+MakePath(DEST$, "README.TXT"), "", cmoOverwrite
  117. CreateProgmanItem  szTemp$, "Die wilden Dreizehn", MakePath(DEST$, "DREIAPP.EXE"), "", cmoOverwrite
  118. CreateProgmanItem  szTemp$, "Hilfe - Die wilden Dreizehn", "WINHELP.EXE "+MakePath(DEST$, "DREIAPP.HLP"), "", cmoOverwrite
  119. END SUB
  120. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  121. IF szDir$ = "" THEN
  122. MakePath = szFile$
  123. ELSEIF szFile$ = "" THEN
  124. MakePath = szDir$
  125. ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  126. MakePath = szDir$ + szFile$
  127. ELSE
  128. MakePath = szDir$ + "\" + szFile$
  129. END IF
  130. END FUNCTION
  131.