Главная страница
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.006 c
1-2529
Катерина
2002-04-21 12:56
2002.05.02
Размеры в Chart


1-2582
Дмитрий_Ч
2002-04-19 16:55
2002.05.02
Что-то не получается.


6-2640
Basty
2002-02-16 09:26
2002.05.02
проблема с Server Socket


4-2714
isaveliev
2002-02-27 13:16
2002.05.02
Как отловить факт окончания печати документа


4-2709
alexey1
2002-02-27 12:40
2002.05.02
Вопрос на использование функции FindWindowEx