изменить иконку в любой программе

← →
markus (2008-05-08 23:06) [0]

создаю пустой .ехе и пытаюсь заменить в нем иконку, почему не получатеся, вот пример оставил самое главное, что не так

fs:=TFileStream.Create("icon.ico",fmOpenRead); size:=fs.Size; GetMem(p1,size); fs.Read(p1^,size); lUpd:=BeginUpdateResource(PChar(ExtractFileDir(application.ExeName)+"\Project1.exe"),false); lBool:=UpdateResource(lUpd,RT_ICON,"MAINICON",LANG_NEUTRAL,p1,size); EndUpdateResource(lUpd,False);

← →
Германн © (2008-05-09 00:45) [1]

> markus (08.05.08 23:06)
>
> создаю пустой .ехе и пытаюсь заменить в нем иконку, почему
> не получатеся, вот пример оставил самое главное, что не
> так
>

Нет ни одной проверки результата возвращаемого данными функциями.

← →
Германн © (2008-05-09 01:01) [2]

Да и где в приведённом примере собственно "замена"?

← →
sniknik © (2008-05-09 01:09) [3]

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=39149

← →
markus (2008-05-09 01:23) [4]

> Германн © (09.05.08 00:45) [1]
> Нет ни одной проверки результата возвращаемого данными функциями.

это порицание или диагноз

> Да и где в приведённом примере собственно "замена"?

вот и я тоже думаю что-то не так, хотя с другой стороны должно работать, в ехе то иконку пишет, но не покаывает

> sniknik © (09.05.08 01:09) [3]
>
> http://www.delphikingdom.com/asp/answer.asp?IDAnswer=39149

посмотрел, интересно, но все таки там ключевую роль там играют три строчки, переделать можно все кроме них или я ошибаюсь!
BeginUpdateResource
UpdateResource
EndUpdateResource

← →
Германн © (2008-05-09 01:27) [5]

> sniknik © (09.05.08 01:09) [3]

Коль. Лучше было бы привести ответ Королевства на "поиск в статьях" по UpdateResource. А то по твоей ссылке ценное только "Взято из исходников InnoSetup". А это значит, что нужно качать ещё и исходники InnoSetup и в них разбираться. :((

← →
Германн © (2008-05-09 01:33) [6]

> markus (09.05.08 01:23) [4]
>
>
> > Германн © (09.05.08 00:45) [1]
> > Нет ни одной проверки результата возвращаемого данными
> функциями.
>
> это порицание или диагноз
>

И то и другое. В справке по всем этим функциям написано:
Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.
Без анализа результатов этих функций, как того советует справка, твой вопрос не имеет смысла.

← →
markus (2008-05-09 01:43) [7]

> Германн © (09.05.08 01:33) [6]
> Без анализа результатов этих функций, как того советует
> справка, твой вопрос не имеет смысла.

возвращают они положительный результат. сам файл увеличивается ровно на размер ресурса. файл не портится и работает после этого. но иконка не меняется.

← →
Германн © (2008-05-09 02:06) [8]

> markus (09.05.08 01:43) [7]
>
>
> > Германн © (09.05.08 01:33) [6]
> > Без анализа результатов этих функций, как того советует
> > справка, твой вопрос не имеет смысла.
>
> возвращают они положительный результат. сам файл увеличивается
> ровно на размер ресурса. файл не портится и работает после
> этого. но иконка не меняется.
>

Но в твоём примере этого не видно. Ни положительного результата, ни
> Да и где в приведённом примере собственно "замена"?

А что мы можем сказать в результате?

← →
markus (2008-05-09 02:25) [9]

> Германн © (09.05.08 02:06) [8]
> А что мы можем сказать в результате?

я вижу только одно иконка пишется в файл только не туда куда нужно

Кэш шелла ?

> markus (09.05.08 02:25) [9]
>
>
> > Германн © (09.05.08 02:06) [8]
> > А что мы можем сказать в результате?
>
> я вижу только одно иконка пишется в файл только не туда
> куда нужно
>

Ну и видь сей результат дальше.

> markus (09.05.2008 01:23:04) [4]

После просмотра всей ветки, можно уже сказать, что это не поричание.

изменить иконку в любой программе Найти похожие ветки