Librerias linkadas

[FranciscoA]

Amigos.
Existe alguna function que en tiempo de ejecución devuelva array con las librerías linkadas?
Saludos

[Antonio Linares]

Así ves todos los nombres de funciones y classes que tienes enlazados en el EXE

Code: Select all  Expand view  RUN

function Main()

   local n
   
   for n = __DynsCount() to 1 step -1
      if __DynsIsFun( n )
         ? n,  __DynsGetName( n )
      endif      
   next      

return nil

[FranciscoA]

Antonio.

Gracias por tu atención. Lo pruebo y comento.

Saludos.

[FranciscoA]

Antonio.

Tu código funciona bien. Obtengo los nombres de todas las funciones enlazadas.

Partiendo de eso, se me vino la idea de crear una funcion Dummy dentro de uno de los prgs componentes de la libreria.lib y asi puedo identificar si uso, o no, esa libreria.

Code: Select all  Expand view  RUN

function FuncLink()
   local n, aData:={}
   
   for n = __DynsCount() to 1 step -1
      if __DynsIsFun( n )
        ** ? n,  __DynsGetName( n )
         aadd( aData,{ __DynsIsFun( n ), __DynsGetName( n ) } )
      endif      
   next      
   xBrowse(aData)
return nil
 

Muchas gracias.