Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как программно создать ярлык?

01.01.2007

Автор: Gavrilo

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;

Взято из https://forum.sources.ru