СМИРНОВ АЛЕКСЕЙ ВЛАДИМИРОВИЧ

(Aleksey V. Smirnov)

 
 
 
Приветствую Вас Гость | RSS | Регистрация | Вход
Меню сайта

Категории каталога
Форматы файлов [1]
Базы данных [2]
WEB-программирование [1]
Язык программирования QBasic [1]
Исходники на Visual Basic 5 [8]
Работа с текстом [1]

Друзья сайта

Главная » Статьи » ПРОГРАММИРОВАНИЕ » Исходники на Visual Basic 5

Пример для VB5 "Создание ярлыка на рабочем столе"
Иногда, необходимо, чтобы Ваше приложение создавало ярлыки на другие приложения или пользовательские документы. Делается это при помощи 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 на пользовательском рабочем столе, в группе программ, а так же появится ссылка на него в меню Автозапуска.



Источник: http://www.sources.ru/index.html
Категория: Исходники на Visual Basic 5 | Добавил: aleksmir (04.08.2007) | Автор: Алексей Смирнов
Просмотров: 1963 | Рейтинг: 0.0/0

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright MyCorp © 2006
Сайт управляется системой uCoz