home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / sharewar / winedit / hlpwbt2.wb_ < prev    next >
Text File  |  1996-02-08  |  4KB  |  142 lines
  1. if param0==0
  2.    Message("Note:","This file is used by the help system to demonstrate help examples.%@CRLF%It is not designed to be run standalone.")
  3.    exit
  4. endif
  5. IntControl(29, @TAB, 0, 0, 0)     ; standardize on tab delimters
  6.  
  7. wbkind=16
  8. if WinMetrics(-4)>=4 then wbkind=32
  9.  
  10. goto %param1%
  11.  
  12. :wnnetname
  13. ;Check to see whether a 32 bit version of Windows is running.
  14. If WinMetrics(-4)>=4  
  15.         Message("Whoops! 32 bit Windows Version", "This Script doesn't work with your version of Windows. %@CRLF% SORRY")
  16.         exit
  17. endif
  18.  
  19.  
  20. ans=AskYesNo("Multinet wnNetNames Examples", "If you are running a 32 bit version of Windows, this test example will not run.  Select No to terminate test.")
  21. If ans==0 then exit
  22. AddExtender("wwwn16i.dll")
  23. netnames = wnNetNames()
  24. i=ItemLocate("OTHER",netnames,@TAB)
  25. if i!=0
  26.    netnames=ItemRemove(i,netnames,@TAB)
  27. endif   
  28. count = ItemCount(netnames,@TAB)
  29. esss=""
  30. if count!=1 then esss="s"
  31. Message("%count% available network%esss%", "This function evaluates the available networks on the local PC.  %@crlf%If a function requires a network name,  use a name appearing in this list.%@crlf%%@crlf%%netnames%") 
  32. exit
  33.  
  34. :novell3x
  35. a=FileLocate("Netware 3 Extender.hlp")
  36. if a=="" then a=FileLocate("novell3x.hlp")
  37. if a=="" 
  38.    Message("Ooops","Could not locate Novell 3.x help file")
  39. else
  40.    Run(a,"")
  41. endif
  42. exit
  43.  
  44. :novell4x
  45. a=FileLocate("Netware 4 Extender.hlp")
  46. if a=="" then a=FileLocate("novell4x.hlp")
  47. if a=="" 
  48.    Message("Ooops","Could not locate Novell 4.x help file")
  49. else
  50.    Run(a,"")
  51. endif
  52. exit
  53.  
  54. :basic31
  55. ans=AskYesNo("Basic31 Extender Help", "If you are running a 32 bit version of WinBatch, this help file may not exist.  Select NO to terminate, YES to continue.")
  56. If ans==1
  57.         a=FileLocate("Basic Network Extender.hlp")
  58.         if a=="" then a=FileLocate("netbasic.hlp")
  59.         if a=="" 
  60.            Message("Ooops","Could not locate Basic Network Extender help file")
  61.         else
  62.            Run(a,"")
  63.         endif
  64. endif
  65. exit
  66.  
  67. :multinet
  68. ans=AskYesNo("Multinet Extender Help", "If you are running a 32 bit version of WinBatch, this help file may not exist.  Select NO to terminate, YES to continue.")
  69. If ans==1
  70.         a=FileLocate("W4WKG Network.hlp")
  71.         if a=="" then a=FileLocate("multinet.hlp")
  72.         if a=="" 
  73.            Message("Ooops","Could not locate Multinet help file")
  74.         else
  75.            Run(a,"")
  76.         endif
  77. endif
  78. exit
  79.  
  80. :win32
  81. a=FileLocate("Win32 Network Extender.hlp")
  82. if a=="" then a=FileLocate("win32net.hlp")
  83. if a=="" 
  84.    Message("Ooops","Could not locate Win32 Network Extender help file")
  85. else
  86.    Run(a,"")
  87. endif
  88. exit
  89.  
  90.  
  91. :wilhelp
  92. a=FileLocate("Windows Interface Language.hlp")
  93. if a=="" then a=FileLocate("WIL.hlp")
  94. if a=="" 
  95.    Message("Ooops","Could not locate Windows Interface Language help file")
  96. else
  97.    Run(a,"")
  98. endif
  99. exit
  100.  
  101.  
  102. :windowontop
  103.  
  104. ;Check to see whether a 32 bit version of Windows is running.
  105. If wbkind==32  
  106.         ; Set our windows to be on top
  107.         OurWnd=DllhWnd("")
  108.         xx=-1
  109.         DaDll=strcat(DirWindows(1),"USER32.DLL")
  110.         DllCall(DaDll,long:"SetWindowPos",long:OurWnd,long:xx,long:0,long:0,long:0,long:0,long:3)
  111.         Message("This Window","Should stay on top")
  112.         ;
  113.         ;Try it
  114.         
  115.         ;Return to normal mode
  116.         xx= -2
  117.         DllCall(DaDll,long:"SetWindowPos",long:OurWnd,long:xx,long:0,long:0,long:0,long:0,long:3)
  118.         ;Try it
  119.         
  120.         Message("This Window","Should be normal and fall behind")
  121.         exit
  122. else        
  123.         ; Set our windows to be on top
  124.         OurWnd=DllhWnd("")
  125.         DllCall("USER.EXE",void:"SetWindowPos",word:OurWnd,word:65535,word:0,word:0,word:0,word:0,word:3)
  126.         Message("This Window","Should stay on top")
  127.         ;
  128.         ;Try it
  129.         
  130.         ;Return to normal mode
  131.         DllCall("USER.EXE",void:"SetWindowPos",word:OurWnd,word:65534,word:0,word:0,word:0,word:0,word:3)
  132.         ;Try it
  133.         
  134.         Message("This Window","Should be normal and fall behind")
  135.         exit
  136. endif
  137.  
  138.  
  139.  
  140.  
  141.  
  142.