Получение имени файла из его ярлыкаDelphi , Файловая система , ЯрлыкиПолучение имени файла из его ярлыка
Автор: VID { **** UBPFD *********** by delphibase.endimus.com **** >> Получение имени файла из его ярлыка В параметре LinkFileName необходимо указать полное имя файлы-ярлыка. Функция возвратит полное имя файла, на который ссылается рассматриваемый ярлык Зависимости: ComObj, SysUtils, Windows, ActiveX, System, ShlObj Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала Copyright: некий FAQ... не помню какой Дата: 27 апреля 2002 г. ***************************************************** } function GetFileNamefromLink(LinkFileName: string): string; var MyObject: IUnknown; MySLink: IShellLink; MyPFile: IPersistFile; FileInfo: TWin32FINDDATA; WidePath: array[0..MAX_PATH] of WideChar; Buff: array[0..MAX_PATH] of Char; begin Result := ''; if (fileexists(Linkfilename) = false) then exit; MyObject := CreateComObject(CLSID_ShellLink); MyPFile := MyObject as IPersistFile; MySLink := MyObject as IShellLink; StringToWideChar(LinkFileName, WidePath, SizeOf(WidePath)); MyPFile.Load(WidePath, STGM_READ); MySLink.GetPath(Buff, Max_PATH, FileInfo, SLGP_UNCPRIORITY); Result := buff; end; Статья Получение имени файла из его ярлыка раздела Файловая система Ярлыки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |