|
Как создать ссылку (ShortCut) на файл (.lnk)?Delphi , Файловая система , ЯрлыкиКак создать ссылку (ShortCut) на файл (.lnk)?
Code: |
uses ShlObj, ActiveX, ComObj;
...
{©Drkb v.3(2007): www.drkb.ru,
®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}
procedure CreateShortCut(ShortCutName, Parameters, FileName: string);
var ShellObject: IUnknown;
ShellLink: IShellLink;
PersistFile: IPersistFile;
FName: WideString;
begin
ShellObject := CreateComObject(CLSID_ShellLink);
ShellLink := ShellObject as IShellLink;
PersistFile := ShellObject as IPersistFile;
with ShellLink do
begin
SetArguments(PChar(Parameters));
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(extractfilepath(FileName)));
FName := ShortCutName;
PersistFile.Save(PWChar(FName), False);
end;
end; |
Статья Как создать ссылку (ShortCut) на файл (.lnk)? раздела Файловая система Ярлыки может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: Главная :: Ярлыки ::
|
|
