home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / sharewar / winbatch / winbatch.exe / wsinit.dl_ < prev    next >
Encoding:
Text File  |  2000-04-13  |  13.5 KB  |  336 lines
  1. ;-------------------------------------------------------------------------
  2. ; wsinit.dll  - WinBatch version
  3. ;
  4. ; WinBatch Studio checks for the existence of this file at startup, looking
  5. ; in the WinBatch Studio directory. It allows you a chance to customize 
  6. ; every part of WinBatch Studio at startup without user intervention.
  7. ; 
  8. ; If WinBatch Studio executes the script it saves the file date stamp.  Subsequently
  9. ; at startup, WinBatch Studio will compare the file date with the saved time and
  10. ; will only re-run the script if it's newer than the saved timestamp.
  11. ;
  12. ;
  13. if "%param1%"=="CLEARTOOLBAR"
  14.    GOTO CLEARTOOLBAR
  15. endif
  16.  
  17. regword="WinBatch Studio"
  18. ;gosub NukeSomeSettings
  19. gosub SetupPage
  20. gosub SetupFind
  21. gosub SetupGlobal
  22. ; Set up some file types.  Maybe should be first, as later items override earlier items...
  23. gosub SetupHTML     ; This one here primarily as an example.
  24. ;
  25. gosub ClearToolbarSetup
  26.  
  27. exit
  28.  
  29.  
  30. :SetupHTML
  31.         ;-------------------------------------------------------------------------
  32.         ; File specific settings
  33.         ;
  34.         ; This example sets up WinBatch Studio for HTML files. 
  35.         ;-------------------------------------------------------------------------
  36.  
  37.         ; First, verify these settings were not already installed so we don't
  38.         ; overwrite changes made by the user on a mere update.  If thiere is
  39.         ; a real update, then yes we do overwrite user customizations.
  40.         FileKind="HTML"         ; Name of manil file group for this type of files
  41.         ConfigVerWBT=7     ; Configuration version number,.  Update when changing this section
  42.  
  43.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files[ConfigVer]")
  44.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files[ConfigVer]")
  45.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  46.         endif
  47.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files[ConfigVer]",ConfigVerWBT)
  48.  
  49.  
  50.  
  51.         ; The File mapping key sets up the file extensions with a particular 
  52.         ; file group.  e.g.   HTML, HTM and ASP type files all belong to the
  53.         ; HTML file group 
  54.         
  55.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File mapping")
  56.         
  57.         RegSetValue(regkey, "[HTML]", FileKind)
  58.         RegSetValue(regkey, "[HTM]",  FileKind)
  59.         RegSetValue(regkey, "[ASP]",  FileKind)
  60.         RegSetValue(regkey, "[XML]",  FileKind)
  61.         RegCloseKey(regkey)
  62.         
  63.         
  64.         ;-------------------------------------------------------------------------
  65.         ; the File types key sets up the file extension - specific settings
  66.         
  67.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\File types\%FileKind% Files")
  68.         
  69.         ; add this file type to the FileOpen dialog
  70.         RegSetDWord(regkey, "[AddToFileDialog]", 1)
  71.         
  72.         ; description and wild cards to use in FileOpen dialog
  73.         RegSetValue(regkey, "[FileOpenMask]", "%FileKind% Files|*.htm;*.html;*.asp;*.xml")
  74.         
  75.         ; case sensitivity
  76.         RegSetDWord(regkey, "[Case]", 0)
  77.         
  78.         ; show chroma coding
  79.         RegSetDWord(regkey, "[Chroma]", 1)
  80.         
  81.         ; comment definition - two available
  82.         RegSetValue(regkey, "[Comment Start 1]", "<!--")
  83.         RegSetValue(regkey, "[Comment End 1]", "-->")
  84.         
  85.         RegSetValue(regkey, "[Comment Start 2]", "")
  86.         RegSetValue(regkey, "[Comment End 2]", "")
  87.         
  88.         ; font information for this file type                                                      
  89.         RegSetValue(regkey, "[Font name]", "Courier New")
  90.         RegSetDWord(regkey, "[Font size]", 10)
  91.         
  92.         ; 400 = normal, 700 = bold
  93.         RegSetDWord(regkey, "[Font weight]", 400)
  94.         RegSetDWord(regkey, "[Font italic]", 0)
  95.         
  96.         ; 1 = insert mode; 0 = overtype
  97.         RegSetDWord(regkey, "[Insert]", 1)
  98.         
  99.         ; pathname of keyword listing file
  100.         RegSetValue(regkey, "[Keywords]", "%FileKind%.clr")
  101.         
  102.         ; 0 = CR/LF; 1 = LF; 2 = LF/CR; 3 = CR
  103.         RegSetDWord(regkey, "[Line end type]", 0)
  104.         
  105.         ; leave files locked when open
  106.         RegSetDWord(regkey, "[Lock files]", 0)
  107.         
  108.         ; 1 = use tabs; 0 = insert spaces
  109.         RegSetDWord(regkey, "[Keep tabs]", 1)
  110.         
  111.         ; show visible tab marks on screen
  112.         RegSetDWord(regkey, "[Show tabs]", 0)
  113.         
  114.         ; tab size in characters
  115.         RegSetDWord(regkey, "[Tab size]", "3")
  116.         
  117.         ; extra characters to be considered part of a word
  118.         RegSetValue(regkey, "[Extra word chars]", "!")
  119.         
  120.         ; extra characters that might start a word
  121.         RegSetValue(regkey, "[Start chars]", "")
  122.         
  123.         ; extra characters that might end a word
  124.         RegSetValue(regkey, "[Terminator chars]", "")
  125.         
  126.         ; colors.  R,G,B values as a string
  127.         RegSetValue(regkey, "[Background]", "255,255,255")
  128.         RegSetValue(regkey, "[Comment]", "0,128,0")
  129.         RegSetValue(regkey, "[Default Text]", "0,0,0")
  130.         RegSetValue(regkey, "[Keyword]", "0,0,255")
  131.         RegSetValue(regkey, "[Quote]", "255,0,0")
  132.         
  133.         ; character set 0 = ANSI, 1 = OEM
  134.         RegSetDWord(regkey, "[CharSet]", 0)
  135.         
  136.         ; compile command
  137.         RegSetValue(regkey, "[Compile command]", "")
  138.         
  139.         ; call a custom WIL error parsing script after compiling
  140.         RegSetDWord(regkey, "[UseWBT]", 0)
  141.         
  142.         ; if so, the name of the script
  143.         RegSetValue(regkey, "[WBTErrorFile]", "")
  144.         RegCloseKey(regkey)
  145.         return
  146.  
  147.         
  148. :SetupPage
  149.         ;-------------------------------------------------------------------------
  150.         ; the PageSetup key handles all the printing settings
  151.         
  152.         ;First check to try not to needlessly overwrite user settings
  153.  
  154.         ConfigVerWBT=5     ; Configuration version number,.  Update when changing this section
  155.  
  156.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup[ConfigVer]")
  157.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup[ConfigVer]")
  158.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  159.         endif
  160.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup[ConfigVer]",ConfigVerWBT)
  161.  
  162.         
  163.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\PageSetup")
  164.         
  165.         ; 0 = ANSI, 1 = OEM
  166.         RegSetDWord(regkey,"[CharSet]", 0)
  167.         
  168.         ; 1 = print in color, 0 = OFF
  169.         RegSetDWord(regkey, "[Color syntax]", 1)
  170.         
  171.         ; 1 = print italics, 0 = regular
  172.         RegSetDWord(regkey, "[Font Italic]", 0)
  173.         
  174.         ; name of font 
  175.         RegSetValue(regkey, "[Font name]", "Courier New")
  176.         
  177.         ; size of font in points
  178.         RegSetDWord(regkey, "[Font size]", 12)
  179.         
  180.         ; 400 = normal, 700 = bold
  181.         RegSetDWord(regkey, "[Font weight]", 400)
  182.         
  183.         ; footer macro string
  184.         RegSetValue(regkey, "[Footer]", "Page $(PageNo)")
  185.         
  186.         ; print file time in footer, 1 = yes, 0 = no
  187.         RegSetDWord(regkey, "[FooterTime]", 0)
  188.         
  189.         ; header macro string
  190.         RegSetValue(regkey, "[Header]", "$(FilePath) - $(FileTime)")
  191.         
  192.         ; print file time in header, 1 = yes, 0 = no
  193.         RegSetDWord(regkey, "[HeaderTime]", 0)
  194.         
  195.         ; print line numbers, 1 = yes, 0 = no
  196.         RegSetDWord(regkey, "[Line numbers]", 0)
  197.         
  198.         ; print pages two up, 1 = yes, 0 = no
  199.         RegSetDWord(regkey, "[Twoup]", 0)
  200.         
  201.         ; 0 = use screen font, 1 = use printer font defined above
  202.         RegSetDWord(regkey, "[Use printer font]", 0)
  203.         
  204.         RegCloseKey(regkey)
  205.         return
  206.  
  207. :SetupFind
  208.         ;-------------------------------------------------------------------------
  209.         ; the Settings\Find key handles the find\replace settings
  210.  
  211.         ;First check to try not to needlessly overwrite user settings
  212.  
  213.         ConfigVerWBT=5     ; Configuration version number,.  Update when changing this section
  214.  
  215.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find[ConfigVer]")
  216.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find[ConfigVer]")
  217.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  218.         endif
  219.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find[ConfigVer]",ConfigVerWBT)
  220.  
  221.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Find")
  222.         
  223.         ; these keys are all true/false, 1 = ON, 0 = OFF
  224.         RegSetDWord(regkey, "[Forward]", 1)
  225.         RegSetDWord(regkey, "[Match case]", 0)
  226.         RegSetDWord(regkey, "[Regular expressions]", 0)
  227.         RegSetDWord(regkey, "[Wrap search]", 0)
  228.         RegCloseKey(regkey)
  229.         return
  230.  
  231. :setupGlobal
  232.         ;-------------------------------------------------------------------------
  233.         ; the Settings\Main Window key handles the global editor settings
  234.  
  235.        ;First check to try not to needlessly overwrite user settings
  236.  
  237.         ConfigVerWBT=6     ; Configuration version number,.  Update when changing this section
  238.  
  239.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]")
  240.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]")
  241.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is newer, do not excecute
  242.         endif
  243.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]",ConfigVerWBT)
  244.  
  245.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window")
  246.         
  247.         ; backup location macro string
  248.         RegSetValue(regkey, "[Backup location]", "$(FilePath).backup")
  249.         RegSetValue(regkey, "[Autosave location]", "$(FilePath).autosave")
  250.         
  251.         ; the name of the active project
  252.         RegSetValue(regkey, "[Active Workspace]", "Default")
  253.         
  254.         ; the autosave interval, in minutes
  255.         RegSetDWord(regkey, "[Autosave interval]", 5)
  256.         
  257.         ; the rest are all true/false, on/off
  258.         RegSetDWord(regkey, "[AutoSave]", 1)
  259.         RegSetDWord(regkey, "[Horizontal Scrollbar]", 1)
  260.         RegSetDWord(regkey, "[Make Backups]", 1)
  261.         
  262.         ; leave the cursor at the end of pasted text
  263.         RegSetDWord(regkey, "[Paste After]", 1)
  264.         
  265.         ; automatically save files before running tools
  266.         RegSetDWord(regkey, "[Save Before]", 1)
  267.         
  268.         ; don't prompt before automatically saving files
  269.         RegSetDWord(regkey, "[Prompt Before]", 0)
  270.         
  271.         ; reload the open files from the last session
  272.         RegSetDWord(regkey, "[Restore Workspace]", 0)
  273.         
  274.         ; allow only one instance of %regword%
  275.         RegSetDWord(regkey, "[Single Instance]", 1)
  276.         
  277.         ; allow the cursor to move past the ends of lines
  278.         RegSetDWord(regkey, "[VirtualWhitespace]", 1)
  279.         RegCloseKey(regkey)
  280.  
  281.         ; set WIL files to be FileOpen default
  282.         regkey = RegCreateKey(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Options")
  283.         RegSetDWord(regkey, "[FilterIndex]", 1)
  284.         RegCloseKey(regkey)
  285.  
  286.         return
  287. :NukeSomeSettings
  288.         ConfigVerWBT=2     ; Configuration version number,.  Update when changing this section
  289.  
  290.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ResetBetaVer]")
  291.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ResetBetaVer]")
  292.              if ConfigVerReg >= ConfigVerWBT then return  ; if reg is same or newer, do not excecute
  293.         endif
  294.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ResetBetaVer]",ConfigVerWBT)
  295.  
  296.         ;nothing to do this week.
  297.         return
  298.  
  299. :CLEARTOOLBARSETUP
  300.        ;First check to try not to needlessly delete users toolbar view
  301.  
  302.         ConfigVerWBT=3     ; Configuration version number,.  Update when changing this section
  303.  
  304.         if RegExistValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ToolBarLevel]")
  305.              ConfigVerReg=RegQueryValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ConfigVer]")
  306.              if ConfigVerReg == ConfigVerWBT then return  ; if reg is same, do not excecute
  307.         endif
  308.         RegSetValue(@REGCURRENT, "Software\Wilson WindowWare\%regword%\Settings\Main Window[ToolBarLevel]",ConfigVerWBT)
  309.  
  310.       ;Run exe to cleartoolbar
  311.       Run("winbatch.exe",strcat('"',DirHome(),'WSINIT.DLL" CLEARTOOLBAR'))
  312.  
  313.  
  314. return
  315.  
  316. :CLEARTOOLBAR
  317.      IntControl(12,2+8,"WinBatch Setup%@CRLF%Please close WinBatch Studio before trying to exit Windows.",0,0)
  318.      ;Wait for WBStudio to exit
  319.      AppWaitClose("WinBatch Studio.exe")
  320.      if RegExistKey(@REGCURRENT,"Software\Wilson WindowWare\WinBatch Studio\Toolbars")
  321.         RegDeleteKey(@REGCURRENT,"Software\Wilson WindowWare\WinBatch Studio\Toolbars")
  322.      endif
  323.      exit
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.