Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

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

 
Капитан Немо   (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. Я Вам отвечал на этот вопрос. Вы назадаёте вопрос в разных форумов и забываете, а люди, стремясь помочь, отвечают. :(



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

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

Наверх




Память: 0.47 MB
Время: 0.008 c
3-2461
MCFire
2002-04-10 18:31
2002.05.02
Как грамотно составить TreeView из таблицы?


1-2569
Янушка
2002-04-19 11:47
2002.05.02
Как осуществить загрузку рисунка на форму, не используя TImage?


1-2559
_igorok
2002-04-19 10:22
2002.05.02
помогите !


3-2473
Dorosh
2002-04-10 08:02
2002.05.02
ADOTable (не удается найти строку для обновления)


1-2601
Vint
2002-04-20 02:39
2002.05.02
Изменение свойства в ObjectInspector