Для создания ярлыка имеется несколько вариантов, но все они так или иначе связаны с описанием или прямым использованием COM объектов Windows (Shell или Windows Scripting Host WHS).
В первом варианте, необходимо описывать интерфейсы у себя в проекте. Во втором иметь ссылку в приложении. Что-то среднее будет выглядеть так:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Private Sub CreateLink(path As String, dest As String) Try Dim shell As Object = CreateObject("WScript.Shell") Dim shrotcut As Object = shell.CreateShortcut(path) With shrotcut .TargetPath = dest .Save End With shrotcut = Nothing shell = Nothing Catch ex As Exception Throw New Exception("Ошибка при создании ярлыка", ex) End Try End Sub |
Чтобы добавить ярлык текущего приложения в глобальный (нужны права администратора) автозапуск:
1 |
CreateLink(Environment.GetFolderPath(Environment.SpecialFolder.CommonStartup) & "\test.lnk", Application.ExecutablePath) |