Как узнать имя файла из ярлыкаDelphi , Файловая система , ЯрлыкиКак узнать имя файла из ярлыка
Автор: i-s-v function NameFromLink(const lnk: string): string; var MyObject: IUnknown; MySLink: IShellLink; MyPFile: IPersistFile; c: PChar; pfd: _WIN32_FIND_DATAA; begin Result := ''; try MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; if MyPFile.Load(Pointer(WideString(lnk)), OF_READ) <> S_OK then exit; c := PChar(lnk); MySLink.GetPath(c, MAX_PATH, pfd, 0); Result := string(c); except end; end; Статья Как узнать имя файла из ярлыка раздела Файловая система Ярлыки может быть полезна для разработчиков на delphi & pascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |