
26/07/2009, 14:32
|
| | Fecha de Ingreso: julio-2009
Mensajes: 8
Antigüedad: 15 años, 9 meses Puntos: 0 | |
!! Misterio al liberar una libreria !! ? Hola,,,,,
Hice la consulta anterior de ¿ no puedo liberar una libreria ?
Bien darle las gracias a DAVID (Moderador) por su aportación,, pero tampoco
funciono,, comprove el Handle después de cargar la DLL y después antes de
liberarla y conciden,,,o sea que devuelve el mismo código,,,a tener en cuenta
que cada vez que abres la aplicacíon estos números són diferentes,,,és normal
pero cada vez condice el MsgBox.....Misterio y no me deja borrarla con KILL,,
yo ya no entiendo nada,,de nada,,, Aqui va otra vez el código :
Código: Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long
por ejemplo cuando leemos una libreria hacemos lo siguiente
Código: Dim Handle as long
Handle = LoadLibrary("hola.dll")
MsgBox "Código del Handle", vbExclamation, Handle
Handle es la direccion en la memoria donde se encuentra la dll cargada y luego para liberarla utilizamos
MsgBox "Código del Handle", vbExclamation, Handle
Código: FreeLibrary Handle
En fin, si a alguien se le ocurre alguna idea,,gracias por adelantado.- |