SVP Je vais que vous m'aide a convertir ce code en delphi:
Voiçi mon essai :
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
J'attend votre aide
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;
Partager