Администратор
Регистрация: 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", "")
|