{ **** UBPFD *********** by delphibase.endimus.com ****

***************************************************** }

 

 procedure CreateShortcut(const FilePath, ShortcutPath,

 WorkDir, Description, Params: string);

 var

 obj: IUnknown;

 isl: IShellLink;

 ipf: IPersistFile;

 begin

 obj := CreateComObject(CLSID_ShellLink);

 isl := obj as IShellLink;

 ipf := obj as IPersistFile;

 with isl do

 begin

  SetPath(PChar(FilePath));

  SetArguments(PChar(Params));

  SetDescription(PChar(Description));

  SetWorkingDirectory(PChar(WorkDir));

 end;

 ipf.Save(PWChar(WideString(ShortcutPath)), False);

 end;

 

Пример использования:

 

 

 // пример создания ярлыка на рабочем столе

 var

 UserDesktop: string;

 R: TRegIniFile;

 begin

 R := TRegIniFile.Create('');

 with R do

 begin

  RootKey := HKEY_CURRENT_USER;

  UserDesktop :=

  ReadString('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',

  'desktop', '');

  Free;

 end;

 

 CreateShortcut(Application.ExeName, UserDesktop +

  '\Название ярлыка.lnk', '', '', '');

 end;