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

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

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как создать ярлык?

Автор: Desperate 12.11.2006, 01:40

Подскажите как создать ярлык в Пуск-> Программы->Автозагрузка, под WinXP не используя обращения к реестру для получения пути?

Автор: Alexeis 12.11.2006, 16:33

Desperate,

Цитата

90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

+ поиск. Этот вопрос неоднократно обсуждался на форуме.

Автор: Guedda 12.11.2006, 17:03

Код


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;

Автор: Desperate 12.11.2006, 19:28

Все! Всем спасибо! То что нужно!