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

Delphi , Файловая система , Ярлыки

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

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;

Программа на языке Delphi, которая создает shortcut (ссылку или иконку) к указанному файлу или директории. Программа использует интерфейсы COM IShellLink и IPersistFile, чтобы создать ссылку.

Вот разбивка кода:

1. Первая секция импортирует необходимые модули:
   • ShlObj: обеспечивает доступ к объектам shell
   • ComObj: обеспечивает доступ к COM-объектам
   • ActiveX: обеспечивает доступ к ActiveX-компонентам
2. Процедура CreateLink принимает четыре строковых параметра:
   • PathObj: путь к файлу или директории, к которой создается ссылка
   • PathLink: путь, где будет сохраняться ссылка
   • Desc: краткое описание ссылки
   • Param: дополнительные параметры для ссылки (не используются в этом примере)
3. Процедура создает экземпляр интерфейса IShellLink с помощью CreateComObject.
4. Затем она присваивает интерфейс IPersistFile тому же объекту, поскольку IShellLink наследуется от IPersistFile.
5. Внутри блока with она настраивает свойства объекта IShellLink:
   • SetArguments: настраивает аргументы для ссылки (не используются в этом примере)
   • SetDescription: настраивает описание для ссылки
   • SetPath: настраивает путь к файлу или директории, к которой создается ссылка
6. Наконец, она сохраняет ссылку в указанном месте с помощью IPersistFile.Save.

Чтобы использовать эту процедуру, вы бы вызвали ее с параметрами, например:

CreateLink('C:\Path\To\File.txt', 'C:\Path\To\Shortcut.lnk', 'File Description', '');

Это создаст ссылку под именем Shortcut.lnk в указанном месте, которая будет ссылаться на файл File.txt. Описание ссылки будет установлено в "File Description".

Обратите внимание, что этот код является специфичным для Delphi и может не работать с другими языками программирования или платформами.

Программно создать ярлык на компьютере с помощью языка программирования Delphi, используя модули ShlObj, ComObj и ActiveX.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Ярлыки ::