Discussion :

[wexperience]

Bonjour,

existe-t-il un moyen de paramétrer le chemin de déclaration d'une API ?

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Declare Function MaFonction Lib "Z:\Chemin\MaDll.dll" (ByVal lpszExe As String,
ByVal lpszParams As Any) As Integer

Z est mon lecteur réseau pointant sur un répertoire où se trouve la DLL gérant cet API.

comment rendre ce chemin paramétrable et le passer en paramètre lors de ma déclaration ?

[Delbeke]

Pas tout à fait comme çà

On fait la declaration normalement

Ensuite on utilise l'api LoadLibrary, Quand on en a plus besoin ont decharge la dll avec un FreeLibrary

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Declare Function MaFonction Lib "MaDll.dll" (ByVal lpszExe As String,
ByVal lpszParams As Any) As Integer
Dim hLib as long
 
Private Sub Form_Load()
  hLib = LoadLibrary("Z:\Chemin\MaDll.dll")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  FreeLibrary  hLib
End Sub

[expé]

mais c'est pas mal du tout !

merci je vais tester.