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

Автор: 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;

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

CreateLink(Application.ExeName, 'c:\1.lnk', 'Комментарий','Параметры');

Просмотров: 6215

Обсудить на форуме

Найти проститутку Реутова - задача одной минуты. У нас самые красивые и раскрепощенные дамы, готовые подарить вам море удовольствия. | Индивидуалки Мурома готовы исполнить все ваши желания и фантазии. | Проститутки Рубцовска - самые раскрепощенные и страстные девушки, готовые исполнить все ваши сокровенные желания. | Сайт проституток Ступина - ваш проводник в мир страсти, где каждая встреча станет незабываемой. | Вызвать проститутку Старого Оскола - это шанс погрузиться в мир сладких удовольствий и новых ощущений. | Хотите снять проститутку Ступина? Обращайтесь к нам, мы найдем вам идеального партнера на вечер. | Шлюхи Звенигорода предложат вам максимум удовольствия и незабываемые эмоции. | Индивидуалки Дзержинского гарантируют вам незабываемый опыт и полное удовлетворение. | Сайт проституток Мурманска - ваш проводник в мир разврата и наслаждения. Выбирайте и наслаждайтесь! | Наши путаны Красноармейска обещают вам незабываемый опыт и нежные ласки, которые подарят вам море удовольствия. | Сайт проституток Пятигорска предлагает самый широкий выбор анкет и услуг. Найдите свою идеальную спутницу прямо сейчас! | Вызовите проститутку Вологды и испытайте непередаваемые ощущения в компании этой прекрасной дамы. | Хотите снять проститутку Видного? Обращайтесь к нам, мы подберем идеальный вариант для вас.

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.