Программно создать ярлык

Для начала подключите следующие модули:

uses
  ShlObj, ComObj, ActiveX;

А затем используёте процедуру создания ярлыка:

procedure CreateLink(const PathObj, PathLink, Desc, Param: string); var
  IObject: IUnknown;   SLink: IShellLink;   PFile: IPersistFile; begin
  IObject := CreateComObject(CLSID_ShellLink);   SLink := IObject as IShellLink;   PFile := IObject as IPersistFile;   with SLink do   begin     SetArguments(PChar(Param));     SetDescription(PChar(Desc));     SetPath(PChar(PathObj));   end;   PFile.Save(PWChar(WideString(PathLink)), FALSE); end;

Другое по теме:

• Создать ярлык объекта в любой папке
• Создать ярлык на рабочем столе
• Создание ярлыков на рабочем столе, старт меню, панели быстрого запуска