Консультация № 159575
04.02.2009, 09:06
0.00 руб.
0 1 1
Как можно поменять программно в ехе файле иконку?

Извлекать можно ниже следующим текстом, а как заменить я не знаю. Может существуют какие нибудь компоненты?

Приложение:
var
IconIndex: word;
h: hIcon;
begin
IconIndex := 0;
h := ExtractAssociatedIcon(hInstance,
'C:\WINDOWS\NOTEPAD.EXE', IconINdex);

извлечение иконки из файла

Обсуждение

давно
Профессионал
153662
1070
04.02.2009, 12:36
общий
это ответ
Здравствуйте, Остапчик Сергей Сергеевич!
Могу предложить менять программно иконку не в ехе файле, а накидать кучу иконок в файл ресурса и уже в процессе работы приложения менять иконку на нужную
Код:
Application.Icon.Handle := LoadIcon(hInstance, 'ICONNAME');
InvalidateRect(Application.Handle, NIL, True);

Иконка, расположенная в .RES-файле, должна быть видима в .EXE-файле, к примеру, при просмотре файла посредством Program Manager.
Об авторе:
Мои программы со статусом freeware для Windows на моём сайте jonix.ucoz.ru

Форма ответа