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

[hCORe]

Есть несколько неплохих методов создания ярлыков, но вот - самый универсальный:
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]

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