Текущий архив: 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.017 c
