1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim oShortCut As IWshRuntimeLibrary.WshShortcut 'Объект для ярлыка Dim oWshShell As New IWshRuntimeLibrary.WshShell 'Объект для оболочки 'Путь к рабочему столу Dim sDesktopDir As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) 'Создаем ярлык oShortCut = CType(oWshShell.CreateShortcut(sDesktopDir & "\Ярлычищщщще.lnk"), IWshRuntimeLibrary.WshShortcut) 'Изменяем свойства ярлыка и сохраняем его With oShortCut .TargetPath = "C:\Windows\System32\Spider.exe" 'Путь к исполняемому файлу .WindowStyle = 1 'Состояние окна .Description = "Ярлык к моей программе" 'Описание ярлыка, которое появится во всплывающей подсказке .WorkingDirectory = "C:\Windows\System32" 'Рабочая папка" .IconLocation = "C:\Windows\System32\Spider.exe" & ", 0" 'Иконка для ярлыка. Первая в том файле, на который ссылаемся .Save() 'Сохраняем ярлык на рабочий стол End With End Sub |