Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Иконка у безоконного приложения, напомните плиз - посеял... 
V
    Опции темы
Akina
Дата 22.5.2009, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



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

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Avalon12x
Дата 22.5.2009, 11:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 26
Регистрация: 12.2.2009

Репутация: нет
Всего: нет



Код

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


PM MAIL   Вверх
Akina
Дата 22.5.2009, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0661 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.