[4kusNick]

Код:

 // процедура создания ярлыков
procedure CreateLink(sPathObj, sPathLink, sDesc: string);
var
 IObject: IUnknown;
 SLink: IShellLink;
 PFile: IPersistFile;
 
begin
 
 // создаем COM объект "IShellLink"
 IObject := CreateComObject(CLSID_ShellLink);
  SLink := IObject as IShellLink;
 PFile := IObject as IPersistFile;
 
 // заполняем его данными
  with SLink do
  begin
    //SetArguments(PChar(Param));
    SetDescription(PChar(sDesc));
    SetPath(PChar(sPathObj));
 end;
 
 // сохраняем по указанному пути
  PFile.Save(PWChar(WideString(sPathLink)), FALSE);
end;
 
//...
//...
begin
//...
  CreateLink('c:\program.exe','путь к ярлыку','подсказка');
//..
end;