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

Советы » Ярлыки » Программно создать ярлык

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

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;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com