Code : Tout sélectionner
DLLFichierNom$ = "USER32.DLL"
Debug("Ouverture de la librairie " + DLLFichierNom$)
If OpenLibrary(0, DLLFichierNom$)
If IsLibrary(0)
Debug("Librairie valide")
QFB = CountLibraryFunctions(0)
Debug(Str(QFB) + " fonction(s) détectées")
If ExamineLibraryFunctions(0)
N = 0
Debug("L'examen des fonctions est possible")
For N = 0 To QFB
Result = NextLibraryFunction()
If Result
FNom$ = LibraryFunctionName()
Adr = LibraryFunctionAddress()
Debug(Str(N) + ": " + FNom$ + " >> [" + Hex(Adr) + "]")
Else
Debug("Fin de la liste des fonctions!")
EndIf
Next
Else
Debug("Impossible d'examiner les fonctions!")
EndIf
Else
Debug("Librairie invalide!")
EndIf
CloseLibrary(0)
EndIf
XLC