Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Вниз

Удаление ярлыка... 


Капитан Немо   (2002-04-17 18:09) [0]

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

{--------------------------------------------------------------}
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") ;
//создание ярлыка на рабочем столе
Directory := MyReg.ReadString("Shell Folders","Desktop","");
WFileName := Directory+"\Имя ярлыка.lnk";
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;
{--------------------------------------------------------------}


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



Макс Черных   (2002-04-18 16:33) [1]

ярлык это обычный файл, и удалять его надо как
обычный файл:
DeleteFile(Directory+"\Имя ярлыка.lnk");



Song   (2002-04-18 16:36) [2]

А потом не забудьте обновить рабочий стол.

P.S. Я Вам отвечал на этот вопрос. Вы назадаёте вопрос в разных форумов и забываете, а люди, стремясь помочь, отвечают. :(




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.021 c
6-2633            VID                   2002-02-16 19:30  2002.05.02  
Отлов появления коннекта


6-2643            SerfX                 2002-02-16 14:46  2002.05.02  
Какими ф-ми в clx библиотеке можно обратиться к канальному уровню?


3-2471            Demon Ltd             2002-04-11 01:07  2002.05.02  
Стаж в базе


1-2597            BlackGrin             2002-04-19 19:59  2002.05.02  
Gif & Delphi


3-2485            Скалли                2002-04-08 09:54  2002.05.02  
Работа с двумя серверами одновременно