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