Давайте я расставлю все точки над "И"... Как менять иконку я разобрался, но вот поменять на нужную немогу... Когда открываю экзешник в Resource Tunere то там есть папка GroupIcon в папке GroupIcon есть ресурс со списком иконок которые есть в приложении... Список выглядит так:
Цитата:
48x48 4-bit; Icon Entry Ord: 1
32x32 4-bit; Icon Entry Ord: 2
16x16 4-bit; Icon Entry Ord: 3
48x48 8-bit; Icon Entry Ord: 4
32x32 8-bit; Icon Entry Ord: 5
16x16 8-bit; Icon Entry Ord: 6
48x48 32-bit; Icon Entry Ord: 7
32x32 32-bit; Icon Entry Ord: 8
16x16 32-bit; Icon Entry Ord: 9
|
Мне нужно получить этот список... Это текстовая информация.. Из этого списка получить указаль на ресурс иконки (которая выделена красным цветом) В данном случае "8"... И уже потом её поменять!!! Так вот вопрос... Как загрузить в Memo эту текстовую информацию исходя из вот этого примера:
Код:
var
hResLoad, hRes: HRSRC;
hExe, hUpdateRes: THandle;
lpResLock: PChar;
begin
// Загружаем источник иконки как библиотеку (с ресурсами)
hExe := LoadLibrary(PChar(SourceExe));
if hExe = 0 then Exit;
try
// Ищем в источнике главную иконку
hRes := FindResource(hExe, MakeIntResource(8), RT_ICON);
if hRes = 0 then Exit;
// Загружаем иконку
hResLoad := LoadResource(hExe, hRes);
if hResLoad = 0 then Exit;
// Лочим ресурс иконки. Получаем указатель не ее данные.
lpResLock := LockResource(hResLoad);
Только нужно наверное RT_ICON поменять на RT_GROUP_ICON... Помогите очень прошу!!!
