home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Studio Effects / MULTIMEDIA.ISO / programs / icondesn / designer.mst < prev    next >
Text File  |  1994-07-25  |  7KB  |  175 lines
  1. '$INCLUDE 'setupapi.inc'
  2.  
  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 OPTIONS           = 800
  10. CONST APPHELP           = 900
  11. CONST BADPATH           = 6400
  12. CONST Logo              = 1
  13.  
  14. GLOBAL Destination$     ''Default destination directory.
  15. GLOBAL OPTCUR$          ''Option selection from option dialog.
  16. GLOBAL Answer$          ''Answer from functions that return strings.    
  17. GLOBAL ICOFileName$     ''Copy file buffer.
  18. GLOBAL SrcFileName$     ''Copy file buffer.
  19. GLOBAL Label$           ''Global name for icon Designer 2.0
  20. GLOBAL Subs$            ''Global subdirectory.
  21.  
  22. DECLARE SUB Install
  23. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  24.  
  25. ''----------------------------------------------------------------------------
  26. ''----------------------------------------------------------------------------
  27. ''----------------------------------------------------------------------------
  28. INIT:
  29.     CUIDLL$             = "mscuistf.dll"
  30.     HELPPROC$           = "FHelpDlgProc"
  31.     OPTCUR$             = "1"
  32.     Destination$        = "C:\DESIGNER"
  33.     Label$              = "Icon Designer 2.1"
  34.  
  35.     SetBitmap CUIDLL$, Logo
  36.     SetTitle "Windows Icon Designer"
  37. ''----------------------------------------------------------------------------
  38. ''----------------------------------------------------------------------------
  39. ''----------------------------------------------------------------------------
  40. WELCOME:
  41.     Answer$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  42.     IF Answer$ = "CONTINUE" THEN
  43.     UIPop 1
  44.     ELSE
  45.     GOSUB ASKQUIT
  46.     GOTO WELCOME
  47.     END IF
  48. ''----------------------------------------------------------------------------
  49. ''----------------------------------------------------------------------------
  50. ''----------------------------------------------------------------------------
  51. OPTION:
  52.     SetSymbolValue "RadioDefault", OPTCUR$
  53. ''----------------------------------------------------------------------------
  54. ''----------------------------------------------------------------------------
  55. ''----------------------------------------------------------------------------
  56. GETPATH:
  57.     SetSymbolValue "EditTextIn", Destination$
  58.     SetSymbolValue "EditFocus", "END"
  59. ''----------------------------------------------------------------------------
  60. ''----------------------------------------------------------------------------
  61. ''----------------------------------------------------------------------------
  62. GETPATHL1:
  63.     Answer$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  64.     Destination$ = GetSymbolValue("EditTextOut")
  65.  
  66.     IF Answer$ = "CONTINUE" THEN
  67.     IF IsDirWritable(Destination$) = 0 THEN
  68.         GOSUB BADPATH
  69.         GOTO GETPATHL1
  70.     END IF
  71.     UIPop 1
  72.     ELSEIF Answer$ = "REACTIVATE" THEN
  73.     GOTO GETPATHL1
  74.     ELSEIF Answer$ = "BACK" THEN
  75.     UIPop 1
  76.     GOTO OPTION
  77.     ELSE
  78.     GOSUB ASKQUIT
  79.     GOTO GETPATH
  80.     END IF
  81.  
  82.     INSTALL
  83.     GOTO FINISH
  84. ''----------------------------------------------------------------------------
  85. ''----------------------------------------------------------------------------
  86. ''----------------------------------------------------------------------------
  87. SUB INSTALL STATIC
  88.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  89.     WinDir$ = GetWindowsDir()
  90.     InfoPath$ = MakePath(SrcDir$,"SETUP.INF")
  91.  
  92.     ReadInfFile InfoPath$
  93.     CreateDir Destination$, cmoNone
  94.     AddSectionFilesToCopyList "FILES", SrcDir$, Destination$
  95.  
  96.     Subs$ = MakePath(Destination$,"TOONS")
  97.     CreateDir Subs$, cmoNone
  98.     AddSectionFilesToCopyList "TOONICONS", SrcDir$, Subs$
  99.  
  100.     Subs$ = MakePath(Destination$,"APPS")
  101.     CreateDir Subs$, cmoNone
  102.     AddSectionFilesToCopyList "APPICONS", SrcDir$, Subs$
  103.  
  104.     Subs$ = MakePath(Destination$,"CUSTOM")
  105.     CreateDir Subs$, cmoNone
  106.     AddSectionFilesToCopyList "CUSTOMICONS", SrcDir$, Subs$
  107.  
  108.     Subs$ = MakePath(Destination$,"256CLR")
  109.     CreateDir Subs$, cmoNone
  110.     AddSectionFilesToCopyList "256ICONS", SrcDir$, Subs$
  111.  
  112.     AddSectionFilesToCopyList "DESIGNER.INI",SrcDir$,WinDir$
  113.  
  114.     CopyFilesInCopyList
  115.  
  116.     DesPath$ = ",,,," + MakePath(Destination$,"256CLR")
  117.  
  118.     CreateProgmanGroup Label$ ,"DESIGN21.GRP" ,cmoNone
  119.     ShowProgmanGroup   Label$ ,1 ,cmoNone
  120.     CreateProgmanItem  Label$ ,Label$ ,MakePath(Destination$,"DESIGNER.EXE") ,DesPath$ ,cmoOverwrite
  121.     CreateProgmanItem  Label$ ,"Icon Designer 2.1 Help" ,MakePath(Destination$,"DESIGNER.HLP") ,"" ,cmoOverwrite
  122.  
  123. END SUB
  124. ''----------------------------------------------------------------------------
  125. ''----------------------------------------------------------------------------
  126. ''----------------------------------------------------------------------------
  127. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  128.     IF szDir$ = "" THEN
  129.     MakePath = szFile$
  130.     ELSEIF szFile$ = "" THEN
  131.     MakePath = szDir$
  132.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  133.     MakePath = szDir$ + szFile$
  134.     ELSE
  135.     MakePath = szDir$ + "\" + szFile$
  136.     END IF
  137. END FUNCTION
  138. ''----------------------------------------------------------------------------
  139. ''----------------------------------------------------------------------------
  140. ''----------------------------------------------------------------------------
  141. BADPATH:
  142.     Answer$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  143.     IF Answer$ = "REACTIVATE" THEN
  144.     GOTO BADPATH
  145.     END IF
  146.     UIPop 1
  147.     RETURN
  148. ''----------------------------------------------------------------------------
  149. ''----------------------------------------------------------------------------
  150. ''----------------------------------------------------------------------------
  151. ASKQUIT:
  152.     Answer$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  153.     IF Answer$ = "EXIT" THEN
  154.     UIPopAll
  155.     END
  156.     ELSEIF Answer$ = "REACTIVATE" THEN
  157.     GOTO ASKQUIT
  158.     ELSE
  159.     UIPop 1
  160.     END IF
  161.     RETURN
  162. ''----------------------------------------------------------------------------
  163. ''----------------------------------------------------------------------------
  164. ''----------------------------------------------------------------------------
  165. FINISH:
  166.     Answer$ = UIStartDlg(CUIDLL$, EXITSUCCESS, "FInfoDlgProc", APPHELP, HELPPROC$)
  167. ''----------------------------------------------------------------------------
  168. ''----------------------------------------------------------------------------
  169. ''----------------------------------------------------------------------------
  170. QUIT:
  171. END
  172. ''----------------------------------------------------------------------------
  173. ''----------------------------------------------------------------------------
  174. ''----------------------------------------------------------------------------
  175.