VPF::Удаление ярлыка... - Форум программистов

inko

Дата 17.4.2002, 14:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот функция, которую я использую для создания ярлыка, в данном примере на рабочем столе:

Код

{----------------------------------------------------------------}
function CreateLinkDesktop(Const FileName : String) : String;
var
MyObject  : IUnknown;
MySLink   : IShellLink;
MyPFile   : IPersistFile;
Directory : String;
WFileName : WideString;
MyReg     : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do begin
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName)));
end;
MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
[I]//создание ярлыка на рабочем столе[/I]
Directory := MyReg.ReadString('Shell Folders','Desktop','');
WFileName := Directory+'\[B]Имя ярлыка.lnk[/B]';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
{----------------------------------------------------------------}

А как можно удалить этот ярлык?
Нигде об этом ничего не сказано.

Vit

Дата 17.4.2002, 15:21 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Ярлыки хранятся как обычные файлы в папке о которой система знает как Desktop. Как найти эту системную папку (и другие тоже) я писал здесь на форуме:

http://www.forum.vingrad.ru/cgi-bin....2;t=129

Далее обычной функцией DeleteFile удаляешь нужный ярлык

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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