Сменить иконку у стороннего приложения

[STRELOK-2007]

Приветствую!

Нужно научиться менять ресурсы у стороннего приложения. Сперва иконку, потом и версию.

Никак не могу разобраться в трех соснах, это BeginUpdateResource, UpdateResource и EndUpdateResource.

Вызываю примерно так.

var
 msIcon: TMemoryStream;
 hExe: THandle;

 x: TResourceStream;
begin
 msIcon:=TMemoryStream.Create;
 msIcon.LoadFromFile(fdir+'icon.ico');
 msIcon.Seek(0, soFromBeginning);

 hExe:=BeginUpdateResourceW(PWideChar(newfn), False);

 ShowMessage(BoolToStr(UpdateResourceW(hExe, RT_ICON, 'MAINICON', MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US), msIcon.Memory, msIcon.Size), True));

 ShowMessage(BoolToStr(EndUpdateResourceW(hExe, False), True));
end;

Тут "играюсь" с параметрами типа, имени и языка ресурса. В данном случае, последний вариант.

UpdateResourceW - возвращает True
EndUpdateResourceW - возвращает False

при любых (какие я испробовал) вариантах.

В чем может быть дело?

Как это правильно делается?

P.S.
Очень желательно, без каких либо сторонних библиотек, только на WinAPI.

[Аватар]

GetLastError смотрели?
И внизу в похожих темах первая

[STRELOK-2007]

Сообщение от Аватар

GetLastError смотрели?
И внизу в похожих темах первая

Смотрел. Не работает код. Иконка бьется.

[Человек_Борща]

Смотрел.

Врёте. Что писало?

[doktor255]

Сообщение от STRELOK-2007

Нужно научиться менять ресурсы у стороннего приложения.

Аля Restorator? Баян. Не вижу смысла делать то, что уже сделали до нас.

[STRELOK-2007]

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

Аля Restorator? Баян. Не вижу смысла делать то, что уже сделали до нас.

Проект абсолютно из другой области. Задался целью написать программный комплекс по созданию инсталляторов. В первую очередь, для развертывания своих продуктов.
Да, есть куча бесплатных и платных, но все не подходят - либо сложные, либо черезчур "нафундыченные".
Пользуюсь с 2008 года Smart Install Maker, просто и удобно. Но есть то, что сделано неудачно, есть то - чего не хватает.

Так вот, собственно хочу сделать компиллятор. Для этого нужно взять "болванку" и нарезать на нее информацию. Собственно это ресурс иконки, ресурс версии, метка-маркер, заголовок, информация об установщике(действия, список файлов) и сами файлы.
Все кроме ресурсов - никакой проблемы не составляет, абсолютно.

И все таки, как реализовать задуманное?

1) какой тип ресурса должен быть? RT_ICON или RT_GROUP_ICON?
2) Какое имя? MAINICON?
3) Какой язык? 1033?
4) Вообще, нужно ли как-то обработать icon файл до помещения в ресурсы?

[doktor255]

uses acWorkRes;
...
procedure TForm1.Button1Click(Sender: TObject);
 var q: dword;
begin
  q:= BeginUpdateResourceS('D:/project1.exe', False);
  if q <> 0 then begin
    if not ReplaceIconGroupResourceS(q, 'MAINICON', 0, 'D:/100.ico') then caption:= ('Иконка не установлена!!!');
    EndUpdateResource(q, False);
  end;
end;

P.S. потратил около 2х минут на поиск в гугле...

[STRELOK-2007]

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

uses acWorkRes;
...
procedure TForm1.Button1Click(Sender: TObject);
 var q: dword;
begin
  q:= BeginUpdateResourceS('D:/project1.exe', False);
  if q <> 0 then begin
    if not ReplaceIconGroupResourceS(q, 'MAINICON', 0, 'D:/100.ico') then caption:= ('Иконка не установлена!!!');
    EndUpdateResource(q, False);
  end;
end;

P.S. потратил около 2х минут на поиск в гугле...

Без сторонних модулей и API. Этот вариант я тоже видел, но не подходит. Есть еще модуль от mad, есть еще какой-то.

[Stilet]

Без сторонних модулей и API.

Без Win API? О_о А как же: BeginUpdateResourceW ?
Ты кроссплатформенку пишешь? Тогда тебе нужно использовать TResourceStream.
Честно не вспомню где, кажись в Королевстве Делфи был пример с этим классом для редактирования ресурсов другого файла.

[doktor255]

Сообщение от STRELOK-2007

Без сторонних модулей

Религия что-ли не позволяет?Тогда уж без сторонних модулей, и без сторонней помощи.