Aide avec UpdateResource API
Hello
Je cherche à injecter à un exe une icone extraite d'un autre exe, mais j'ai du mal avec les API. Voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Dim SourceFile As String = "C:\source.exe"
Dim Targetfile As String = "C:\target.exe"
Dim h_source As IntPtr = LoadLibrary(SourceFile)
Dim h_icon As IntPtr = FindResource(h_source, "#0", RT_ICON)
Dim h_resload As IntPtr = LoadResource(h_source, h_icon)
Dim h_lockres As IntPtr = LockResource(h_resload)
Dim handle As IntPtr = BeginUpdateResource(Targetfile, False)
Dim bool As Boolean = _
UpdateResource(handle, RT_ICON, "#0", LANG_NEUTRAL, h_lockres, SizeofResource(h_source, h_icon))
EndUpdateResource(handle, False) |
Mais UpdateResource me renvoie toujours false.
Aussi je ne comprends pas tres bien le second parametre de FIndResource, sur msdn ca dit que ca doit etre le nom de la ressource : comment je suis sensé le savoir ?
De meme pour le 3eme et le 4eme parametres de UpdateResource , je ne sais pas trop quoi y mettre :mrgreen::roll:
Quelqu'un pourrait il m'expliquer merci.
