Иногда мы хотим добавить ярлык к нашей программе. Конечно, после установки программы мы можем сделать это, щелкнув исполняемый файл нашей программы, щелкнув правой кнопкой мыши и выбрав «Добавить ярлык на рабочий стол». Но иногда мы хотим сделать это автоматически. реализовать это через программирование. Что делать? Для этого мы можем вызвать функции API. Исходный код приведен ниже:
Частная функция объявления fCreateShellLink Lib vb5stkit.DLL (ByVal _
lpstrFolderName как строка, по значению lpstrLinkName как строка, по значению _
lpstrLinkPath как строка, ByVal lpstrLinkArgs как строка) длиной
Частная субмарина MakeShortCuts()
Тусклый lВернуть как можно дольше
Уменьшить MyPath как строку
Уменьшить мое имя как строку
МойПуть = Путь к Приложению.
МоеИмя = ИмяПриложения.EXEName
'Добавить на рабочий стол
lReturn = fCreateShellLink(../../Desktop, _
Ярлык для Net Timer, MyPath &/& MyName, )
'Добавить в группу автозагрузки
lReturn = fCreateShellLink(/start, Ярлык для сетевого таймера, _
МойПуть &/& МоеИмя, )
Конец субтитра
Как насчет этого? Это очень просто, правда?