Как получить путь к файлу, зная путь к ярлыку?

[arthur2]

Я знаю, где лежит ярлык:
c:\lalala\Ярлык для figlimigli.txt.lnk

Как мне теперь узнать, где лежит сам файл?

Тот же вопрос и про *.pif

[Konst_One]

ShellLinkObject

Library Shell32
C:\WINDOWS\system32\SHELL32.dll
Microsoft Shell Controls And Automation

[Twister]

Хе-хе.
Мало того, в сети можно найти описание формата LNK-файлов и выудить нужное значение непосредственно из ярлыка. Это гораздо быстрее, но только для дZенствующих...

[kibernetics]

Twister
вроде бы lnk-формат немного отличается на разных версиях винды...

я просто писал программу, которая работает с ссылкой ярлыка и однажды напоролся на "недопонимание"

[arthur2]

Konst_One
Подключил я эту библиотеку и посмотрел на ShellLinkObject... Что-то мне не очень понятно, как им пользоваться

Пока нашёл такую штуку:

Код: Выделить всё

Public Function getNameFromLink(fnm As String) As String
    Dim lBuffLen     As Long
    Dim cShellLink   As ShellLinkA        ' An explorer IShellLink instance
    Dim cPersistFile As IPersistFile      ' An explorer IPersistFile instance
    Dim fd   As WIN32_FIND_DATA
    Dim sExeFile As String
    sExeFile = Space$(MAX_PATH)
    lBuffLen = Len(sExeFile)
    On Error Resume Next
    Set cShellLink = New ShellLinkA       ' Create new IShellLink interface
    Set cPersistFile = cShellLink         ' Implement cShellLink's IPersistFile interface
    cPersistFile.Load StrConv(fnm, vbUnicode), STGM_DIRECT
    cShellLink.GetPath sExeFile, lBuffLen, fd, SLGP_UNCPRIORITY
   
    getNameFromLink = Trim$(sExeFile)
    Set cPersistFile = Nothing
    Set cShellLink = Nothing
End Function

Но, чёй-то мне этот способ не очень нравится. Работает, конечно, безотказно, но это - как из пушки по воробьям.

Twister
Да, мне кажется, нужно сделать именно так... Пытаюсь рыть в этом направлении. Но я, увы, не очень продвинут.

kibernetics
Поделись наработками, если не жалко? [/code]

[iGrok]

То есть, тебя устраивает тот факт, что на какой-то машине твой код может не работать, так?

[arthur2]

iGrok
Наработки не обязательно тупо копировать - можно же и попытаться понять, что не так.

Во всяком случае, разбираться с нуля сложнее.

[Хакер]

Но, чёй-то мне этот способ не очень нравится. Работает, конечно, безотказно, но это - как из пушки по воробьям.

Очередное заблуждение.

[arthur2]

Очень убедительное возражение с другого форума:

ANDLL
Оно конечно хочется открыть файл и прочитать из него пару байтов, ибо кажется что это работает быстрее и вообще куда круче.
На самом деле lnk - внутренний формат, который вообще может меняться даже внутри версии операционной системы, поэтому читать его "руками" значит в конце концов найти ситуацию, в которой твоя программа не сможет правильно сработать.
Так что куда лучше "поднимать все эти интерфейсы", чем читать самому.

В общем, кажется, придётся всё же через IShellLink, благо что работает нормально.

[iGrok]

Что и требовалось доказать.. )

[Twister]

Оно конечно хочется открыть файл и прочитать из него пару байтов, ибо кажется что это работает быстрее и вообще куда круче.
На самом деле lnk - внутренний формат, который вообще может меняться даже внутри версии операционной системы, поэтому читать его "руками" значит в конце концов найти ситуацию, в которой твоя программа не сможет правильно сработать.
Так что куда лучше "поднимать все эти интерфейсы", чем читать самому.

вроде бы lnk-формат немного отличается на разных версиях винды...

А вроде бы нет. Какой смысл его менять?
Повторю еще раз - этот формат не менялся давно и причины его менять пока тоже нет.

[alibek]

Twister, меняется, и сильно.
Ярлык на самом деле может ссылаться на самую разную информацию и в зависимости от ее типа отличается довольно сильно.
Сравни обычный ярлык, который ты можешь сделать на файл, ярлык на какую-нибудь специальную папку ("Мой компьютер" или иное), ярлык на сетевое подключение, ярлык на любую из программ Microsoft Office, который делает сам установщик.

[Twister]

alibek
Тебе выслать формат файла? И ты посмотришь, что не смотря на то, что ярлык может ссылаться на самую разную информацию, его структура не меняется.

Представь, если бы было несколько различных форматов PE - один для ЕХЕ, другой для DLL, третий для SYS... Абсурд.

Я не утверждаю, что мелкомягким не взбредет в голову изменить формат, я утверждаю, что со времен w2k вплоть до vista они этого не сделали...

[kibernetics]

Twister
отличается...
ей-богу, косячишко какойто в нём есть...

я пробовал по этому описанию, ничего не вышло. есть lnk которые както особо генерятся.
пришлось сделать через WScript.Shell

[alibek]

Twister, у меня есть описание.
Посмотри ярлыки, которые установщик Microsoft Office делает.
Там вообще непосредственного пути к исполняемому файлу нет.
И напрямую из файла, без использования интерфейсов, этот путь ты не получишь.

[kibernetics]

arthur2
наработки у меня специфические.
на форму объект PictureBox и в событии Picture1_OLEDragDrop
пишешь код:

Код: Выделить всё

Dim w As Object, S As Object
Set w = CreateObject("WScript.Shell")
Set S = w.CreateShortcut(Data.Files(1))
Debug.Print s.TargetPath
Set S = Nothing
Set w = Nothing

потом на эту картинку перетягиваешь любой ярлык и наслаждешься результатом

[arthur2]

kibernetics
Так у тебя через этот способ было недопонимание с какими-то из ярлыков?
А я думал, что через WScript с ярлыками работать надёжно... Ну вот.

alibekА из ярлыков офиса и с интерфейсами вытаскивается чё-то крайне странное:
C:\WINXP\Installer\{90110419-6000-11D3-8CFE-0150048383C9}\wordicon.exe

Любопытно, к чему в офисе такой мудрёж и что он даёт?

[alibek]

Это путь к значку.

[kibernetics]

arthur2
да нет,
нету у меня недопонимания с моим методом пока что.
люди работают и бог с ним
разве что, если кто ехе-шник суёт, то ошибка вылазит.
надо подправить код.

[arthur2]

alibek
Это путь, который возвращает тот же самый код, который для нормальных ярлыков возвращает путь к программе.

kibernetics

вроде бы lnk-формат немного отличается на разных версиях винды...

я просто писал программу, которая работает с ссылкой ярлыка и однажды напоролся на "недопонимание"

Я думал, что ты до этого пытался разобраться с форматом ярлыков и именно теми неудачными наработками просил поделиться.