Изменение значка на ярлыке и на папке

[A.A.Z.]

Два вопроса:
1) Как изменить значок ярлыка
2) Как изменить значок папки (в XP+ это можно)
Буду рад любым ответам

[Amed]

1)
Имеем пример от Оловяникова:
http://www.vbrussian.com/download.asp?T ... mple&ID=63

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

Это уже легче, нет?

[Konst_One]

Shell32.ShellLinkObject
юзать метод SetIconLocation

[GSerg]

Или смотри пример от меня
Линк сам найдёшь?


А значок папки можно изменить в 98+. Для этого нуно заиметь в папке то ли desktop.ini, то ли folder.htt, то ли их сразу

[tyomitch]

desktop.ini

folder.htt - для спец-фич в виде "как веб-страницу" (с полоской слева)

[A.A.Z.]

Thanks a lot! Бум пробовать

[A.A.Z.]

Всем спасибо!
Значок папке поменять оказалось совсем просто: в desktop.ini прописать

Код: Выделить всё

[.ShellClassInfo]
IconFile=ICON.ICO
IconIndex=0

А с ярлыком разобрался через
[edit]Стоп! А почему на строчку Dim a As New Shell32.ShellLinkObject реагирует ошибкой 429? Что я не так объявил??
зы Юзаю Shell32 потому что ярлык у меня будет от подключения у инету [/edit]

[Konst_One]

потому что, ентот объект можно только методом другого создать,
например у ShellFolderItem есть метод GetLink()

[A.A.Z.]

Не понял Не мог бы ты пример кинуть?