| ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
Создание ярлыка на рабочем столе
Делается это просто, если учесть, что такая функция есть в библиотеке 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 Если надо создать ярлык в папке 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", "")
|
|
| ||||||||||||||||
|