home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / sharewar / winbatch / winbatch.exe / POPMENU.MN_ < prev    next >
Encoding:
Text File  |  2000-10-03  |  2.3 KB  |  81 lines
  1.           ErrorMode(@OFF)
  2.           wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")
  3.           if wbdir==0 
  4.              wbdir=RegQueryStr(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")
  5.           endif
  6.           ErrorMode(@CANCEL)
  7.           if wbdir==0
  8.              Display(5,"Error","Registry entries missing.  Re-install WinBatch")
  9.              exit
  10.           endif
  11.           homedir=strcat(wbdir,"system\")
  12.           ;Message("homedir",homedir)
  13.  
  14.  
  15. Two Explorers, side by side
  16.         a=IntControl(31,0,0,0,0)  ;return list of ids of explorer windows
  17.         c=ItemCount(a,@TAB)
  18.         switch c
  19.            case 0
  20.               run("explorer.exe","")
  21.               while FindWindow("ExploreWClass")==""    ;wait for it to come up
  22.                 Yield
  23.               end while
  24.               ;Fall into case 1
  25.  
  26.            case 1
  27.               TimeDelay(0.5)
  28.               run("explorer.exe","")
  29.               break
  30.            case c       ; 2 or more
  31.               break
  32.         endswitch
  33.         d=1
  34.         while c<2 && d<500
  35.            a=IntControl(31,0,0,0,0)
  36.            c=ItemCount(a,@TAB)
  37.            d=d+1
  38.         endwhile
  39.         if c<2 then exit
  40.         id1=ItemExtract(1,a,@TAB)
  41.         id2=ItemExtract(2,a,@tab)
  42.         TimeDelay(0.75)
  43.         WinPlaceSet(@NORMAL,id2,"500 0 1000 900")
  44.         WinShow(id2)
  45.         Yield
  46.         Yield
  47.         WinPlaceSet(@NORMAL,id1,"0 0 500 900")
  48.         WinShow(id1)
  49.  
  50.      exit
  51.  
  52. _&Freespace on Local Drives
  53.         run("%homedir%winbatch.exe",'"%homedir%wwwmenu95.wil" FREESPACE2')
  54.  
  55. &System Information
  56.        
  57.        call("%homedir%wwwmenu95.wil","SYSINFO 'WinBatch Popmenu'")
  58.  
  59. Interactive WIL
  60.         call("%homedir%wwwmenu95.wil","CMDSTACK NEWCMD")
  61.  
  62. &Blank Screen Now!
  63.             a=IniReadPvt("Boot","SCRNSAVE.EXE","FLYING~1.SCR","SYSTEM.INI")
  64.             ErrorMode(@OFF)
  65.             LastError()
  66.             run(a,"/s")
  67.             ErrorMode(@CANCEL)
  68.             if LastError() then Display(5,"Sorry","No screen blanker found")
  69.             
  70. _Load WIL Help File
  71.         WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")     
  72.  
  73.  
  74.  
  75.           
  76.            
  77.            
  78.            
  79.            
  80.            
  81.