Получение имени файла из его ярлыка

Советы » Ярлыки » Получение имени файла из его ярлыка

{ **** 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com