Discussion :

[chlebta*tsotsi]

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

[ShaiLeTroll]

1- Enlève les Exit, et ré-écrit le code de façon logique avec des if imbriqués en utilisant le fait que cela renvoie des LongBool et non des Integer
2- Transtype le string en Pchar pour le passage en paramètre aux API
3- Lit le Sujet : "Ecriture et lecture des ressources sur une .exe"