Замена ICO в исполнительном файле из потока

[Larboss]

Доброго дня!

Стоит задача заменить иконку в exe - файле из TImage. Т.е имеем

// Загружаем иконку в Image2 из файла
Image2.Picture.LoadFromFile(OpenDia log2.FileName);

// Создаем поток для хранения иконки
MemoryStream := TMemoryStream.Create;

// Сохраняем иконку в поток
Image2.Picture.Icon.SaveToStream(Me moryStream);

hInst := BeginUpdateResource(PwideChar(Form1 .Edit2.Text), False);
hLibrary := LoadLibrary(PWideChar(Form1.Edit2.T ext));
if hInst > 0 then
begin
dwIndex := 1;

// Проверяем наличие иконок
while FindResource(hLibrary, MAKEINTRESOURCE(dwIndex), RT_ICON) > 0
do begin
// Делаем изменения, записываем иконку в ресурсы
UpdateResource(hInst, RT_ICON, MAKEINTRESOURCE(dwIndex), 1033, MemoryStream.Memory, MemoryStream.Size);
inc(dwIndex);
end;
FreeLibrary(hLibrary);
// Применяем изменения
EndUpdateResource(hInst, False);
end;

end;

Вроде бы все нормально, все иконки заменяются. Но, само изображение иконки у exe пропадает и смотря в любом редакторе ресурсов видно, что все иконки не имеют изображения. Данные есть, размер есть, запись есть. Что я забыл?

[northener]

Не всякую картинку можно сделать иконкой.

[Larboss]

Сообщение от northener

Не всякую картинку можно сделать иконкой.

Я беру одну и ту же картинку. Метод замены, основанный на загрузке файла работает, а вот этот метод с потоком не работает. Ну, т.е. иконка почему-то становится не рабочей. Хотя она не меняется.

[Larboss]

Никто не сталкивался с этим вопросом никогда?

[Black Fregat]

Вот как-то никогда не приходилось править иконки прямо в exe..
Но что же мешает открыть ресурс и сравнить, что именно пошло не так?