Создание ярлыка - универсальный метод

Ответы на вопросы, чаще всего задаваемые в форумах VBStreets. Для тех, кому лень искать.
hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Создание ярлыка - универсальный метод

Сообщение hCORe » 26.12.2004 (Вс) 16:44

Есть несколько неплохих методов создания ярлыков, но вот - самый универсальный:
http://vbstreets.ru/VB/Sources/Downloads_GetFile.aspx?id=65972

Как пользоваться этим методом? Скопируйте в папку вашего проекта файлы modOLECommon.bas и ShellLink.cls, после чего подключите их к нему (Project>Add File...)

Следующий код создаст ярлык для "Проводника" Windows. Он будет находиться в корне диска C под именем 'llink':
Код: Выделить всё
Option Explicit

Private Sub Form_Load()
Dim a As ShellLink, t As Long, s As String
  'создадим объект
  Set a = New ShellLink

  'создадим ярлык
  a.Load "c:\llink.lnk"
  'установим иконку
  a.SetIconInfo "c:\windows\explorer.exe", 0
  'установим путь
  a.Path = "%SYSTEMROOT%\explorer.exe"
  'сохраним наше творение
  a.Save

  'очистим память
  Set a = Nothing
End Sub

'обязательно инициализировать OLE при загрузке
Private Sub Form_Load()
  modOLECommon.OleInitialize ByVal 0&
End Sub

'обязательно деинициализировать OLE при выгрузке
Private Sub Form_Unload(Cancel As Integer)
  modOLECommon.OleUninitialize
End Sub
Моду создают модоки, а распространяют модозвоны.

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Сообщение hCORe » 26.12.2004 (Вс) 21:52

Тот, кому интересно, как это всё работает, обязательно должен прочитать вот эту статью:
http://www.vbstreets.ru/VB/Articles/65974.aspx (автор GSerg.)
Используемая там методика подходит не только для интерфейса IShellLink - она универсальна :D
Моду создают модоки, а распространяют модозвоны.


Вернуться в Популярные вопросы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

    TopList