home *** CD-ROM | disk | FTP | other *** search
- ErrorMode(@OFF)
- wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")
- if wbdir==0
- wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")
- endif
- ErrorMode(@CANCEL)
- if wbdir==0
- Display(5,"Error","Registry entries missing. Re-install WinBatch")
- exit
- endif
- homedir=strcat(wbdir,"system\")
- ;Message("homedir",homedir)
-
-
- Two Explorers, side by side
- a=IntControl(31,0,0,0,0) ;return list of ids of explorer windows
- c=ItemCount(a,@TAB)
- switch c
- case 0
- run("explorer.exe","")
- while FindWindow("ExploreWClass")=="" ;wait for it to come up
- Yield
- end while
- ;Fall into case 1
-
- case 1
- TimeDelay(0.5)
- run("explorer.exe","")
- break
- case c ; 2 or more
- break
- endswitch
- d=1
- while c<2 && d<500
- a=IntControl(31,0,0,0,0)
- c=ItemCount(a,@TAB)
- d=d+1
- endwhile
- if c<2 then exit
- id1=ItemExtract(1,a,@TAB)
- id2=ItemExtract(2,a,@tab)
- TimeDelay(0.75)
- WinPlaceSet(@NORMAL,id2,"500 0 1000 900")
- WinShow(id2)
- Yield
- Yield
- WinPlaceSet(@NORMAL,id1,"0 0 500 900")
- WinShow(id1)
-
- exit
-
- _&Freespace on Local Drives
- run("%homedir%winbatch.exe",'"%homedir%wwwmenu95.wil" FREESPACE2')
-
- &System Information
-
- call("%homedir%wwwmenu95.wil","SYSINFO 'WinBatch Popmenu'")
-
- Interactive WIL
- call("%homedir%wwwmenu95.wil","CMDSTACK NEWCMD")
-
- &Blank Screen Now!
- a=IniReadPvt("Boot","SCRNSAVE.EXE","FLYING~1.SCR","SYSTEM.INI")
- ErrorMode(@OFF)
- LastError()
- run(a,"/s")
- ErrorMode(@CANCEL)
- if LastError() then Display(5,"Sorry","No screen blanker found")
-
- _Load WIL Help File
- WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")
-
-
-
-
-
-
-
-
-
-