home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 February / PCWorld_1999-02_cd.bin / software / Zkuste / WinBat98 / POPMENU.MN_ < prev    next >
Text File  |  1998-10-26  |  2KB  |  80 lines
  1.           ErrorMode(@OFF)
  2.           wbdir=RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")
  3.           if wbdir==0 
  4.              wbdir=RegQueryValue(@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.         WinPlaceSet(@NORMAL,id2,"500 0 1000 900")
  43.         WinShow(id2)
  44.         Yield
  45.         Yield
  46.         WinPlaceSet(@NORMAL,id1,"0 0 500 900")
  47.         WinShow(id1)
  48.  
  49.      exit
  50.  
  51. _&Freespace on Local Drives
  52.         run("%homedir%winbatch.exe",'"%homedir%wwwmenu95.wil" FREESPACE2')
  53.  
  54. &System Information
  55.        
  56.        call("%homedir%wwwmenu95.wil","SYSINFO 'WinBatch Popmenu'")
  57.  
  58. Interactive WIL
  59.         call("%homedir%wwwmenu95.wil","CMDSTACK NEWCMD")
  60.  
  61. &Blank Screen Now!
  62.             a=IniReadPvt("Boot","SCRNSAVE.EXE","FLYING~1.SCR","SYSTEM.INI")
  63.             ErrorMode(@OFF)
  64.             LastError()
  65.             run(a,"/s")
  66.             ErrorMode(@CANCEL)
  67.             if LastError() then Display(5,"Sorry","No screen blanker found")
  68.             
  69. _Load WIL Help File
  70.         WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")     
  71.  
  72.  
  73.  
  74.           
  75.            
  76.            
  77.            
  78.            
  79.            
  80.