home *** CD-ROM | disk | FTP | other *** search
/ MasterClips - The Art of Business / MasterClipsBusiness.iso / brssetup.mst < prev    next >
Text File  |  1993-02-28  |  26KB  |  401 lines
  1. '**************************************************************************
  2. '*                       MSSetup Toolkit PixFolio
  3. '**************************************************************************
  4.  
  5. '$DEFINE DEBUG  ''Define for script development/debugging
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc'
  9. '$INCLUDE 'mscuistf.inc'
  10.  
  11. ''Dialog ID's
  12. CONST WELCOME       = 100
  13. CONST ASKQUIT       = 200
  14. CONST DESTPATH      = 300
  15. CONST EXITFAILURE   = 400
  16. CONST EXITQUIT      = 600
  17. CONST EXITSUCCESS   = 700
  18. CONST OPTIONS       = 800
  19. CONST APPHELP       = 900
  20. CONST BADPATH       = 6400
  21. CONST CDGETNAMEORG  = 7500
  22. CONST MODELESS      = 5000
  23. CONST QUITWIN       = 6500
  24.  
  25. ''Bitmap ID
  26. CONST LOGO = 1
  27.  
  28. GLOBAL DEST$        ''Default destination directory.
  29. GLOBAL OPTCUR$      ''Option selection from option dialog.
  30. GLOBAL CUIDLL$      ''Custom user interface DLL
  31. GLOBAL szTempDir$   ''Working directory
  32.  
  33. DECLARE SUB Install
  34. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  35.  
  36.  
  37. INIT:
  38.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  39.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  40.  
  41.     SetBitmap CUIDLL$, LOGO
  42.     SetTitle "The Browser Setup"
  43.     szTempDir$ = GetSymbolValue("STF_CWDDIR")
  44.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  45.     IF szInf$ = "" THEN
  46.         szInf$ = GetSymbolValue("STF_CWDDIR") + "BRSSETUP.INF"
  47.     END IF
  48.     ReadInfFile szInf$
  49.  
  50.     DEST$ = "C:\BROWSER"
  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.  
  72.  
  73. GETPATH:
  74.     SetSymbolValue "EditTextIn", DEST$
  75.     SetSymbolValue "EditFocus", "END"
  76. GETPATHL1:
  77.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  78.     DEST$ = GetSymbolValue("EditTextOut")
  79.  
  80.     IF sz$ = "CONTINUE" THEN
  81.     IF IsDirWritable(DEST$) = 0 THEN
  82.         GOSUB BADPATH
  83.         GOTO GETPATHL1
  84.     END IF
  85.     UIPop 1
  86.     ELSEIF sz$ = "REACTIVATE" THEN
  87.     GOTO GETPATHL1
  88.     ELSEIF sz$ = "BACK" THEN
  89.     UIPop 1
  90.         GOTO WELCOME
  91.         
  92.     ELSE
  93.     GOSUB ASKQUIT
  94.     GOTO GETPATH
  95.     END IF
  96.  
  97.     SetSymbolValue "SERIAL", "0000000"
  98.     SetSymbolValue "OWNER", "Not Registered"
  99.     IF DoesFileExist(MakePath(DEST$, "BROWSER.EXE"), femReadWrite) = 1 THEN
  100.         l& = GetStringTable(DEST$)
  101.     END IF
  102.     SERIAL$ = GetSymbolValue("SERIAL")
  103.     OWNER$  = GetSymbolValue("OWNER")
  104.  
  105.     Install
  106. '*    i% = DoMsgBox(SERIAL$, "Serial Number", MB_OK)
  107.  
  108.  
  109.  
  110.     IF ValidateReg(SERIAL$) = 1 THEN
  111.         GOTO UPDATEIT
  112.     END IF
  113.  
  114. GETSERIAL:
  115.     
  116.     sz$ = UIStartDlg(CUIDLL$, CDGETNAMEORG, "FNameOrgDlgProc", APPHELP, HELPPROC$)
  117.     DEST$ = GetSymbolValue("EditTextOut")
  118.  
  119.     IF sz$ = "CONTINUE" THEN
  120.         UIPop 1
  121.     ELSEIF sz$ = "CANCEL" THEN
  122.         UIPop 1
  123.     ELSE
  124.         GOSUB ASKQUIT
  125.         GOTO GETSERIAL
  126.     END IF
  127.  
  128.     SERIAL$ = GetSymbolValue("SERIAL")
  129.     OWNER$  = GetSymbolValue("OWNER")
  130.  
  131. UPDATEIT:
  132.     IF ValidateReg(SERIAL$) = 1 THEN
  133.         l& = PutStringTable(DEST$)
  134.     END IF
  135.  
  136. '*    Install
  137. QUITWIN:
  138.     ii% = RestartListEmpty()
  139.     IF ii% = 0 THEN
  140.         sz$ = UIStartDlg(CUIDLL$, QUITWIN, "FQuitWinDlgProc", 0, "")
  141.         IF sz$ = "CONTINUE" THEN
  142.             UIPop 1
  143.         ELSEIF sz$ = "REACTIVATE" THEN
  144.             GOTO QUITWIN
  145.         ELSE
  146.             GOSUB ASKQUIT
  147.             GOTO QUITWIN
  148.         END IF
  149.         ij% = ExitExecRestart()
  150.     END IF
  151.  
  152.  
  153. QUIT:
  154.     ON ERROR GOTO ERRQUIT
  155.  
  156.     IF ERR = 0 THEN
  157.     dlg% = EXITSUCCESS
  158.     ELSEIF ERR = STFQUIT THEN
  159.     dlg% = EXITQUIT
  160.     ELSE
  161.     dlg% = EXITFAILURE
  162.     END IF
  163. QUITL1:
  164.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  165.     IF sz$ = "REACTIVATE" THEN
  166.     GOTO QUITL1
  167.     END IF
  168.     UIPop 1
  169.  
  170.     END
  171.  
  172. ERRQUIT:
  173.     i% = DoMsgBox("Setup sources were corrupted, call (800) 292-2547!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  174.     END
  175.  
  176.  
  177.  
  178. BADPATH:
  179.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  180.     IF sz$ = "REACTIVATE" THEN
  181.     GOTO BADPATH
  182.     END IF
  183.     UIPop 1
  184.     RETURN
  185.  
  186.  
  187. ASKQUIT:
  188.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  189.  
  190.     IF sz$ = "EXIT" THEN
  191.     UIPopAll
  192.     ERROR STFQUIT
  193.     ELSEIF sz$ = "REACTIVATE" THEN
  194.     GOTO ASKQUIT
  195.     ELSE
  196.     UIPop 1
  197.     END IF
  198.     RETURN
  199.  
  200.  
  201.  
  202. '**
  203. '** Purpose:
  204. '**     Builds the copy list and performs all installation operations.
  205. '** Arguments:
  206. '**     none.
  207. '** Returns:
  208. '**     none.
  209. '*************************************************************************
  210. SUB Install STATIC
  211.  
  212.     lTicks& = 20
  213.  
  214.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  215.     CreateDir DEST$, cmoNone
  216.     SysDir$ = GetWindowsSysDir()
  217.     ClearBillboardList
  218.     AddToBillboardList CUIDLL$, MODELESS, "FModelessDlgProc", lTicks&
  219.  
  220.     OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
  221.     WriteToLogFile ""
  222.     WriteToLogFile "  User chose as destination directory: '" + DEST$ + "'"
  223.     WriteToLogFile ""
  224.     WriteToLogFile "May have had to create the directory: " + DEST$
  225.     WriteToLogFile ""
  226.  
  227.     SetRestartDir(szTempDir)
  228.  
  229.     AddSectionFilesToCopyList "Remove List", SrcDir$, DEST$
  230.     AddSectionFilesToCopyList "The Browser Files", SrcDir$, DEST$
  231.     AddSectionFilesToCopyList "System Files", SrcDir$, SysDir$
  232. '    COMMDLG$ = GetSectionKeyFileName ("COMMDLG", "COMMDLG")
  233. '    if DoesFileExist(MakePath(SysDir$, COMMDLG$), femReadWrite) = 1 THEN
  234. '        Lang$ = "..........................................."
  235. '        GetVersionLanguage MakePath(SysDir$, COMMDLG$), Lang$
  236. ''*        i% = DoMsgBox(Lang$, "COMMDLG.DLL", MB_OK)
  237. '        if Lang$ = "U.S. English" THEN
  238. '            AddSectionKeyFileToCopyList "COMMDLG", "COMMDLG", SrcDir$, SysDir$
  239. '        else
  240. '            AddSectionKeyFileToCopyList "COMMDLG", "COMMDLG", SrcDir$, DEST$
  241. '        END IF
  242. '    ELSE
  243. '        AddSectionKeyFileToCopyList "COMMDLG", "COMMDLG", SrcDir$, SysDir$
  244. '    END IF
  245.     CopyFilesInCopyList
  246.  
  247.  
  248. '*    ini$ = MakePath(DEST$, "BROWSER.INI")
  249. '*    CreateIniKeyValue "WIN.INI", "Browser", "Option", OPTCUR$, cmoNone
  250. '*    CreateIniKeyValue ini$, "Section 1", "Key 1", "Value 1" , cmoNone
  251. '*    CreateIniKeyValue ini$, "Section 2", "Key 2", "Value 2" , cmoNone
  252. '*    CreateIniKeyValue ini$, "Section 3", "Key 3", "Value 3" , cmoNone
  253.  
  254.     cat$ = MakePath(Dest$, "BROWSER.CAT")
  255.     vol$ = "           "
  256.     GetVolume SrcDir$, vol$
  257.     Ext$ = "*.GIF;*.BMP;*.TIF;*.TGA;*.IFF;*.PCX;*.WMF;*.EPS;*.WPG;*.CGM"
  258.     i% = DoesFileExist(cat$, femExists)
  259.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Primary Drives", SrcDir$, cmoNone
  260.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog1", "Default," + cat$ + "," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  261.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog2", "Agriculture," + SrcDir$ + "catalogs\agricult.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  262.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog3", "Americana - General," + SrcDir$ + "catalogs\amergen.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  263.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog4", "Americana - Landmark," + SrcDir$ + "catalogs\amerland.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  264.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog5", "Americana - State Names," + SrcDir$ + "catalogs\amerstnm.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  265.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog6", "Americana - State Nicknames," + SrcDir$ + "catalogs\amerstnk.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  266.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog7", "Animals," + SrcDir$ + "catalogs\animals.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  267.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog8", "Backgrounds," + SrcDir$ + "catalogs\backgrnd.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  268.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog9", "Borders," + SrcDir$ + "catalogs\borders.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  269.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog10", "Business - General," + SrcDir$ + "catalogs\busigen.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  270.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog11", "Business - Currency," + SrcDir$ + "catalogs\busicncy.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  271.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog12", "Business - Documents," + SrcDir$ + "catalogs\busidocs.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  272.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog13", "Business - Energy," + SrcDir$ + "catalogs\busiengy.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  273.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalog14", "Business - Graphical Text," + SrcDir$ + "catalogs\busigrtx.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  274.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog15", "Business - Office," + SrcDir$ + "catalogs\busioffc.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone'
  275.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog16", "Business - Stamps," + SrcDir$ + "catalogs\busistm.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  276.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog17", "Business - Weights & Measures," + SrcDir$ + "catalogs\busiwtme.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  277.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog18", "Calendars," + SrcDir$ + "catalogs\calendar.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  278.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog19", "Construction - Equipment," + SrcDir$ + "catalogs\consequp.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  279.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog103", "Construction - Tools," + SrcDir$ + "catalogs\constool.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  280.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog20", "Design," + SrcDir$ + "catalogs\design.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  281.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog21", "Education - General," + SrcDir$ + "catalogs\educgen.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  282.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog22", "Education - College Names," + SrcDir$ + "catalogs\educcoll.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  283.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog23", "Entertainment - Leisure," + SrcDir$ + "catalogs\entrleis.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  284.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog24", "Entertainment - Travel & Dining," + SrcDir$ + "catalogs\entrtrdn.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  285.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog25", "Flags - Australian States & Territories," + SrcDir$ + "catalogs\Flagaust.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  286.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog26", "Flags - Austrian States," + SrcDir$ + "catalogs\flagasti.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  287.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog27", "Flags - Canadian Providences," + SrcDir$ + "catalogs\flagcand.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  288.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog28", "Flags - Ecuadorian Provinces," + SrcDir$ + "catalogs\flagequd.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  289.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog29", "Flags - Emirates," + SrcDir$ + "catalogs\flagemir.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  290.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog30", "Flags - German States," + SrcDir$ + "catalogs\flaggerm.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  291.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog31", "Flags - Japanese Prefectures," + SrcDir$ + "catalogs\flagjapp.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  292.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog32", "Flags - Miscellaneous," + SrcDir$ + "catalogs\flagmisc.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  293.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog33", "Flags - Nautical," + SrcDir$ + "catalogs\flagnaut.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  294.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog34", "Flags - Netherlands Provinces," + SrcDir$ + "catalogs\flagneth.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  295.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog35", "Flags - Swiss Cantons," + SrcDir$ + "catalogs\flagswis.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  296.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog36", "Flags - United Kingdom," + SrcDir$ + "catalogs\flagukco.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  297.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog37", "Flags - United States," + SrcDir$ + "catalogs\flagus50.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  298.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog38", "Flags - World," + SrcDir$ + "catalogs\flagwrld.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  299.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog39", "Food & Beverage," + SrcDir$ + "catalogs\food.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  300.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog40", "Graphical Text - Signs," + SrcDir$ + "catalogs\grphtxsn.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  301.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog41", "Household," + SrcDir$ + "catalogs\houshold.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  302.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog42", "Humor - General," + SrcDir$ + "catalogs\humrgen.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  303.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog43", "Humor - Animals," + SrcDir$ + "catalogs\humranml.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  304.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog44", "Humor - Animated," + SrcDir$ + "catalogs\humranma.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  305.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog45", "Humor - Construction," + SrcDir$ + "catalogs\humrcons.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  306.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog46", "Humor - Vehicles," + SrcDir$ + "catalogs\humrvehc.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  307.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog47", "Icons - Electrical," + SrcDir$ + "catalogs\iconelec.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  308.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog48", "Icons - Flow Chart," + SrcDir$ + "catalogs\iconflow.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  309.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog49", "Icons - Information," + SrcDir$ + "catalogs\iconinfo.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  310.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog50", "Icons - Roman Numerals," + SrcDir$ + "catalogs\iconrman.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  311.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog51", "Icons - Shipping Labels," + SrcDir$ + "catalogs\iconship.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  312.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog52", "Maps - USA States," + SrcDir$ + "catalogs\mapsus50.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  313.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog53", "Maps - World," + SrcDir$ + "catalogs\mapswrl.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  314.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog54", "Maps - World 3D," + SrcDir$ + "catalogs\maps3dwr.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  315.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog55", "Maps - World Extruded," + SrcDir$ + "catalogs\mapswrex.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  316.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog56", "Maps - World Highlighted," + SrcDir$ + "catalogs\mapswrhi.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  317.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog57", "Medical," + SrcDir$ + "catalogs\medical.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  318.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog58", "Military/Government - General," + SrcDir$ + "catalogs\mlgvgen.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  319.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog59", "Military/Government - Badges," + SrcDir$ + "catalogs\mlgvbadg.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  320.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog60", "Military/Government - Enlisted Rank," + SrcDir$ + "catalogs\mlgvenrk.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  321.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog61", "Military/Government - Officers Rank," + SrcDir$ + "catalogs\mlgvofrk.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  322.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog62", "Military/Government - Ribbons," + SrcDir$ + "catalogs\mlgvribb.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  323.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog63", "People - Families," + SrcDir$ + "catalogs\peplfaml.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  324.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog64", "People - Professional," + SrcDir$ + "catalogs\peplprf.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  325.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog65", "Real Estate," + SrcDir$ + "catalogs\realesta.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  326.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog66", "Religion," + SrcDir$ + "catalogs\religion.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  327.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog67", "Retail," + SrcDir$ + "catalogs\retail.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  328.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog68", "Seasons & Holidays," + SrcDir$ + "catalogs\seashol.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  329.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog69", "Shapes - General," + SrcDir$ + "catalogs\shapgen.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  330.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog70", "Shapes - 3D," + SrcDir$ + "catalogs\shap3d.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  331.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog71", "Shapes - Arrows," + SrcDir$ + "catalogs\shaparrw.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  332.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog72", "Shapes - Balloons & Buttons," + SrcDir$ + "catalogs\shapblbu.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  333.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog73", "Shapes - Silhouettes," + SrcDir$ + "catalogs\shapsilh.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  334.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog74", "Shapes - Starbursts," + SrcDir$ + "catalogs\shapstar.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  335.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog75", "Signs - Astronomy," + SrcDir$ + "catalogs\signastr.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  336.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog76", "Signs - Caution," + SrcDir$ + "catalogs\signcaut.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  337.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog77", "Signs - Chemical," + SrcDir$ + "catalogs\signchem.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  338.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog78", "Signs - Danger," + SrcDir$ + "catalogs\signdngr.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  339.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog79", "Signs - Environment," + SrcDir$ + "catalogs\signenvr.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  340.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog80", "Signs - Exit & Fire," + SrcDir$ + "catalogs\signexfr.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  341.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog81", "Signs - Famous Streets," + SrcDir$ + "catalogs\signstrt.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  342.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog82", "Signs - Handicapped," + SrcDir$ + "catalogs\signhand.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  343.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog83", "Signs - Hazardous Material," + SrcDir$ + "catalogs\signhzmt.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  344.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog84", "Signs - Information," + SrcDir$ + "catalogs\signinfo.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  345.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog85", "Signs - Legal," + SrcDir$ + "catalogs\signlegl.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  346.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog86", "Signs - Mathematical," + SrcDir$ + "catalogs\signmath.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  347.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog87", "Signs - Medical," + SrcDir$ + "catalogs\signmdcl.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  348.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog88", "Signs - Miscellaneous," + SrcDir$ + "catalogs\signmisc.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  349.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog89", "Signs - Parking," + SrcDir$ + "catalogs\signpark.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  350.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog90", "Signs - Road/International," + SrcDir$ + "catalogs\signrdil.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  351.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog91", "Signs - Road/USA," + SrcDir$ + "catalogs\signrdus.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  352.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog92", "Signs - Smoking," + SrcDir$ + "catalogs\signsmok.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  353.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog93", "Signs - Warning," + SrcDir$ + "catalogs\signwarn.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  354.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog94", "Signs - Weather," + SrcDir$ + "catalogs\signwthr.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  355.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog95", "Signs - World," + SrcDir$ + "catalogs\signwrld.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  356.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog96", "Signs - Zodiac," + SrcDir$ + "catalogs\signzdac.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  357.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog97", "Special Occasions," + SrcDir$ + "catalogs\spclocs.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  358.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog98", "Sports," + SrcDir$ + "catalogs\sports.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  359.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog99", "Technology," + SrcDir$ + "catalogs\techlgy.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  360.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog100", "Templates," + SrcDir$ + "catalogs\template.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  361.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog101", "Transportation - Aviation," + SrcDir$ + "catalogs\tranavat.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  362.         CreateIniKeyValue DEST$ + "\PIXFOLIO.INI", "Browser", "Catalog102", "Transportation - Ground," + SrcDir$ + "catalogs\trangrnd.cat," + Ext$ +"," + vol$ + ",readonly,", cmoNone
  363.         CreateIniKeyValue dest$ + "\pixfolio.INI", "Browser", "Catalogs", "103", cmoNone
  364.     CreateProgmanGroup "Browser", "", cmoNone
  365.     ShowProgmanGroup  "Browser", 1, cmoNone
  366.     CreateProgmanItem "Browser", "Browser", MakePath(DEST$,"Browser"), "", cmoOverwrite
  367.     CreateProgmanItem "Browser", "Read Me", "notepad.exe "+MakePath(DEST$,"pixREAD.ME"), "", cmoOverwrite
  368.     CreateProgmanItem "Browser", "User Guide", "Write.exe "+MakePath(DEST$,"UsrManl.wri"), "", cmoOverwrite
  369.  
  370.  
  371. '*    AddDos5Help "YOURAPP", "A brief help text for your Windows application."+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone
  372.  
  373.     CloseLogFile
  374.  
  375. END SUB
  376.  
  377.  
  378.  
  379. '**
  380. '** Purpose:
  381. '**     Appends a file name to the end of a directory path,
  382. '**     inserting a backslash character as needed.
  383. '** Arguments:
  384. '**     szDir$  - full directory path (with optional ending "\")
  385. '**     szFile$ - filename to append to directory
  386. '** Returns:
  387. '**     Resulting fully qualified path name.
  388. '*************************************************************************
  389. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  390.     IF szDir$ = "" THEN
  391.     MakePath = szFile$
  392.     ELSEIF szFile$ = "" THEN
  393.     MakePath = szDir$
  394.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  395.     MakePath = szDir$ + szFile$
  396.     ELSE
  397.     MakePath = szDir$ + "\" + szFile$
  398.     END IF
  399. END FUNCTION
  400.  
  401.