15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как создать ярлык в 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