Главная страница
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.007 c
3-2458
vladimirb
2002-04-10 16:38
2002.05.02
Проблема с BDE!!! Дает ошибку в CGI. Help me, please!!!


1-2560
Коля
2002-04-19 01:33
2002.05.02
Что это с иконкой?


1-2621
Surprising
2002-04-20 07:56
2002.05.02
Excel


3-2447
voland_S
2002-04-10 15:47
2002.05.02
помогите пожалста с DBLookup


1-2531
agrig
2002-04-18 11:20
2002.05.02
Подскажите компоненту или dll чтобы зашифровать файл!