Ejemplos usando el Api de windows para Visual basic

230 - Saber si una función del Api se encuentra en el sistema

Ejemplo de las funciones LoadLibrary y GetProcAddress para poder saber si una api existe en el sistema

El ejemplo tiene una función de ajuste, a la cual se le debe pasar el nombre de la función y la libreria, es decir el nombre de la dll

Por ejemplo :

ret = Verificar("ShellExecuteA", "shell32")

Nota: en el nombre de la función, si la misma tiene un Alias, se debe pasar el Alias y no el nombre, por ejemplo en el caso anterior, se verifica la existencia de ShellExecute, pero si pasamos ShellExecute nos dará error, ya que el verdadero nombre de ShellExecute es "ShellExecuteA" . Si la función no tiene un Alias , entonces si pasar el nombre, por ejemplo como es el caso de la función SetLayeredWindowAttributes que no tiene Alias.

Y otra cosa, es que no se debe pasar el nombre de la dll incluyendo la extensión, solo pasar el nombre.

Código fuente en el formulario

Option Explicit 'Declaraciones api ''''''''''''''''''''''''''''''' Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _ ByVal lpLibFileName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" ( _ ByVal hModule As Long, _ ByVal lpProcName As String) As Long Private Declare Function FreeLibrary Lib "kernel32" ( _ ByVal hLibModule As Long) As Long ''''''''''''''''''''''''''''''' ' función que retorna un boolean para saber si la función esta presente en el sistema ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function Verificar(ByVal NombreFuncion As String, _ ByVal NombreDLL As String) As Boolean Dim Handle As Long Dim Direccion As Long Handle = LoadLibrary(NombreDLL) If Handle <> 0 Then ' si retorna 0 no existe Direccion = GetProcAddress(Handle, NombreFuncion) FreeLibrary Handle End If Verificar = (Direccion <> 0) End Function Private Sub Form_Load() Dim ret As Boolean 'verifica la función SetLayeredWindowAttributes ret = Verificar("SetLayeredWindowAttributes", "User32") MsgBox ret, vbInformation End Sub

Buscar en Recursos vb