[M.A.D.M.A.N.]

Подскажите плз, каким образом можно программно изменить ресурс в EXE файле, как это сделано в ResourceHacker'е?

[M.A.D.M.A.N.]

Добавление ресурса в бинарник:

Код:

1 2 3 4 5 6

var HFile:THandle; begin   HFile:=BeginUpdateResource(PChar('123.exe'),False);   UpdateResource(HFile,'ICON','MAINICON',1, @icon_data,SizeOf(Icon_data));   EndUpdateResource(HFile, False); end;

[M.A.D.M.A.N.]

Массив нужен для записи в Group icon
Последние два байта указывают на нашу иконку (3)

Код:

1 2 3 4

const descriptdata: array[0..19] of byte = (     $00, $00, $01, $00, $01, $00, $20, $20, $20, $00, $01, $00, $20, $00, $A8, $10,     $00, $00, $03, $00 );

Процедура замены иконки, иконка загружается в массив, из нее удаляется заголовок и описание (в простом ico файле 22 первых байта)

Код:

1 2 3 4

HFile:=BeginUpdateResource(PChar('123.exe'),False); UpdateResource(HFile,RT_ICON,MakeIntResource(3),LANG_NEUTRAL, @icn,icnsize); UpdateResource(HFile,RT_GROUP_ICON,'AAA',LANG_ENGLISH, @descriptdata,SizeOf(descriptdata)); EndUpdateResource(HFile, False);

Где LANG_NEUTRAL, лучше писать 1049 (по дефолту).
_________________
Помещение иконки в массив

Код:

1 2 3 4 5 6

icnstream:=TMemoryStream.Create; icnstream.LoadFromFile('333.ico'); icnstream.Position:=22; icnstream.ReadBuffer(icn,icnStream.Size-22); icnsize:=icnstream.Size-22; icnstream.Free;