VPF::Ярлык к приложению - Форум программистов

sniron

Дата 7.7.2004, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 147
Регистрация: 28.3.2004

Репутация: нет
Всего: нет

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

Borland_Delphi_6

Дата 8.7.2004, 00:30 (ссылка)

(нет голосов)

Загрузка ...

LoneLINEss

Профиль
Группа: Участник Клуба
Сообщений: 2509
Регистрация: 5.11.2002
Где: in fortune dreams ...

Репутация: нет
Всего: 20

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

Код

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;

--------------------

Blind Guardian Fan :: BMSTU Student :: A polar bear is a rectangular bear after a coordinate transform.

Мои фотографии

SoftLines

Дата 10.7.2004, 14:01 (ссылка)

(нет голосов)

Загрузка ...

ЗАБАНЕН

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: -1
Всего: 1

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

Это сообщение отредактировал(а) p0s0l - 10.7.2004, 16:06

Poseidon

Дата 10.2.2005, 05:24 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

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

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

~FoX~

Дата 10.2.2005, 15:16 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код


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

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

Это сообщение отредактировал(а) ~FoX~ - 10.2.2005, 15:17

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »