Вашему вниманию предлагается модуль, разработанный специально с целью помочь решить данную проблему. А зачем может понадобиться делать ярлык программно? Например, можно сделать свой установочный файл (инсталлятор) для какой-либо программы и обязательно в конце поместить ярлык на рабочий стол пользователя Но всё зависит от вашей фантазии: мало ли зачем это ещё нужно?
КОМАНДЫ УПРАВЛЕНИЯ МОДУЛЕМ
param$='HIDE,WAIT '+ФАЙЛ+'#'+ЯРЛЫК+'#'+ДИРЕКТОРИЯ+'#'+КОММЕНТАРИЙ+'#'+ПУТЬ_К_ИКОНКЕ+'#'+ПАРАМЕТРЫ
Run("ПУТЬ_К_МОДУЛЮ","param$")
ФАЙЛ - путь к файлу, для которого будет создан ярлык
ЯРЛЫК - путь к будущему ярлыку с расширением lnk.
ДИРЕКТОРИЯ - директория файла, с которого будет создан ярлык
КОММЕНТАРИЙ - комментарий к ярлыку (виден в его свойствах)
ПУТЬ_К_ИКОНКЕ - путь к иконке ярлыка (без указания иконка будет родная)
ПАРАМЕТРЫ - дополнительные параметры для запуска файла
Все параметры разделяются специальным знаком «#».
Для подробностей смотрите пример в архиве и не забудьте в проект внедрить файл - "Shortcut v1.2.exe" (Меню "Проект" -> "Внедрённые файлы...").