Discussion :

[Stargate SG1]

Bonjour
j'utilise une DLL (zlib.dll) pour zipper mon appli.

Mon souhait et de placer cette DLL dans le meme repertoire de l'application au lieu de system 32 (question de droit d'accès).

Pouvez-vous me dire comment faire?

Merci

[Domi2]

Bonsoir,

Tu ne modifies rien dans les sections de déclarations et tu essaies d'y faire appel comme ceci dans l'initialisation de la classe.

Code :

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

LoadLibrary CurrentProject.Path & "\zlib.dll"

Domi2

[Stargate SG1]

Bonjour

mais désolé ça marche pas

vba me réponds

Code :

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

Instruction incorrecte à l'extérieur d'une procédure

le bug se produit sur

Code :

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

CurrentProject

[mout1234]

Salut,

à l'extérieur d'une procédure

Heu, bien entendu, tu as mis ton instruction dans le corps d'une fonction ou d'une procédure... non ?

[Stargate SG1]

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Class_Initialize()
   LoadLibrary CurrentProject.Path & "\zlib.dll"
   With LocalFileHeader
      .LocalFileHeaderSignature = &H4034B50
      .VersionNeededToExtract = 20
      .GeneralPurposeBitFlag = 2
      .CompressionMethod = 8
   End With
 
   With CentralFileHeader
      .CentralFileHeaderSigniature = &H2014B50
      .VersionMadeBy = 20
      .VersionNeededToExtract = 20
      .GeneralPurposeBitFlag = 2
      .CompressionMethod = 8
      .InternalFileAttributes = 32
   End With
 
End Sub

VBA me met une erreur sur

Code :

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

LoadLibrary

et reponds sub ou fonction non definie .


????????????????????

[argyronet]

Bonjour,

Il faut déclarer ta fonction :

Code :

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

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Argy

[Stargate SG1]

merci