Проблема в закрытии обновления ресурсов программы.

[hapera2]

Я хотел сделать так, что бы моя программа умела изменять иконки других программ. Нашел рабочую функцию (модуль MadRes):

function UpdateExeIcon(exeFile, iconGroup, icoFile: string) : boolean;
var resUpdateHandle : dword;
begin
resUpdateHandle := BeginUpdateResourceW(PWideChar(wideString(exeFile)), false);
if resUpdateHandle <> 0 then begin
result := LoadIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), 1033, PWideChar(wideString(icoFile)));
result := EndUpdateResourceW(resUpdateHandle, false) and result;
end else
 result := false;
end;

Когда я вызываю эту функцию вписываю название именно группы иконок, но получается так, что устанавливается просто иконка одного размера а не группа.

После этого решил еще поискать и нашел более сложный вариант:

function UpdateExeIcon(exeFile, iconGroup, icoFile: string) : boolean;
var resUpdateHandle : dword;
    c:TPIconGroup;
begin
  resUpdateHandle := BeginUpdateResourceW(PWideChar(wideString(exeFile)), false);
  if resUpdateHandle <> 0 then
  begin
    if (icongroup='MAINICON') or GetIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), 1033, c) then
    begin
{      result := LoadIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), language, PWideChar(wideString(icoFile)));
      if result then}
        SaveIconGroupResourceW(resUpdateHandle, PWideChar(wideString(iconGroup)), 1033, 'saved.ico');
    end
                                                                                             else
    if StrToIntDef(iconGroup, -1)>-1 then
    begin
      result := LoadIconGroupResourceW(resUpdateHandle, PWideChar(pointer(strtoint(iconGroup))), 1033, PWideChar(wideString(icoFile)));
      if result then
        SaveIconGroupResourceW(resUpdateHandle, PWideChar(pointer(strtoint(iconGroup))), 1033, 'saved.ico');
    end
    else
      result := false;
    result := EndUpdateResourceW(resUpdateHandle, false) and result;
  end else
    result := false;
end;

Только к сожалению тут снова всплывает одна проблемка. EndUpdateResourceW почему то как всегда вылетает с ошибкой. (

First chance exception at $0052D1E3. Exception class $C0000005 with message 'access violation at 0x0052d1e3: read of address 0x0b175e18'. Process Project1.exe (15448)

).
Причем мне уже давно известна эта проблема. C acWorkRes то же самое.
Да и дело не в программе в которой ресурсы обновляются: ведь первая функция работает а вторая нет.
Вроде все тоже самое но почему? Ткните пальцем друзья

[indexx]

Я хотел сделать так, что бы моя программа умела изменять иконки других программ

Зачем....?

[hapera2]

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

Зачем....?

Есть задача. Я хочу ее выполнить