Problem de dll

Question

Je vaudrai savoir si c possible de charger et de decharger un dll pendant l'execution de lapplication.et si on peu comment?merci

BruNews · Answer

Tout a fait:
hlib = LoadLibrary(szname)
If hlib = 0 Then ERREUR
ici on s'en sert
ensuite on libere
FreeLibrary(hlib)

A quoi cela va-t-il te servir ? Faut ensuite obtenir les pointeurs de fonction par GetProcAddress(...) mais ser-t-il possible de s'en servir en vb ???

BruNews, ciao...

cs_DARKSIDIOUS · Answer

Va voir ma source nommée Horloge Système si tu veux un exemple concret : je charge ma dll perso de gestion de couleur dès le lancement du prog.

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

BruNews · Answer

DARKSIDIOUS, j'ai charge ta source. Je ne vois pas a quel endroit dans le code tu charges une dll.
BruNews, ciao...

cs_DARKSIDIOUS · Answer

Oups, exact BruNews : ce n'est pas la dernière version qui est sur le site !! Il va falloir que je la mette à jour !!! Celle-ci est vraiment basique !

Désolé pour les désagréments que cela à pû engendrer !

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

cs_DARKSIDIOUS · Answer

Bon ben voici le code qu'il faut pour enregistrer un dll dans le registre en passant uniquement par les 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
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

    'on charge la dll
    LNG_Librairie = LoadLibrary(App.Path & "\OBJ_GESTION_COULEUR.dll")

    If LNG_Librairie = 0 Then

        'erreur dans le chargement
        MsgBox "Vérifiez la présence de la dll !"
        Exit Sub

    End If

    'on enregistre la dll dans la base de registre
    GetProcAddress LNG_Librairie, "DllRegisterServer"
    CallWindowProc GetProcAddress(LNG_Librairie, "DllRegisterServer"), Me.hWnd, ByVal 0&, ByVal 0&, ByVal 0&

    'on libère la mémoire
    FreeLibrary LNG_Librairie


DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

BruNews · Answer

Voila ce qui m'interessait, c'etait comment tu faisais avec le retour de GetGetProcAddress, en fait tu es oblige de passer par CallWindowProc. En C bien entendu on appelle direct la fonction par son pointeur sans passer par la base de registres.
Bien bien la manip vb.
BruNews, ciao...

Problem de dll

6 réponses

Discussions similaires