[Romix]

Здравствуйте уважаемые Прогеры.. Возник у меня такой вопрос!!! Как сначала извлечь иконку у файла exe (сохранив её при этом в переменную)... А потом из переменной загрузить (поменять) в другом exe!!! Попытаюсь немного разъяснить!!!
Извлекаем иконку:

Код:

var
MyIcon: TIcon;
begin
MyIcon := TIcon. Create;
try
MyIcon.Handle := ExtractIcon(hInstance, 'MYPROG.EXE', 0)
{Здесь можно что-нибудь сделать с иконкой}
finally
MyIcon.Free;
end;
end;

А как обратить процесс??? Конечно можно написать кучу кода!!! Но все таки хотелось бы простоты!!! Если можно просто извлечь, значит так же просто, можно и поменять!!! Заранее благодарен!!! Romix
p.s. Не судите строго... Может слишком много хочу!!! Но надеюсь на понимание!!!