Форум на Исходниках.RU

Как программно сменить иконку чужого EXE

Andry Gar — Sat, 19 Aug 2017 10:21:45 +0000

Andry Gar: Uses
acWorkRes;

procedure ExportData(Path, AName: string; Data: TFileStream); overload;
var
hFile: HWND;
Buf: array of Byte;
begin
hFile := BeginUpdateResource(PChar(Path), False);
try
if hFile = 0 then
begin
RaiseLastOSError;
end;
SetLength(Buf, Data.Size);
Data.Position := 0;
Data.Read(Buf[0], Data.Size);
if not UpdateResource(hFile, RT_GROUP_ICON, PChar(AName), 0, @Buf[0], Data.Size) then
RaiseLastOSError;
Finalize(Buf);
finally
EndUpdateResource(hFile, False);
end;
end;

sImage5.Picture.LoadFromFile(OpenDialog1.FileName); // Грузим иконку в картинку image

/// Тут сменяем иконку
var
q: dword;
begin
q := BeginUpdateResourceS(SaveDialog1.FileName + '.exe', False);
if q <> 0 then
begin
if not ReplaceIconGroupResourceS(q, 'MAINICON', 0, OpenDialog1.FileName) then
caption := ('Иконка не установлена!!!');
EndUpdateResource(q, False);
end;
end;
Помогите с кодом
:wall: :wall: >:(

Как программно сменить иконку чужого EXE

D[u]fa — Sat, 15 Oct 2005 06:04:34 +0000

D[u]fa: AVS-INTERSOFT, Да я ж пример выложил. Он точно пашет :)

Как программно сменить иконку чужого EXE

AVS-INTERSOFT — Fri, 14 Oct 2005 15:28:17 +0000

AVS-INTERSOFT: самый лучший подход использовать BeginUpdateResource, UpdateResource, EndUpdate У меня исходника щас нет, он в несколько строчек, на С++ в инете дофига можно найти инфы по смене значка с их использованием, вместе с коментариями что она не работает в Delphi(=>> При использовании функции UpdateResource вместо константы RT_ICON следует использовать ее идентификатор, т. е 3 )

Как программно сменить иконку чужого EXE

Brun — Thu, 13 Oct 2005 13:16:31 +0000

Brun: Если подменять или добавлять ресурс (как это делать можно найти тут на сайте), надо смотреть, что бы ехе"шник не был запакован (upx, aspack, и т.д.). Если *.ехе запакован и вы добавили ресурс, то приложение запускатся не будет однзначно.

Как программно сменить иконку чужого EXE

Sergeyich — Thu, 13 Oct 2005 12:36:37 +0000

Sergeyich: Парни, а вы не пробовали прогу у которой ресурс(иконка) заменяется(а на самом деле вставляется, а прежняя иконка остаётся на месте) запускать? Я пробовал. Не работает. Выдаёт ошибку. А у вас? И ещё, а если прога проверяет свою контрольную сумму, то с новой иконкой заменённой (а тем более просто вставленной) она ведь выдаст ошибку. Может кто выложит пример реально заменяющий оригинальную иконку, и притом чтоб программа потом запускалась. Былоб интересно посмотреть, ато что-то уже заколебался, никак не полуается сделать нормальную замену.

Добавлено 13.10.05, 12:57
Беру некоторые свои слова назад. Программы работают с добавленной иконкой, но не все. Некоторые не работают. А вот в
BeginUpdateResourceS(Edit1.Text, False); Второй параметр должен при True по идее заменять иконку в EXE файле а при Fаlse добавлять её. А на самом деле при True он удаляят все ресурсы из EXE фала и добавляет иконку. При этом файл понятное дело не запускается. Это нехорошо.

Как программно сменить иконку чужого EXE

BenQ — Sun, 04 Sep 2005 07:44:24 +0000

BenQ:

Цитата mckie @ 03.09.05, 15:05

Извените за глупый вопрос , но как этим пользоваться?

Как, как...
Dufa, же выложил архив... Там пример есть...

Как программно сменить иконку чужого EXE

mckie — Sat, 03 Sep 2005 15:05:22 +0000

mckie: Извените за глупый вопрос , но как этим пользоваться?

Как программно сменить иконку чужого EXE

Imperator — Fri, 27 May 2005 15:49:36 +0000

Imperator: поменять заголовок файла и ваще всё пропатчить...

Как программно сменить иконку чужого EXE

Dufa — Fri, 27 May 2005 08:56:18 +0000

Dufa: BenQ, Он должен заменить

Как программно сменить иконку чужого EXE

BenQ — Thu, 26 May 2005 16:09:15 +0000

BenQ: Dufa, огромнейшое тебе спасибо за модуль который находится в архиве!!!!!!!!!!! Спас жизнь!!!! Я так долго над эти бился!!!! :D :D
[+]

Добавлено 26.05.05, 16:15
У меня есть только вот какой еще вопрос: как заменить иконку у exe файла если размер этой иконки в exe файле не совпадает с размером иконки в файле .ico? То есть если размер этот больше? Какие есть соображения?

Как программно сменить иконку чужого EXE

but — Thu, 26 May 2005 13:58:09 +0000

but: Большое спасибо всем :D
Очень очень благодарен 8-)

Как программно сменить иконку чужого EXE

P.O.D — Tue, 29 Mar 2005 07:24:18 +0000

P.O.D: s-mike не ту ссылочку дал, там нерабрчий вариант.
Подмена ресурсов

Как программно сменить иконку чужого EXE

Dufa — Tue, 29 Mar 2005 07:12:22 +0000

Dufa: Пример на скорую руку написан, так что на его внешний вид и т.д внимания не обращать. Там используется acWorkRes немного исправленный :)

Как программно сменить иконку чужого EXE

Rouse_ — Tue, 29 Mar 2005 06:41:20 +0000

Rouse_: Хех - не все так просто :)
С ресурсами работать без проблем, а вот подмена именно главной иконки приложения может привести к появлению очередных шишек на лбу программиста :)
Спросите у Dufa - он в свое время делал этот трюк...

Как программно сменить иконку чужого EXE

s-mike — Mon, 28 Mar 2005 17:52:12 +0000

s-mike: Работа с ресурсами

Как программно сменить иконку чужого EXE

P.O.D — Mon, 28 Mar 2005 13:19:22 +0000

P.O.D: В факе, подмена ресурсов.

Как программно сменить иконку чужого EXE

but — Mon, 28 Mar 2005 13:01:57 +0000

but: Как с помошью Дельфи поменять иконку у чужого EXE-файла, если ее нет то вставить ее туда???