Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Ярлык к приложению

Автор: sniron 7.7.2004, 23:50

Как создать ярлык к определенному приложению?

Автор: Borland_Delphi_6 8.7.2004, 00:30

Попробуй это:

Код

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;

Автор: SoftLines 10.7.2004, 14:01

Удалена реклама своего сайта. Либо оставляй полный линк на статью, либо буду удалять такую рекламу... Смотри правила форума, п.2...

Автор: Poseidon 10.2.2005, 05:24

Видел такой же код и в DRKB (Delphi Russian Knowledge Base) , но хотелось бы увидеть пример использования данной процедуры, а именно, что именно нужно передавать в Desc и Param. smile

С PathObj, PathLink более-менее понятно (путь к программе и к иконке), а вот с Desc и Param не совсем. Просветлите по этому вопросу. smile

Автор: ~FoX~ 10.2.2005, 15:16

Код


CreateLink('c:\winnt\explorer.exe', 'c:\temp\1.lnk', 'Коментарий', '/a');

Desc - коментарий
Param - параметр запуска. Наприме c:\winnt\explorer.exe /a