Пошаговое создание ярлычка на рабочем столе
- Создайте новый проект. По умолчанию будет создана
Form1.
- Добавьте на Form1 кнопку (Command1).
- Добавьте следующий код в секцию General Declarations формы
Form1:
Option Explicit
'ЗАМЕЧАНИЕ: В Visual Basic 5.0, замените Stkit432.dll в следующем 'выражении на Vb5stkit.dll.
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal _ lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _ lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Command1_Click()
Dim lReturn As Long
'Добавляем на рабочий стол (Desktop) lReturn = fCreateShellLink("..\..\Desktop", _ "Shortcut to Calculator", "c:\Winnt\system32\calc.exe", "")
'Добавляем в меню Programs lReturn = fCreateShellLink("", "Shortcut to Calculator", _ "c:\Winnt\system32\calc.exe", "")
'Добавляем в меню Автозагрузка (Startup)
'Обратите внимание, что в Windows NT ярлычёк не появится до тех 'пор, пока Вы не перезагрузитесь. lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", _ "c:\Winnt\system32\calc.exe", "")
End Sub
- Нажмите клавишу F5 для запуска приложения, а затем нажмите на
кнопку.
ЗАМЕЧАНИЕ: Если Вы запустили приложение в Windows NT, то
вышеприведённый пример будет работать правильно. Если Вы запускаете
приложение в Windows 95, Windows 98, или Windows Me, то измените
путь Calc.exe на следующий: C:\Windows\Calc.exe
Создастся ярлык программы Calc.exe file на пользовательском
рабочем столе, в группе программ, а так же появится ссылка на него в
меню Автозапуска.
Источник: http://www.sources.ru/index.html |