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

Иногда, необходимо, чтобы Ваше приложение создавало ярлыки на другие приложения или пользовательские документы. Делается это при помощи API функции fCreateShellLink хранящейся в файле Stkit432.dll, поставляемым с Setup ToolKit в Microsoft Visual Basic версии 4.0 for Windows либо в файле Vb5stkit.dll, который поставляется с Setup Toolkit в Visual Basic 5.0.

Пошаговое создание ярлычка на рабочем столе

1. Создайте новый проект. По умолчанию будет создана Form1.
   
    
2. Добавьте на Form1 кнопку (Command1).
   
    
3. Добавьте следующий код в секцию 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
    

4. Нажмите клавишу F5 для запуска приложения, а затем нажмите на кнопку.
   
    

ЗАМЕЧАНИЕ: Если Вы запустили приложение в Windows NT, то вышеприведённый пример будет работать правильно. Если Вы запускаете приложение в Windows 95, Windows 98, или Windows Me, то измените путь Calc.exe на следующий:

   C:\Windows\Calc.exe 

Создастся ярлык программы Calc.exe file на пользовательском рабочем столе, в группе программ, а так же появится ссылка на него в меню Автозапуска.

ССЫЛКИ

На CD-ROM Visual Basic 5.0 см. директорию: Tools\Unsupprt\ShellLnk

На CD-ROM Visual Studio директория: \common\Tools\vb\Unsupprt\ShellLnk