→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Создание ярлыков 
Автор Сообщение
Администратор
Аватара пользователя

Регистрация: 03.11.2007
Сообщения: 559
Откуда: Украина
Специальность:

Репутация: 6 [ ? ]
Сообщение Создание ярлыков
Создание ярлыков

Создание ярлыков в Windows посредством API функции.
Делается это просто, если учесть, что такая функция есть в библиотеке VB, которая есть и в 5 и в 6 версии.

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub Form_Load()
RetVal = fCreateShellLink("..\..\Desktop", "Проводник", "explorer.exe", "")
End Sub

Если надо создать ярлык в папке Start Menu (в русских форточках Главное меню), то:

RetVal = fCreateShellLink("..\..\Start Menu", "Проводник", "explorer.exe", "")

Соответственно в папке Programs (Программы) и в папке Startup (Автозагрузка):

RetVal = fCreateShellLink("..\..\Start Menu\Programs", "Проводник", "explorer.exe", "")
RetVal = fCreateShellLink("..\..\Start Menu\Programs\Startup", "Проводник", "explorer.exe", "")


19.01.2008 12:32
Профиль ICQ
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Yahoo [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»