Вверх ↑
Ответов: 66
Рейтинг: 1
#1: 2019-05-08 17:32:50 ЛС | профиль | цитата
Требуются удалить иконку, но всегда добавляется стандартная иконка, а после удаления через ResourceHacker отказывается работать: "Runtime error 216 at 00005CCE".
С помощью поиска в Notepad++ вроде бы нашёл загрузку этой иконки, что скорее всего вызывает ошибку при отсутствии ресурса

Кусок из hiCommandCenter.pas :
procedure THICommandCenter.SetCommands;
var
i,ico: integer;
name,info:string;
def:HICON;
f:byte;
begin
def := LoadIcon(HInstance, 'ASMA');
for i := 0 to Value.Count - 1 do
begin
info := Value.items[i];
name := GetTok(info, '=');
if name = '' then name := info;
if name[1] = '^' then
begin
delete(name, 1, 1);
f := FLG_CHECK;
end
else F := 0;

if def = Value.Objects[i] then // вот такой оригинальный костыль...
ico := -1
else ico := IList.AddIcon(Value.Objects[i]);
addCmdInfo(name, info, ico, f);
end;
end;
карма: 0

0
Редактировалось 2 раз(а), последний 2019-05-08 17:34:05