VPF::Смена иконки в exe - Форум программистов

klyaksa

Дата 17.8.2011, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 15.9.2005

Репутация: нет
Всего: нет

Взял функцию:

Код


function AddResource(FileName, ResName: string; Buf: pointer; Size: integer): integer;
{* Добавляет данные в RC_DATA. На входе:
   FileName - имя файла с ресурсами (exe, dll и т.п),
   ResName  - имя ресурса (ОБЯЗАТЕЛЬНО! заглавными латинскими буквами),
   Buf      - указатель на блок данных, Size - размер блока данных.
   На выходе - 0, если все Ok, либо номер ошибки Windows }
var
  Hnd: THandle;
begin
  Hnd := BeginUpdateResource(PChar(FileName), false);
  if Hnd=0 then begin
    result := GetLastError; Exit;
  end;
  if UpdateResource(Hnd, RT_RCDATA, PChar(ResName), 1049, Buf, Size) then
    result := 0
  else result := GetLastError;
  EndUpdateResource(Hnd, (result<>0));
end;

С ней всю хорошо, в RCDATA все меняется хорошо... попробовал переделать ее чтобы менять иконку
if UpdateResource(Hnd, RT_ICON, PChar('MAINICON'), 1049, AMemoryStream.Memory,AMemoryStream.Size) then
В AMemoryStream загружаю из файла иконку.

Ничего не получается - иконка не меняется. Не пойму в чем проблема.

п.с. сторонних библиотек (тут на форуме одна описывается) не хочу.

Vaskevych

Дата 30.8.2011, 23:30 (ссылка)

(нет голосов)

Загрузка ...

Delphi Developer

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 30.12.2009
Где: UA. Rovno

Репутация: нет
Всего: нет

Лови, разберешься !!!!
В примере все есть когда то делал себе.

Относительно сторонних библиотек тебя никто не заставляет их использовать, но посмотреть принцип роботы это на пользу ))))

Это сообщение отредактировал(а) Vaskevych - 30.8.2011, 23:35

Присоединённый файл ( Кол-во скачиваний: 17 )

VsResMan.rar 460,24 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »