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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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