Как создать ярлык?

[AHDPE@ich]

Всем доброго времени суток:) Иногда возникает необходимость создания ярлыка для своей программки. Не подскажите, как это осуществить программно?

[alibek]

По разному. Например, так.

[AHDPE@ich]

Интерфейс IShellLink :

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

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.Save
 
  Set a = Nothing

[Viper]

AHDPE@ich, пользуемся тегами кода!

[AHDPE@ich]

Понимаю, что чушь полная , но нет ли кода типа Create("Ярлык")? Коротко и ясно...

[Viper]

Этого мало?

[AHDPE@ich]

Спасибо за ссылочку. То, что надо Коротко и ясно