WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

WIL Extenders
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get List of Loaded Extenders


; Get list of loaded Extenders
; Note: Unfortunately this code requires the use of the Process Extender therefore it will always be listed
; This portion of the script needs to be compiled
If RtStatus() == 1 ;Compiled

   ver =  StrUpper(Version())
   verdll =  StrUpper(VersionDLL())
   letters =  StrUpper(StrSub(verdll,StrLen(verdll)-1,2))
   wildll = StrCat( DirHome(), 'WBD', letters, '44I.DLL' )

   exename = WinExename( '' )
   AddExtender("wproc44i.dll")

   proclist=tListProc()
   newproclist = ''
   For y = 1 To ItemCount( proclist, @TAB )
      procid = ItemExtract( y, proclist, @TAB )
      newproclist = newproclist: @TAB: ItemExtract( 1, procid, '|' )
   Next
   newproclist = StrTrim( newproclist )
   pos = ItemLocate( FileRoot( exename ), newproclist, @TAB )
   process = ItemExtract(pos , newproclist, @TAB )
   ;Askitemlist("All processes",proclist,@TAB,@UNSORTED,@SINGLE)
   ; parse off process id
   procid=ItemExtract( 2, ItemExtract(pos,proclist,@TAB), '|' )

   modlist=tListMod(procid,0)
   ;Check each module
   list = ''
   For z = 1 To ItemCount( modlist, @TAB )
      module = ItemExtract(1, ItemExtract( z, modlist, @TAB ), '|' )
      If (module == exename) || (module == wildll) Then Continue
      company = FileVerInfo( module , "", "CompanyName")
      If StrIndexNC( company, 'windowware', 1, @FWDSCAN )
           list = list : @TAB : module
      EndIf
      list = StrTrim( list )
   Next
   AskItemlist( 'List of loaded Extenders', list, @TAB, @SORTED, @SINGLE )

Else
   Pause('Notice','This script needs to be run compiled')
EndIf

Article ID:   W17362
File Created: 2010:02:17:11:58:09
Last Updated: 2011:09:14:13:41:01