Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Иконка у безоконного приложения

Автор: Akina 22.5.2009, 08:38

ЕМНИП, когда-то видел и даже использовал ссылочку на статью, как штатными средствами изменить стандартную иконку у исполняемого файла, не имеющего в своём составе форм (стартующего соответственно из Sub Main). Но посеял линк, а технологии не помню. Приходится использовать внешний редактор ресов исполняемого модуля, что несколько неудобно.
ЕМНИП (но вот тут могу и ошибаться), там просто клалась икона в ресы, а потом какими-то штатными средствами она перемещалась в начало в списке групп икон...

Никто не помнит/знает такого рода ссылочку? Гугля уже изнасиловал во всех направлениях, но ничего вразумительного...

Автор: Avalon12x 22.5.2009, 11:02

Код


Sub main()
Dim WS As Object
Dim strDesktop, oShellLink
Set WS = CreateObject("WScript.Shell")
         strDesktop = WS.SpecialFolders("Desktop")
         Set oShellLink = WS.CreateShortCut(strDesktop & "\NEW ICON.lnk")
         oShellLink.TargetPath = "путь к открываемому файлу"
         oShellLink.WindowStyle = 1
         oShellLink.IconLocation = "путь к иконке" 
         oShellLink.Description = "Shortcut Script"
         oShellLink.WorkingDirectory = strDesktop
         oShellLink.Save
End Sub

Автор: Akina 22.5.2009, 11:08

Мне надо не ярлык править, а изменить отображаемую в эксплорере икону самого ЕХЕшника.
Впрочем, ответ уже найден - просто добавленной в ресурсы иконе надо дать ID, идущий по порядку раньше цифр, т.е. любой буквенный.