home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Windows Tools / SOS-WIN_TOOLS.ISO / programm / divers / fc_20k / wwwfc1.mn_ < prev    next >
Encoding:
Text File  |  1992-09-25  |  10.8 KB  |  234 lines
  1. ; Da AutoExec Section is on top here.  Actually runs before File Manager
  2. ; actually appears on the screen
  3.  
  4.         TAB=num2char(9)
  5.         CR=strcat(num2char(13),num2char(10))
  6.         AppName="File Commander"
  7.         IniFile="WWW-PROD.INI"
  8.         IniSection="FileCmdr"
  9.  
  10. Change File Commander menus   ;Edit - with notepad, the file extender macros
  11.  Edit Menu Scripts
  12.         t1=IniReadPvt(IniSection,"MenuTitle1","FC1","WINFILE.INI")
  13.         t2=IniReadPvt(IniSection,"MenuTitle2","FC2","WINFILE.INI")
  14.         t3=IniReadPvt(IniSection,"MenuTitle3","FC3","WINFILE.INI")
  15.         t4=IniReadPvt(IniSection,"MenuTitle4","FC4","WINFILE.INI")
  16.         f1=IniReadPvt(IniSection,"MenuFile1","WWWFC1.MNU","WINFILE.INI")
  17.         f2=IniReadPvt(IniSection,"MenuFile2","WWWFC2.MNU","WINFILE.INI")
  18.         f3=IniReadPvt(IniSection,"MenuFile3","WWWFC3.MNU","WINFILE.INI")
  19.         f4=IniReadPvt(IniSection,"MenuFile4","WWWFC4.MNU","WINFILE.INI")
  20.         a=strcat(f1,TAB,t1,"~",f2,TAB,t2,"~",f3,TAB,t3,"~",f4,TAB,t4)
  21.         drop(t1,t2,t3,t4,f1,f2,f3,f4)
  22.         a=TextSelect("Choose Menu to Edit",a,"~")
  23.         if a=="" then exit
  24.         b=ItemExtract(1,a,TAB)
  25.         a=FileLocate(b)
  26.         adir=FilePath(a)
  27.         DirChange(adir)
  28.         broot=FileRoot(b)
  29.         bname=strcat(broot,".BAK")
  30.         FileCopy(b,bname,@FALSE)
  31.         run("notepad.exe",b)
  32.  
  33.  Change Toplevel Menu Titles
  34.         t1=IniReadPvt(IniSection,"MenuTitle1","FC1","WINFILE.INI")
  35.         t2=IniReadPvt(IniSection,"MenuTitle2","FC2","WINFILE.INI")
  36.         t3=IniReadPvt(IniSection,"MenuTitle3","FC3","WINFILE.INI")
  37.         t4=IniReadPvt(IniSection,"MenuTitle4","FC4","WINFILE.INI")
  38.         a=strcat(t1,TAB,t2,TAB,t3,TAB,t4)
  39.         b=TextSelect("Choose Title to Change",a,TAB)
  40.         if b=="" then exit
  41.         c=ItemLocate(b,a,TAB)
  42.         d=AskLine("Menu Title Change","Old title is -> %b%%CR%Enter new title.  Use && to show hotkey.%CR%(e.g.  FC&&1 gives FC&1",b)
  43.         if d=="" then exit
  44.         IniWritePvt(IniSection,"MenuTitle%c%",d,"WINFILE.INI")
  45.         Reload()                         ; Reload FM Extensions
  46.  
  47. ; Dialog Editor
  48. ;        run("wwwdlged.exe","")
  49.         
  50.  _Load &WIL Help File
  51.         a=FileLocate("WIL.HLP");
  52.         if a=="" then a=IniReadPvt("WWWSetup","FileCommander","",IniFile) ; Get installed directory
  53.                  then a="%a%\HELP\WIL.HLP"           ; add HELP path
  54.         Terminate(!FileExist(a),"Install Error","Cannot find WIL.HLP")
  55.         WinHelp("%a%","CONTENTS","")
  56.  
  57. _Bro&wse...  ;Browse hilited file
  58.         l=strcat(CurrentPath(),CurrentFile())
  59.         run("browser.exe",l)
  60.         drop(a,l)
  61.  
  62. &Edit...      ;Edit hilited file
  63.         l=CurrentFile()
  64.         if l=="" || l==" " then goto NULL
  65.         a=strscan(l,".\",0,@BACKSCAN)
  66.         if a==0 then l=strcat(l,".")
  67.         if a==0 then goto NULL
  68.         if strsub(l,a,1)!="." then l=strcat(l,".")
  69.      :NULL
  70.         run("notepad.exe",strtrim(l))
  71.         drop(a,b,l)
  72.  
  73.  
  74. File System
  75.  &Size of ENTIRE file/dir structure
  76.         call("wwwmenus.dll","DIRSIZE")
  77.  
  78.  File &Info    ; Display information on hilited files
  79.         call("wwwmenus.dll","FILEINFO")
  80.  
  81.  &Freespace on Local Drives
  82.         call("wwwmenus.dll","FREESPACE")
  83.  
  84.  Floppy Space and selected files
  85.   A:
  86.         message(strcat("Drive A ",DiskFree("A")),strcat("Selected Files ",FileSize(FileItemize(""))))
  87.   B:
  88.         message(strcat("Drive B ",DiskFree("B")),strcat("Selected Files ",FileSize(FileItemize(""))))
  89.  
  90.  
  91. Clipboard Tricks
  92.  Path and Filename to Clipboard
  93.         Clipput(strcat(DirGet(),CurrentFile()))
  94.  Copy &Directory to Clipboard
  95.         a=FileItemize("*.*")
  96.         a=ItemSort(a," ")
  97.         a=StrReplace(a," ",cr)
  98.         ClipPut(a)
  99.         Drop(a)
  100.  Copy &Hilited files to Clipboard
  101.         a=FileItemize("")
  102.         a=ItemSort(a," ")
  103.         a=StrReplace(a," ",cr)
  104.         ClipPut(a)
  105.         Drop(a)
  106.  Copy &Hilited dirs to Clipboard
  107.         a=DirItemize("")
  108.         a=ItemSort(a," ")
  109.         a=StrReplace(a," ",cr)
  110.         ClipPut(a)
  111.         Drop(a)
  112.  Run Character Mapper
  113.         Run("charmap.exe","")
  114.  Copy &Special Characters to Clipboard
  115.        a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|"       ;161 thru 170
  116.        b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|"       ;171 thru 180
  117.        c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|"       ;181 thru 190
  118.        d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|"       ;191 thru 200
  119.        e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|"       ;201 thru 210
  120.        f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|"       ;211 thru 220
  121.        g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|"       ;221 thru 230
  122.        h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|"       ;231 thru 240
  123.        i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|"       ;241 thru 250
  124.        j=" √| ⁿ| ²| ■|  "                       ;251 thru 255
  125.        a=strcat(a,b,c,d,e,f,g,h,i,j)
  126.        Drop(b,c,d,e,f,g,h,i,j)
  127.        a=ItemSelect("Choose a character",a,"|")
  128.        a=strsub(a,2,1)
  129.        ClipPut(a)
  130.        Drop(a)
  131.  _Start Clipboard
  132.        run("clipbrd.exe","")
  133.  
  134. |Applications
  135.  Ami Pro (Lotus)
  136.         a=FileLocate("amipro.exe")                      ; Try brute force path search
  137.         if a=="" then a=IniRead("extensions","sam","")  ; No? Try via [extensions] section
  138.         terminate(a=="","Error","AmiPro not found")     ; Not installed normally
  139.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  140.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  141.         b=strsub(a,1,b-1)                               ; Pick off ^.sam stuff
  142.         run(b,"")                                       ; Run AmiPro
  143.  
  144.  Corel Draw! (Corel)
  145.         a=IniRead("CorelDraw","Dir","")                 ; Try via INI file info
  146.         terminate(a=="","Error","Corel Draw not found") ; Not installed normally
  147.         a=strcat(a,"\coreldrw.exe")
  148.         run(a,"")                                       ;Corel Drw
  149.  
  150.  DynaComm (FutureSoft)
  151.         a=FileLocate("dynacomm.exe")                    ; Try brute force path search
  152.         if a=="" then a=IniRead("extensions","dcm","")  ; No? Try via [extensions] section
  153.         terminate(a=="","Error","Dynacomm not found")   ; Not installed normally
  154.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  155.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  156.         b=strsub(a,1,b-1)                               ; Pick off ^.dcm stuff 
  157.         run(b,"")                                       ; Run Dynacomm
  158.  
  159.  Designer/Draw (Micrografx)
  160.         a=IniRead("extensions","drw","")                ; Try via [extensions] section
  161.         terminate(a=="","Error","Drawing tool not found") ; Not installed normally
  162.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  163.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  164.         b=strsub(a,1,b-1)                               ; Pick off ^.drw stuff 
  165.         run(b,"")                                       ; Run DRW tool
  166.  
  167.  Excel (Microsoft)
  168.         a=FileLocate("excel.exe")                       ; Try brute force path search
  169.         if a=="" then a=IniRead("extensions","xls","")  ; No? Try via [extensions] section
  170.         terminate(a=="","Error","Excel not found")      ; Not installed normally
  171.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  172.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  173.         b=strsub(a,1,b-1)                               ; Pick off ^.xls stuff 
  174.         run(b,"")                                       ; Run Excel
  175.  
  176.  PowerPoint (Microsoft)
  177.         a=FileLocate("powerpnt.exe")                    ; Try brute force path search
  178.         if a=="" then a=IniRead("extensions","ppt","")  ; No? Try via [extensions] section
  179.         terminate(a=="","Error","PowerPoint not found") ; Not installed normally
  180.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  181.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  182.         b=strsub(a,1,b-1)                               ; Pick off ^.ppt stuff 
  183.         run(b,"")                                       ; Run PowerPoint
  184.  
  185.  Project (Microsoft)
  186.         a=FileLocate("winproj.exe")                     ; Try brute force path search
  187.         if a=="" then a=IniRead("extensions","mpp","")  ; No? Try via [extensions] section
  188.         terminate(a=="","Error","Project not found") ; Not installed normally
  189.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  190.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  191.         b=strsub(a,1,b-1)                               ; Pick off ^.mpp stuff 
  192.         run(b,"")                                       ; Run PowerPoint
  193.  
  194.  Publisher (Microsoft)
  195.         a=FileLocate("mspub.exe")                       ; Try brute force path search
  196.         if a=="" then a=IniRead("extensions","pub","")  ; No? Try via [extensions] section
  197.         terminate(a=="","Error","Publisher not found") ; Not installed normally
  198.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  199.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  200.         b=strsub(a,1,b-1)                               ; Pick off ^.pub stuff 
  201.         run(b,"")                                       ; Run Visual Basic
  202.  
  203.  Word For Windows (Microsoft)
  204.         a=FileLocate("winword.exe")                     ; Try brute force path search
  205.         if a=="" then a=IniRead("extensions","dot","")  ; No? Try via [extensions] section
  206.         terminate(a=="","Error","WinWord not found")    ; Not installed normally
  207.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  208.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  209.         b=strsub(a,1,b-1)                               ; Pick off ^.dot stuff 
  210.         run(b,"")                                       ; Run WinWord
  211.  
  212.  Visual Basic (Microsoft)
  213.         a=FileLocate("vb.exe")                          ; Try brute force path search
  214.         if a=="" then a=IniRead("extensions","frm","")  ; No? Try via [extensions] section
  215.         terminate(a=="","Error","Visual Basic not found"); Not installed normally
  216.         b=strindex(a," ",0,@FWDSCAN)                    ; Find first space
  217.         if b==0 then b=strlen(a)+1                      ; None? ...adjust b
  218.         b=strsub(a,1,b-1)                               ; Pick off ^.frm stuff 
  219.         run(b,"")                                       ; Run Visual Basic
  220.  
  221. _Control &Panel
  222.         run("control.exe","")
  223.  
  224. &System Information
  225.        call("wwwmenus.dll","SYSINFO 'File Commander'")
  226.  
  227. _Blank Screen Now!
  228.             a=IniReadPvt("Boot","SCRNSAVE.EXE","SSMYST.SCR","SYSTEM.INI")
  229.             a=strreplace(a,".","*")  ;e.g. change ssmyst.scr to ssmyst*scr
  230.             run(a,"/s")   ;Is is possible to run wierd extensions IF one
  231.                           ;replaces the .ext with *ext
  232.  
  233.     
  234.