home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / sharewar / winbatch / winbatch.exe / FILEMENU.MN_ < prev    next >
Encoding:
Text File  |  2001-11-29  |  21.1 KB  |  475 lines
  1.           editor="winbatch studio.exe"    ;Default editor
  2.           ; Common menu for all file types
  3.           ;First figure out where filemenu.dll is installed via registry lookup
  4.           ErrorMode(@OFF)
  5.           wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")
  6.           if wbdir==0 
  7.              wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")
  8.           endif
  9.           ErrorMode(@CANCEL)
  10.           if wbdir==0 then Display(5,"Error","Registry entries missing.  Re-install WinBatch")
  11.           homedir=strcat(wbdir,"system\")
  12.  
  13.           inifile=strcat(DirWindows(0),"FileMenu.ini")
  14.           if !FileExist(inifile) then inifile=strcat(homedir,"FileMenu.ini")
  15.           commonmenu="FileMenu for all filetypes.mnw"
  16.           defaultmenu="FileMenu for misc filetypes.mnw"
  17.           menudir=IniReadPvt("FileMenu","MenuDir",homedir,inifile)
  18.           if Strsub(menudir,strlen(menudir),1)!="\" then menudir=StrCat(menudir,"\")
  19.  
  20. Two Explorers, side by side ; Your dual window file manager
  21.         a=IntControl(31,0,0,0,0)  ;return list of ids of explorer windows
  22.         c=ItemCount(a,@TAB)
  23.         switch c
  24.            case 0
  25.               run("explorer.exe",strcat("/n,/e,",DirGet()))
  26.               while FindWindow("ExploreWClass")==""    ;wait for it to come up
  27.                 Yield
  28.               end while
  29.               ;Fall into case 1
  30.  
  31.            case 1
  32.               TimeDelay(0.5)
  33.               run("explorer.exe",strcat("/n,/e,",DirGet()))
  34.               break
  35.            case c       ; 2 or more
  36.               break
  37.         endswitch
  38.         d=1
  39.         while c<2 && d<500
  40.            a=IntControl(31,0,0,0,0)
  41.            c=ItemCount(a,@TAB)
  42.            d=d+1
  43.         endwhile
  44.         if c<2 then exit
  45.         id1=ItemExtract(1,a,@TAB)
  46.         id2=ItemExtract(2,a,@tab)
  47.         WinPlaceSet(@NORMAL,id2,"500 0 1000 900")
  48.         WinShow(id2)
  49.         Yield
  50.         Yield
  51.         WinPlaceSet(@NORMAL,id1,"0 0 500 900")
  52.         WinShow(id1)
  53.      
  54. Open Other ... ; Choose an application to view or edit the selected file.
  55.  
  56.  &Browser (binary file viewer)  ; View any file in binary format.
  57.         file = CurrFilePath()
  58.         If !(FileExist(file)) Then file = ""
  59.         Else If FileExtension(file) == "" Then file = StrCat(file, ".")
  60.         ;Run("browser.exe", FileNameShort(file))
  61.         Run("browser.exe", strcat('"',file,'"'))     
  62.  &Notepad  ; Modify small plain text files.
  63.         file = CurrFilePath()
  64.         If !(FileExist(file)) Then file = ""
  65.         Else If FileExtension(file) == "" Then file = StrCat(file, ".")
  66.         Run("notepad.exe", file)
  67.  &MSPaint (bitmap) ; View and Modify bitmaps
  68.          file = CurrFilePath()
  69.          If !(FileExist(file)) Then file = ""
  70.               Else If FileExtension(file) == "" Then file = StrCat(file, ".")
  71.          bmpfile = strlower(FileExtension(file))
  72.          If bmpfile != "bmp" && bmpfile!="jpg" && bmpfile!="gif" && bmpfile!="jpeg"
  73.               Message("Error","Select a bmp, gif or jpg file and try again.")
  74.               Exit
  75.          EndIf          
  76.          mspaintexe=FileLocate("mspaint.exe")
  77.          if mspaintexe==""
  78.             rkey=RegOpenKey(@REGMACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths")
  79.             mspaintexe=RegQueryValue(rkey,"MSPAINT.EXE")
  80.             RegCloseKey(rkey)
  81.          endif
  82.          Run(mspaintexe,strcat('"',file,'"'))
  83.  &Wordpad (text and graphics) ; Modify WORD, RTF, plain text files. Can contain bitmaps, too.
  84.          file = CurrFilePath()
  85.          If !(FileExist(file)) Then file = ""
  86.               Else If FileExtension(file) == "" Then file = StrCat(file, ".")
  87.          rkey=RegOpenKey(@REGMACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths")
  88.          wordpadexe=RegQueryStr(rkey,"WORDPAD.EXE")
  89.          RegCloseKey(rkey)
  90.          Run(wordpadexe,'"%file%"')
  91.  WinBatch &Studio (text) ; Open file with WinBatch Studio
  92.         f = CurrFilePath()
  93.         If !(FileExist(f)) Then f = ""
  94.         Else If FileExtension(f) == "" Then f = StrCat(f, ".")
  95.         f=strcat('"',f,'"')
  96.         Run(editor,f)
  97.  
  98.      
  99. File Operations
  100.  
  101.  File/Folder size    ;Sum sizes of all highlighted files and folders
  102.         
  103.         tot = FileSize(FileItemize(""))
  104.         sub1 = DirItemize("")
  105.         totdir=0
  106.         level=1
  107.         dir1=DirGet()
  108.         
  109.         numdir1 = ItemCount(sub1, @tab)
  110.         index1 = 0
  111.   
  112.         :dsloop
  113.         If index%level% == numdir%level% Then Goto upalevel
  114.         index%level% = index%level% + 1
  115.         DirChange(StrCat(dir%level%, ItemExtract(index%level%, sub%level%, @tab)))
  116.         
  117.         totdir=totdir+1
  118.         tot = tot + FileSize(FileItemize("*.*"))
  119.         level = level + 1
  120.         dir%level% = DirGet()
  121.         sub%level% = DirItemize("*.*")
  122.         numdir%level% = ItemCount(sub%level%, @tab)
  123.         index%level% = 0
  124.         goto dsloop
  125.   
  126.         :upalevel
  127.         drop(dir%level%,sub%level%,index%level%,numdir%level%)
  128.         level=level-1
  129.         if level!=0 then goto dsloop
  130.  
  131.         ; -----------
  132.         ; Termination
  133.         ; -----------
  134.         
  135.         If StrLen(tot) < 9 Then tot = StrCat(StrFill("", 9 - StrLen(tot)), tot)
  136.         tot = StrCat(StrSub(tot,1,3),",",StrSub(tot,4,3),",",StrSub(tot,7,3))
  137.         tot = StrTrim(tot)
  138.         If StrSub(tot, 1, 1) == "," Then tot = StrSub(tot, 2, StrLen(tot) - 1)
  139.         tot = StrTrim(tot)
  140.         If StrSub(tot, 1, 1) == "," Then tot = StrSub(tot, 2, StrLen(tot) - 1)
  141.         tot = StrTrim(tot)
  142.         Message("%totdir% Subdirectories included", "Total size %tot% bytes.")
  143.  
  144.  Print (with Notepad)   ;Print text-type file with notepad on default printer
  145.         Run("notepad.exe",strcat("/p ",CurrFilePath()))
  146.  Associate              ;Associate this type of file with an application
  147.         a=strlower(FileExtension(CurrentFile()))
  148.         Terminate((a=="exe"||a=="com"||a=="bat"||a=="pif"||a=="lnk"),"Ooops","Cannot associate executable files")
  149.         b=AskFileName("Associate %a% files with","C:\","Executable Files|*.exe;*.com;*.bat;*.pif|All Files|*.*|","",1)
  150.     
  151.         rkey=RegOpenKey(@REGCLASSES,"")
  152.         ErrorMode(@OFF)
  153.         RegDeleteKey(rkey,".%a%")
  154.         ErrorMode(@CANCEL)
  155.         RegSetValue(rkey, ".%a%", "%a%_auto_file")
  156.         RegSetValue(rkey,"%a%_auto_file\shell\open\command",strcat('"',b,'" "%%1"'))
  157.         AU=StrUpper(a)
  158.         RegSetValue(rkey,"%a%_auto_file","%AU% File")
  159.         RegClosekey(rkey)
  160.  File Attributes        ;View file attributes
  161.         files = FileItemize("")
  162.         numfiles = ItemCount(files,@TAB)
  163.         While numfiles == 1
  164.         file = CurrentFile()
  165.         result = FileAttrGet(file)
  166.         If StrLen(file) > 30
  167.              fileindialog = StrSub(file,1,30)
  168.           
  169.              fileindialog = StrCat(fileindialog," ...")
  170.         Else 
  171.              fileindialog = file
  172.         EndIf
  173.      
  174.         readonly = 2
  175.         archive = 2
  176.         system = 2
  177.         hidden = 2
  178.         If StrSub(result,1,1) == "R" Then readonly = "3"
  179.         If StrSub(result,2,1) == "A" Then archive = "3"
  180.         If StrSub(result,3,1) == "S" Then system = "3"
  181.         If StrSub(result,4,1) == "H" Then hidden = "3"
  182.  
  183.                FileAttributesFormat=`WWWDLGED,5.0`
  184.                
  185.                FileAttributesCaption=`File Attributes`
  186.                FileAttributesX=7
  187.                FileAttributesY=25
  188.                FileAttributesWidth=199
  189.                FileAttributesHeight=101
  190.                FileAttributesNumControls=17
  191.                
  192.                FileAttributes01=`110,86,36,DEFAULT,PUSHBUTTON,DEFAULT,"&Cancel",0`
  193.                FileAttributes02=`42,18,38,DEFAULT,STATICTEXT,DEFAULT,"Read Only"`
  194.                FileAttributes03=`126,18,36,DEFAULT,STATICTEXT,DEFAULT,"System"`
  195.                FileAttributes04=`84,18,36,DEFAULT,STATICTEXT,DEFAULT,"Archive"`
  196.                FileAttributes05=`168,18,36,DEFAULT,STATICTEXT,DEFAULT,"Hidden"`
  197.                FileAttributes06=`56,86,36,DEFAULT,PUSHBUTTON,DEFAULT,"&OK",1`
  198.                FileAttributes07=`2,54,36,DEFAULT,STATICTEXT,DEFAULT,"On"`
  199.                FileAttributes08=`2,36,36,DEFAULT,STATICTEXT,DEFAULT,"Off"`
  200.                FileAttributes09=`2,4,194,DEFAULT,STATICTEXT,DEFAULT,"Set File Attributes for => %fileindialog% "`
  201.                FileAttributes10=`42,36,36,DEFAULT,RADIOBUTTON,readonly,"",2`
  202.                FileAttributes11=`42,54,36,DEFAULT,RADIOBUTTON,readonly,"",3`
  203.                FileAttributes12=`166,54,36,DEFAULT,RADIOBUTTON,hidden,"",3`
  204.                FileAttributes13=`84,36,36,DEFAULT,RADIOBUTTON,archive,"",2`
  205.                FileAttributes14=`84,54,36,DEFAULT,RADIOBUTTON,archive,"",3`
  206.                FileAttributes15=`166,36,36,DEFAULT,RADIOBUTTON,hidden,"",2`
  207.                FileAttributes16=`126,36,36,DEFAULT,RADIOBUTTON,system,"",2`
  208.                FileAttributes17=`126,54,36,DEFAULT,RADIOBUTTON,system,"",3`
  209.                
  210.                ButtonPushed=Dialog("FileAttributes")
  211.  
  212.  
  213.  
  214.            Select buttonpushed
  215.           
  216.                Case 0
  217.                     Break
  218.                     
  219.                Case 1
  220.  
  221.                     first = ""
  222.                     second = ""
  223.                     third = ""
  224.                     fourth = ""
  225.                     If readonly == 2 Then first = "r"
  226.                     If archive == 2 Then second = "a"
  227.                     If system == 2 Then third = "s"
  228.                     If hidden == 2 Then fourth = "h"
  229.                     If readonly == 3 Then first = "R"
  230.                     If archive == 3 Then second = "A"
  231.                     If system == 3 Then third = "S"
  232.                     If hidden == 3 Then fourth = "H"
  233.  
  234.                     
  235.                     
  236.                     
  237.                     attributes = StrCat( first, second, third, fourth )
  238.                     FileAttrSet(file, attributes)
  239.                     break
  240.            End Select
  241.                 
  242.  
  243.      Exit
  244.      EndWhile
  245.  
  246.      ;Set Attributes: Selected Files
  247.  
  248.      displayfiles = files
  249.      readonly = 1
  250.      archive = 1
  251.      system = 1
  252.      hidden = 1
  253.                AttribFormat=`WWWDLGED,5.0`
  254.                
  255.                AttribCaption=`Attributes`
  256.                AttribX=6
  257.                AttribY=25
  258.                AttribWidth=201
  259.                AttribHeight=101
  260.                AttribNumControls=22
  261.                
  262.                Attrib01=`110,86,36,DEFAULT,PUSHBUTTON,DEFAULT,"&Cancel",0`
  263.                Attrib02=`42,18,38,DEFAULT,STATICTEXT,DEFAULT,"Read Only"`
  264.                Attrib03=`126,18,36,DEFAULT,STATICTEXT,DEFAULT,"System"`
  265.                Attrib04=`84,18,36,DEFAULT,STATICTEXT,DEFAULT,"Archive"`
  266.                Attrib05=`168,18,36,DEFAULT,STATICTEXT,DEFAULT,"Hidden"`
  267.                Attrib06=`2,34,38,DEFAULT,STATICTEXT,DEFAULT,"No Change"`
  268.                Attrib07=`2,70,36,DEFAULT,STATICTEXT,DEFAULT,"On"`
  269.                Attrib08=`2,52,36,DEFAULT,STATICTEXT,DEFAULT,"Off"`
  270.                Attrib09=`42,34,36,DEFAULT,RADIOBUTTON,readonly,"",1`
  271.                Attrib10=`42,52,36,DEFAULT,RADIOBUTTON,readonly,"",2`
  272.                Attrib11=`42,70,36,DEFAULT,RADIOBUTTON,readonly,"",3`
  273.                Attrib12=`84,34,36,DEFAULT,RADIOBUTTON,archive,"",1`
  274.                Attrib13=`84,52,36,DEFAULT,RADIOBUTTON,archive,"",2`
  275.                Attrib14=`84,70,36,DEFAULT,RADIOBUTTON,archive,"",3`
  276.                Attrib15=`126,34,36,DEFAULT,RADIOBUTTON,system,"",1`
  277.                Attrib16=`126,52,36,DEFAULT,RADIOBUTTON,system,"",2`
  278.                Attrib17=`126,70,36,DEFAULT,RADIOBUTTON,system,"",3`
  279.                Attrib18=`168,34,36,DEFAULT,RADIOBUTTON,hidden,"",1`
  280.                Attrib19=`168,52,36,DEFAULT,RADIOBUTTON,hidden,"",2`
  281.                Attrib20=`168,70,36,DEFAULT,RADIOBUTTON,hidden,"",3`
  282.                Attrib21=`58,2,130,DEFAULT,STATICTEXT,DEFAULT,"Set Attributes for Selected Files"`
  283.                Attrib22=`56,86,36,DEFAULT,PUSHBUTTON,DEFAULT,"&OK",1`
  284.                
  285.                ButtonPushed=Dialog("Attrib")
  286.                
  287.  
  288.  
  289.  
  290.           Select buttonpushed
  291.           
  292.                Case 0
  293.                     Break
  294.                     
  295.                Case 1
  296.  
  297.                     first = ""
  298.                     second = ""
  299.                     third = ""
  300.                     fourth = ""
  301.                     If readonly == 2 Then first = "r"
  302.                     If archive == 2 Then second = "a"
  303.                     If system == 2 Then third = "s"
  304.                     If hidden == 2 Then fourth = "h"
  305.                     If readonly == 3 Then first = "R"
  306.                     If archive == 3 Then second = "A"
  307.                     If system == 3 Then third = "S"
  308.                     If hidden == 3 Then fourth = "H"
  309.  
  310.                     
  311.                     
  312.                     
  313.                     attributes = StrCat( first, second, third, fourth )
  314.                     FileAttrSet(files, attributes)
  315.                     break
  316.            End Select
  317.       Exit                              
  318.  
  319.  
  320.  DOS &Copy  ; Like the good, old, DOS COPY command.
  321.        s = StrTrim(FileItemize(""))
  322.        s=StrReplace(s,@tab,"|")
  323.        If s == "" Then Message("Copy Error", "No files selected")
  324.        Then Exit
  325.        If ItemCount(s, "|") == 1 Then t = s
  326.        Else t = ""
  327.        t = AskLine("Copy", StrCat(s, @CRLF, @CRLF, "to"), t)
  328.        If t == "" Then Message("Copy Error", "Cannot copy to null file name")
  329.                Then Exit
  330.        FileCopy(s, t, @TRUE)
  331.  
  332.  DOS &Rename  ;Like the good, old DOS RENAME command.
  333.        s = StrTrim(FileItemize(""))
  334.        s=StrReplace(s,@tab,"|")
  335.        If s == "" Then Message("Rename Error", "No files selected")
  336.        Then Exit
  337.        If ItemCount(s, "|") == 1 Then t = s
  338.        Else t = ""
  339.        t = AskLine("Rename", StrCat(s, @CRLF, @CRLF, "to"), t)
  340.        If t == "" Then Message("Rename Error", "Cannot rename to null file name")
  341.                   Then Exit
  342.        FileRename(s, t)
  343.  
  344.   
  345. Clipboard Tricks ; Copies just the filenames to the clipboard
  346.  FileName(s) to Clipboard ; Just the filenames
  347.         a=FileItemize("")
  348.         a=ItemSort(a,@tab)
  349.         a=strreplace(a,@TAB,@CRLF)
  350.         ClipPut(a)
  351.         Display(2,"Filenames placed on Clipboard",a)
  352.  Path and FileName(s) to Clipboard ; Copies filenames with full paths to the Clipboard
  353.         a=FileItemPath("")
  354.         a=ItemSortNC(a,@TAB)
  355.         a=StrReplace(a,@TAB,@CRLF)
  356.         ClipPut(a)
  357.         Display(2,"Full path filenames placed on Clipboard",a)
  358.  Path to Clipboard   ; Copies just the path to the clipboard
  359.         a=FileItemPath("")
  360.         a=FilePath(ItemExtract(1,a,@tab))
  361.         ClipPut(a)
  362.         Display(2,"Path placed on Clipboard",a)
  363.          
  364.         
  365.  _Run Clipboard Viewer   ; Lets you see what is on the clipboard
  366.         Run("clipbrd.exe","")
  367.  
  368.  
  369. WIL Interactive
  370.  Execute a function
  371.         call("%homedir%wwwmenu95.wil","CMDSTACK NEWCMD")
  372.  _Load WIL Help File
  373.         WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")     
  374.       
  375.  
  376.  
  377.      
  378. _Edit File Menus ; Modify WinBatch FileMenus here 
  379.  Edit menu for this filetype  ; Edit menus for files with a specific file extension.
  380.         b=strupper(FileExtension(CurrentFile()))
  381.         a=IniReadPvt("Menus",b,"*NONE*",inifile)
  382.         c=a
  383.         if c=="*NONE*" then a=strcat("FileMenu for %b% files",".mnw")
  384.         if FilePath(a)=="" then a=strcat(menudir,a)
  385.         ;Message(a,FileExist(a))
  386.         if  FileExist(a)
  387.                 if c=="*NONE*"
  388.                    iniwritepvt("Menus",b,a,inifile)
  389.                    Display(7,"%b% was missing from %inifile%","Adding menu file back in now")
  390.                 endif
  391.         else
  392.                 c=AskYesNo("Please note:","The menu file for the %b% filetype does not exist.  Would you like to start a new one?")
  393.                 if c==@NO then exit
  394.                 c=               "; WinBatch FileMenu for %b% filetype%@CRLF%"
  395.                 c=strcat(c,@CRLF,"; This is a sample menu file to help you get started")
  396.                 c=strcat(c,@CRLF,"; writing your very own Winbatch FileMenu menus.  It is")
  397.                 c=strcat(c,@CRLF,"; really not too bad.  WinBatch is a simple programming")
  398.                 c=strcat(c,@CRLF,"; language.  You can find out just about all you need to")
  399.                 c=strcat(c,@CRLF,"; know from the Windows Interface Language help file or")
  400.                 c=strcat(c,@CRLF,"; the manual.  Check out the section on Menu Files,")
  401.                 c=strcat(c,@CRLF,"; the WIL Tutorial and the WIL Function Reference.")
  402.  
  403.                 c=strcat(c,@CRLF,@CRLF,"; Figure out Winbatch home directory")
  404.                 c=strcat(c,@CRLF,'        ErrorMode(@OFF)')
  405.                 c=strcat(c,@CRLF,'        wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")')
  406.                 c=strcat(c,@CRLF,'        if wbdir==0 ')
  407.                 c=strcat(c,@CRLF,'           wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")')
  408.                 c=strcat(c,@CRLF,'        endif')
  409.                 c=strcat(c,@CRLF,'        ErrorMode(@CANCEL)')
  410.                 c=strcat(c,@CRLF,'        if wbdir==0 then Display(5,"Error","Registry entries missing.  Re-install WinBatch")')
  411.                 c=strcat(c,@CRLF,'        homedir=strcat(wbdir,"system\")')
  412.  
  413.                 c=strcat(c,@CRLF,@CRLF,'Standalone menu item            ; Sample menu item')
  414.                 c=strcat(c,@CRLF,      '        Message("Hello","There")')
  415.                 c=strcat(c,@CRLF,@CRLF,'Top Level menu item')
  416.                 c=strcat(c,@CRLF,      ' Selected File is               ; Shows currently selected file')
  417.                 c=strcat(c,@CRLF,      '        a=CurrFilePath()')
  418.                 c=strcat(c,@CRLF,      '        Message("Selected File is",a)')
  419.                 c=strcat(c,@CRLF,      ' Run Calculator                 ; Sample Run function')
  420.                 c=strcat(c,@CRLF,      '        Run("calc.exe","")')
  421.                 c=strcat(c,@CRLF,      ' Run Notepad on selected file   ; Sample Run function with filename')
  422.                 c=strcat(c,@CRLF,      '        a=CurrFilePath()')
  423.                 c=strcat(c,@CRLF,      '        Run("notepad.exe",a)')
  424.  
  425.                 c=strcat(c,@CRLF,@CRLF,'; Note: You may want to delete this menu item if you edit this file')
  426.                 c=strcat(c,@CRLF,      ' _Delete this sample menu file  ; Deletes this menu file')
  427.                 c=strcat(c,@CRLF,      '        ErrorMode(@OFF)')
  428.                 c=strcat(c,@CRLF,      '        wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")')
  429.                 c=strcat(c,@CRLF,      '        if wbdir==0')
  430.                 c=strcat(c,@CRLF,      '           wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")')
  431.                 c=strcat(c,@CRLF,      '        endif')
  432.                 c=strcat(c,@CRLF,      '        ErrorMode(@CANCEL)')
  433.                 c=strcat(c,@CRLF,      '        if wbdir==0 then Display(5,"Error","Registry entries missing.  Re-install WinBatch")')
  434.                 c=strcat(c,@CRLF,      '        homedir=strcat(wbdir,"system\")')
  435.                 c=strcat(c,@CRLF,      '        inifile=strcat(DirWindows(0),"FileMenu.ini")')
  436.                 c=strcat(c,@CRLF,      '        if !FileExist(inifile) then inifile=strcat(homedir,"FileMenu.ini")')
  437.                 c=strcat(c,@CRLF,      '        menudir=IniReadPvt("FileMenu","MenuDir",homedir,inifile)')
  438.                 c=strcat(c,@CRLF,      '        if StrSub(menudir,strlen(menudir),1)!="\" then menudir=StrCat(menudir,"\")')
  439.                 c=strcat(c,@CRLF,      '        b=strupper(FileExtension(CurrentFile()))')
  440.                 c=strcat(c,@CRLF,      '        a=IniReadPvt("Menus",b,"*NONE*",inifile)')
  441.                 c=strcat(c,@CRLF,      '        if a=="*NONE*" then a=strcat("Files%b%",".mnw")')
  442.                 c=strcat(c,@CRLF,      '        if FilePath(a)=="" then a=strcat(menudir,a)')
  443.                 c=strcat(c,@CRLF,      '        c=AskYesNo("Are you sure you wish to delete this menu file",a)')
  444.                 c=strcat(c,@CRLF,      '        if c==@YES')
  445.                 c=strcat(c,@CRLF,      '           IniDeletePvt("Menus",b,inifile)')
  446.                 c=strcat(c,@CRLF,      '           FileDelete(a)')
  447.                 c=strcat(c,@CRLF,      '        endif')
  448.  
  449.  
  450.  
  451.  
  452.                 c=strcat(c,@CRLF)
  453.                 fh=FileOpen(a,"WRITE")
  454.                 FileWrite(fh,c)
  455.                 FileClose(fh)
  456.                 iniwritepvt("Menus",b,a,inifile)
  457.                 drop(c)
  458.                 
  459.         endif
  460.         Run(Editor,'"%a%"')
  461.  ;Edit the Miscellaneous File Menu     ; Edit menus for files with unrecognized extensions
  462.  ;       a=IniReadPvt("FileMenu","DefaultMenu",defaultmenu,inifile)
  463.  ;       if FilePath(a)=="" then a=strcat(menudir,a)
  464.  ;       Run(Editor,'"%a%"')
  465.  Edit menu for all filetypes      ; Edit global menu for all files 
  466.         a=IniReadPvt("FileMenu","CommonMenu",commonmenu,inifile)
  467.         if FilePath(a)=="" then a=strcat(menudir,a)
  468.         Run(Editor,'"%a%"') 
  469.  _Load WIL Help File
  470.         WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")     
  471.  
  472.  _About WinBatch FileMenu  ; Software from Wilson WindowWare
  473.         About()           
  474.            
  475.