Je sais c'est du VB mais déja qu'j'espere même pas avoir
une reponse ici....
Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate _
As Long, ByVal lpType As Long, ByVal lpName As Long, ByVal wLanguage As Long, _
lpData As Any, ByVal cbData As Long) As Long
Dim HUpt As Long
Dim BytesPerLine As Long
Dim picbits() As Byte
Dim NameID As Long
Dim Lang As Long
Dim Ret As Long
Dim RC_BITMAP as Long
NameID = CLng("4368" )
Lang = CLng("1036" )
RC_BITMAP = 2&
HUpt = BeginUpdateResource("c:\test.dll", False)
Dim Pic As New StdPicture
Set Pic = LoadPicture("c:\test.bmp" )
BytesPerLine = (Pic.Width * 3 + 3) And &HFFFFFFFC
ReDim picbits(1 To BytesPerLine * Pic.Height * 3) As Byte
GetBitmapBits Pic.Handle, UBound(picbits), picbits(1)
Ret = UpdateResource(HUpt, RC_BITMAP, NameID, Lang , VarPtr(picbits(1)), UBound(picbits))
c'est tout con mais ça plante mechamment arrivé a UpdateResource.
Et pis les infos concernant "UpdateResource" et VB y en a pas
enormement sur "Google"....
En vous r'merciant.
Message édité par bubu le 03-10-2003 à 09:04:15