Текущий архив: 2002.09.16;
Скачать: CL | DM;

Вниз

Удаление ярлыков   Найти похожие ветки 

← →
Alex_i ©   (2002-07-01 19:00) [0]

Как корректно удалить ярлыки к программе из меню программ и с рабочего стола. Надо что-бы работало во всех версиях Win, начиная с 95. Создаются ярлыки при установке с использованием IShellLink ( http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1023180121&n=5)

---

← →
asmer   (2002-07-02 22:08) [1]

типа, я те нашёл помощь... хех... тока ентот пример не удаляет, а создаёт ярлык :) но, я думаю, ты человек сообразительный, разберёшься...

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;


---

← →
Alex_i ©   (2002-07-04 16:19) [2]

Спасибо. В принципе вопрос удаляется в связи с его нелогичностью Ведь как поставил, так же и снес.

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c