uses
..., acWorkRes;
var q:dword;
begin
...
q:=BeginUpdateResourceS('C:\exefile.exe', False); //пусть к программе у которой менять иконку
if q <> 0 then begin
if not(ReplaceIconGroupResourceS(q, 'MAINICON', 0, 'C:\iconfile.ico')) then begin // Путь к иконке
EndUpdateResource(q, False);
exit;
end;
MessageBox(0,'Иконка изменена','',MB_ICONINFORMATION);
EndUpdateResource(q, False);
модуль закинуть в папку с прогой Скачать
|
