home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Shareware 500 (First Edition)
/
disk2.img
/
FILECMDR
/
WWWFC1.MN$
/
wwwfc1.mn_
Wrap
Text File
|
1992-09-25
|
11KB
|
234 lines
; Da AutoExec Section is on top here. Actually runs before File Manager
; actually appears on the screen
TAB=num2char(9)
CR=strcat(num2char(13),num2char(10))
AppName="File Commander"
IniFile="WWW-PROD.INI"
IniSection="FileCmdr"
Change File Commander menus ;Edit - with notepad, the file extender macros
Edit Menu Scripts
t1=IniReadPvt(IniSection,"MenuTitle1","FC1","WINFILE.INI")
t2=IniReadPvt(IniSection,"MenuTitle2","FC2","WINFILE.INI")
t3=IniReadPvt(IniSection,"MenuTitle3","FC3","WINFILE.INI")
t4=IniReadPvt(IniSection,"MenuTitle4","FC4","WINFILE.INI")
f1=IniReadPvt(IniSection,"MenuFile1","WWWFC1.MNU","WINFILE.INI")
f2=IniReadPvt(IniSection,"MenuFile2","WWWFC2.MNU","WINFILE.INI")
f3=IniReadPvt(IniSection,"MenuFile3","WWWFC3.MNU","WINFILE.INI")
f4=IniReadPvt(IniSection,"MenuFile4","WWWFC4.MNU","WINFILE.INI")
a=strcat(f1,TAB,t1,"~",f2,TAB,t2,"~",f3,TAB,t3,"~",f4,TAB,t4)
drop(t1,t2,t3,t4,f1,f2,f3,f4)
a=TextSelect("Choose Menu to Edit",a,"~")
if a=="" then exit
b=ItemExtract(1,a,TAB)
a=FileLocate(b)
adir=FilePath(a)
DirChange(adir)
broot=FileRoot(b)
bname=strcat(broot,".BAK")
FileCopy(b,bname,@FALSE)
run("notepad.exe",b)
Change Toplevel Menu Titles
t1=IniReadPvt(IniSection,"MenuTitle1","FC1","WINFILE.INI")
t2=IniReadPvt(IniSection,"MenuTitle2","FC2","WINFILE.INI")
t3=IniReadPvt(IniSection,"MenuTitle3","FC3","WINFILE.INI")
t4=IniReadPvt(IniSection,"MenuTitle4","FC4","WINFILE.INI")
a=strcat(t1,TAB,t2,TAB,t3,TAB,t4)
b=TextSelect("Choose Title to Change",a,TAB)
if b=="" then exit
c=ItemLocate(b,a,TAB)
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)
if d=="" then exit
IniWritePvt(IniSection,"MenuTitle%c%",d,"WINFILE.INI")
Reload() ; Reload FM Extensions
; Dialog Editor
; run("wwwdlged.exe","")
_Load &WIL Help File
a=FileLocate("WIL.HLP");
if a=="" then a=IniReadPvt("WWWSetup","FileCommander","",IniFile) ; Get installed directory
then a="%a%\HELP\WIL.HLP" ; add HELP path
Terminate(!FileExist(a),"Install Error","Cannot find WIL.HLP")
WinHelp("%a%","CONTENTS","")
_Bro&wse... ;Browse hilited file
l=strcat(CurrentPath(),CurrentFile())
run("browser.exe",l)
drop(a,l)
&Edit... ;Edit hilited file
l=CurrentFile()
if l=="" || l==" " then goto NULL
a=strscan(l,".\",0,@BACKSCAN)
if a==0 then l=strcat(l,".")
if a==0 then goto NULL
if strsub(l,a,1)!="." then l=strcat(l,".")
:NULL
run("notepad.exe",strtrim(l))
drop(a,b,l)
File System
&Size of ENTIRE file/dir structure
call("wwwmenus.dll","DIRSIZE")
File &Info ; Display information on hilited files
call("wwwmenus.dll","FILEINFO")
&Freespace on Local Drives
call("wwwmenus.dll","FREESPACE")
Floppy Space and selected files
A:
message(strcat("Drive A ",DiskFree("A")),strcat("Selected Files ",FileSize(FileItemize(""))))
B:
message(strcat("Drive B ",DiskFree("B")),strcat("Selected Files ",FileSize(FileItemize(""))))
Clipboard Tricks
Path and Filename to Clipboard
Clipput(strcat(DirGet(),CurrentFile()))
Copy &Directory to Clipboard
a=FileItemize("*.*")
a=ItemSort(a," ")
a=StrReplace(a," ",cr)
ClipPut(a)
Drop(a)
Copy &Hilited files to Clipboard
a=FileItemize("")
a=ItemSort(a," ")
a=StrReplace(a," ",cr)
ClipPut(a)
Drop(a)
Copy &Hilited dirs to Clipboard
a=DirItemize("")
a=ItemSort(a," ")
a=StrReplace(a," ",cr)
ClipPut(a)
Drop(a)
Run Character Mapper
Run("charmap.exe","")
Copy &Special Characters to Clipboard
a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|" ;161 thru 170
b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|" ;171 thru 180
c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|" ;181 thru 190
d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|" ;191 thru 200
e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|" ;201 thru 210
f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|" ;211 thru 220
g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|" ;221 thru 230
h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|" ;231 thru 240
i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|" ;241 thru 250
j=" √| ⁿ| ²| ■| " ;251 thru 255
a=strcat(a,b,c,d,e,f,g,h,i,j)
Drop(b,c,d,e,f,g,h,i,j)
a=ItemSelect("Choose a character",a,"|")
a=strsub(a,2,1)
ClipPut(a)
Drop(a)
_Start Clipboard
run("clipbrd.exe","")
|Applications
Ami Pro (Lotus)
a=FileLocate("amipro.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","sam","") ; No? Try via [extensions] section
terminate(a=="","Error","AmiPro not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.sam stuff
run(b,"") ; Run AmiPro
Corel Draw! (Corel)
a=IniRead("CorelDraw","Dir","") ; Try via INI file info
terminate(a=="","Error","Corel Draw not found") ; Not installed normally
a=strcat(a,"\coreldrw.exe")
run(a,"") ;Corel Drw
DynaComm (FutureSoft)
a=FileLocate("dynacomm.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","dcm","") ; No? Try via [extensions] section
terminate(a=="","Error","Dynacomm not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.dcm stuff
run(b,"") ; Run Dynacomm
Designer/Draw (Micrografx)
a=IniRead("extensions","drw","") ; Try via [extensions] section
terminate(a=="","Error","Drawing tool not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.drw stuff
run(b,"") ; Run DRW tool
Excel (Microsoft)
a=FileLocate("excel.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","xls","") ; No? Try via [extensions] section
terminate(a=="","Error","Excel not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.xls stuff
run(b,"") ; Run Excel
PowerPoint (Microsoft)
a=FileLocate("powerpnt.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","ppt","") ; No? Try via [extensions] section
terminate(a=="","Error","PowerPoint not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.ppt stuff
run(b,"") ; Run PowerPoint
Project (Microsoft)
a=FileLocate("winproj.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","mpp","") ; No? Try via [extensions] section
terminate(a=="","Error","Project not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.mpp stuff
run(b,"") ; Run PowerPoint
Publisher (Microsoft)
a=FileLocate("mspub.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","pub","") ; No? Try via [extensions] section
terminate(a=="","Error","Publisher not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.pub stuff
run(b,"") ; Run Visual Basic
Word For Windows (Microsoft)
a=FileLocate("winword.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","dot","") ; No? Try via [extensions] section
terminate(a=="","Error","WinWord not found") ; Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.dot stuff
run(b,"") ; Run WinWord
Visual Basic (Microsoft)
a=FileLocate("vb.exe") ; Try brute force path search
if a=="" then a=IniRead("extensions","frm","") ; No? Try via [extensions] section
terminate(a=="","Error","Visual Basic not found"); Not installed normally
b=strindex(a," ",0,@FWDSCAN) ; Find first space
if b==0 then b=strlen(a)+1 ; None? ...adjust b
b=strsub(a,1,b-1) ; Pick off ^.frm stuff
run(b,"") ; Run Visual Basic
_Control &Panel
run("control.exe","")
&System Information
call("wwwmenus.dll","SYSINFO 'File Commander'")
_Blank Screen Now!
a=IniReadPvt("Boot","SCRNSAVE.EXE","SSMYST.SCR","SYSTEM.INI")
a=strreplace(a,".","*") ;e.g. change ssmyst.scr to ssmyst*scr
run(a,"/s") ;Is is possible to run wierd extensions IF one
;replaces the .ext with *ext