home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Windows Tools / SOS-WIN_TOOLS.ISO / programm / shell / ckirk20 / setup.ms_ / setup.bin
Encoding:
Text File  |  1994-03-13  |  3.2 KB  |  123 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. DECLARE FUNCTION ShowWindow LIB "USER" (hwnd%, mode%) AS INTEGER
  16. INIT:
  17. CUIDLL$ = "mscuistf.dll"
  18. HELPPROC$ = "FHelpDlgProc"
  19. SetBitmap CUIDLL$, LOGO
  20. SetTitle "Setup fⁿr Captain Kirk v2.00s"
  21. hwnd%=HwndFrame()
  22. hwnd%=ShowWindow(hwnd%,3)
  23. szInf$ = GetSymbolValue("STF_SRCINFPATH")
  24. IF szInf$ = "" THEN
  25. szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  26. END IF
  27. ReadInfFile szInf$
  28. DEST$ = MakePath(GetWindowsDir, "CK2SW")
  29. WELCOME:
  30. sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  31. IF sz$ = "CONTINUE" THEN
  32. UIPop 1
  33. ELSE
  34. GOSUB ASKQUIT
  35. GOTO WELCOME
  36. END IF
  37. GETPATH:
  38. SetSymbolValue "EditTextIn", DEST$
  39. SetSymbolValue "EditFocus", "END"
  40. GETPATHL1:
  41. sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  42. DEST$ = GetSymbolValue("EditTextOut")
  43. IF sz$ = "CONTINUE" THEN
  44. IF IsDirWritable(DEST$) = 0 THEN
  45. GOSUB BADPATH
  46. GOTO GETPATHL1
  47. END IF
  48. UIPop 1
  49. ELSEIF sz$ = "REACTIVATE" THEN
  50. GOTO GETPATHL1
  51. ELSEIF sz$ = "BACK" THEN
  52. UIPop 1
  53. GOTO WELCOME
  54. ELSE
  55. GOSUB ASKQUIT
  56. GOTO GETPATH
  57. END IF
  58. Install
  59. QUIT:
  60. ON ERROR GOTO ERRQUIT
  61. IF ERR = 0 THEN
  62. dlg% = EXITSUCCESS
  63. ELSEIF ERR = STFQUIT THEN
  64. dlg% = EXITQUIT
  65. ELSE
  66. dlg% = EXITFAILURE
  67. END IF
  68. QUITL1:
  69. sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  70. IF sz$ = "REACTIVATE" THEN
  71. GOTO QUITL1
  72. END IF
  73. UIPop 1
  74. END
  75. ERRQUIT:
  76. i% = DoMsgBox("Die Setup Quelldateien sind evtl. defekt.", "Setup Meldung", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  77. END
  78. BADPATH:
  79. sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  80. IF sz$ = "REACTIVATE" THEN
  81. GOTO BADPATH
  82. END IF
  83. UIPop 1
  84. RETURN
  85. ASKQUIT:
  86. sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  87. IF sz$ = "EXIT" THEN
  88. UIPopAll
  89. ERROR STFQUIT
  90. ELSEIF sz$ = "REACTIVATE" THEN
  91. GOTO ASKQUIT
  92. ELSE
  93. UIPop 1
  94. END IF
  95. RETURN
  96. SUB Install STATIC
  97. SrcDir$ = GetSymbolValue("STF_SRCDIR")
  98. CreateDir DEST$, cmoNone
  99. AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  100. CopyFilesInCopyList
  101. AddSectionFilesToCopyList "Win", SrcDir$, GetWindowsDir
  102. CopyFilesInCopyList
  103. szTemp$ = "Captain Kirk v2.00s"
  104. CreateProgmanGroup szTemp$, "", cmoAppend
  105. ShowProgmanGroup   szTemp$, 1, cmoNone
  106. CreateProgmanItem  szTemp$, "Captain Kirk", MakePath(DEST$, "CK.EXE"), "", cmoOverwrite
  107. CreateProgmanItem  szTemp$, "Hilfe zu Captain Kirk", "WINHELP.EXE "+MakePath(DEST$, "CK.HLP"), "", cmoOverwrite
  108. CreateProgmanItem  szTemp$, "Read Me", "WRITE.EXE "+MakePath(DEST$, "README.WRI"), "", cmoOverwrite
  109. CreateProgmanItem  szTemp$, "Shareware Lizenz", "WRITE.EXE "+MakePath(DEST$, "LIZENZ.WRI"), "", cmoOverwrite
  110. CreateProgmanItem  szTemp$, "Bestellschein", "WRITE.EXE "+MakePath(DEST$, "BESTELL.WRI"), "", cmoOverwrite
  111. END SUB
  112. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  113. IF szDir$ = "" THEN
  114. MakePath = szFile$
  115. ELSEIF szFile$ = "" THEN
  116. MakePath = szDir$
  117. ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  118. MakePath = szDir$ + szFile$
  119. ELSE
  120. MakePath = szDir$ + "\" + szFile$
  121. END IF
  122. END FUNCTION
  123.