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

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

Код:

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