SVP Je vais que vous m'aide a convertir ce code en delphi:
Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function ChangeResData(exePath As String, resName As Long, resData As String) As Boolean
    Dim hUpdate As Long, ret As Long, resBuffer() As Byte
    hUpdate = BeginUpdateResource(exePath, False)
    If hUpdate = 0 Then ChangeResData = False: Exit Function
    resBuffer = StrConv(resData, vbFromUnicode)
 
    ret = UpdateResource(hUpdate, RT_RCDATA, resName, 3082, resBuffer(0), Len(resData))
    If ret = 0 Then ChangeResData = False: Exit Function
 
    ret = EndUpdateResource(hUpdate, False)
    If ret = 0 Then ChangeResData = False: Exit Function
    ChangeResData = True
End Function
Voiçi mon essai :
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
Function ChangeResData(exePath : String; resName: Long; resData: String): Boolean
var
  hUpdate, ret: longint;
  resBuffer: Byte;
 begin
 hUpdate := BeginUpdateResource(exePath, False)
 If hUpdate = 0 Then begin ChangeResData := False; Exit; end;
    resBuffer := StrConv(resData, vbFromUnicode) 
 
 ret := UpdateResource(hUpdate, MakeIntResourceW(10), resName, 3082, resBuffer(0), Lenght(resData))
    If ret = 0 Then begin ChangeResData := False; Exit; end;
 
ret := EndUpdateResource(hUpdate, False)
    If ret = 0 Then begin ChangeResData := False; Exit; end;
    ChangeResData := True
End;
J'attend votre aide