Содержимое ярлыка

[Vitaly1]

Я определяю содержимое ярлыка так:

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

Function danShurtCut(Name)
'Расшифровка ярлыка
Form1.CommonDialog1.Filename = Name
Form1.CommonDialog1.filter ="*.*"+chr(124)+"*.*"
[b]'извиняюсь , если неправильно написал по памяти имя свойства[/b]
Form1.CommonDialog1.dialogtitle ="Ярлык на папку"
SendKeys Chr(13)
Form1.CommonDialog1.ShowOpen
danShurtCut = CommonForm1.Dialog1.Filename
End Function

Функция выдает либо путь к файлу сразу, либо путь к выбранному файлу(если ярлык на папку), либо полное имя ярлыка, если файл не выбран(и ярлык на папку)

Это, конечно, криво, как иначе определить содержимое ярлыка?

[young]

Vitaly1 Собственно говоря, в мозгах фактически тоже самое - считывать посторчно, пока не поподёт путь.... (искать по маске)

[Vitaly1]

Господа программисты, неужели никто не знает как посмотреть содержимое ярлыка не пользуясь объектом CommonDialog?

[alibek]

Смотри аттач.
Там пример работы с ярлыками (через TLB). Если не устраивает таскать с собой TLB-файл, то можешь загрузить его в ресурсы и подключать при запуске программы (примеры были в MSDN, точный адрес не помню).
Для партизанов в аттаче также есть описание структуры файла-ярлыка (правда устаревшее), можешь написать свой парсер.

Блин, не могу закачать. Смотри на http://alibek7.narod.ru/shortcut.zip

[Krasavica]

Vitaly1
Можно.
Вот я на Delphi писала как-то.

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

// Обновление ярлыка для файла  (запабликить)
function EditLink(LinkFileName:String; var Buff, Arg, Dir: string):boolean;
var
MyObject: IUnknown;
MySLink: IShellLink;
MyPFile: IPersistFile;
FileInfo: TWin32FINDDATA;
WidePath: array [0..MAX_PATH] of WideChar;
bBuff, bArg, bDir: array [0..MAX_PATH] of Char;
begin
Result := False;
if not fileexists(Linkfilename) 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(bBuff, Max_PATH, FileInfo, SLGP_UNCPRIORITY);
MySLink.GetArguments(bArg,MAX_PATH);
MySLink.GetWorkingDirectory(bDir, MAX_PATH);
Buff:=bBuff;
Arg:=bArg;
Dir:=bDir;
// MySLink.Get
Result := True;
end;


А MSDN говорит следующее:

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

HRESULT ResolveIt(HWND hwnd, LPCSTR lpszLinkFile, LPSTR lpszPath)
{
    HRESULT hres;
    IShellLink* psl;
    char szGotPath[MAX_PATH];
    char szDescription[MAX_PATH];
    WIN32_FIND_DATA wfd;

    *lpszPath = 0; // assume failure

    // Get a pointer to the IShellLink interface.
    hres = CoCreateInstance(CLSID_ShellLink, NULL, CLSCTX_INPROC_SERVER,
                            IID_IShellLink, (LPVOID*)&psl);
    if (SUCCEEDED(hres))
    {
        IPersistFile* ppf;

        // Get a pointer to the IPersistFile interface.
        hres = psl->QueryInterface(IID_IPersistFile, (void**)&ppf);
 
        if (SUCCEEDED(hres))
        {
            WCHAR wsz[MAX_PATH];

            // Ensure that the string is Unicode.
            MultiByteToWideChar(CP_ACP, 0, lpszLinkFile, -1, wsz, MAX_PATH);

            // TODO: Check return value from MultiByteWideChar to ensure
                     success.

            // Load the shortcut.
            hres = ppf->Load(wsz, STGM_READ);
           
            if (SUCCEEDED(hres))
            {
                // Resolve the link.
                hres = psl->Resolve(hwnd, 0);

                if (SUCCEEDED(hres))
                {
                    // Get the path to the link target.
                    hres = psl->GetPath(szGotPath,
                                        MAX_PATH,
                                        (WIN32_FIND_DATA*)&wfd,
                                        SLGP_SHORTPATH);

                    if (SUCCEEDED(hres))
                    {
                        // Get the description of the target.
                        hres = psl->GetDescription(szDescription, MAX_PATH);

                        if (SUCCEEDED(hres))
                        {
                            hres = StringCbCopy(lpszPath, sizeof(lpszPath),
                                                szGotPath);
                            if (SUCCEEDED(hres))
                            {
                                // Handle success
                            }
                            else
                                // application-defined function
                                HandleErr(hres);
                        }
                    }
                }
            }

            // Release the pointer to the IPersistFile interface.
            ppf->Release();
        }

        // Release the pointer to the IShellLink interface.
        psl->Release();
    }
    return hres;
}




[<Sergey>]

Подключи библиотеку Microsoft Shell Controls And Automation, она содержит объект ShellLinkObject. Используя свойства этого объекта можно задать все параметры ярлыка.
Только есть один ньюанс - в W-98 я не смог заставить его работать (не помню почему - давно я с этим стокнулся). В XP проблем не было.

[Vitaly1]

Всем спасибо, особенно Красавице, будем пробовать и пытаться перевести с одного программного языка на другой.

[alibek]

Не сможешь, VB не работает с интерфейсами.
Либо пиши библиотеку на Delphi или на C (или используй какую-нибудь готовую) и подключай к проекту, либо пиши свой парсер.

[Vitaly1]

Очень жаль, что нельзя просто перевест.

[GSerg]

Даже если в MSDN не написано то, что мы хотим там видеть, то ничто не мешает нам сделать смелое предположение... И потом страшно обломаться! Но не в данном случае

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

Option Explicit
       
Private Sub Form_Load()
  Dim a As Object, link As Object
 
  Set a = CreateObject("WScript.Shell")
  Set link = a.createshortcut("c:\1.lnk")
  MsgBox link.targetpath
  Set link = Nothing
  Set a = Nothing
End Sub

За остальными методами сюда.

[Krasavica]

Vitaly1
Вот нашла для вас более удобный, найденный на одном из ресурсов по кодингу на VB, способ:

Dim myFSO As Object
Dim myFL, a, b, c, d, e, f
Set myFSO = CreateObject("WScript.Shell")
Set myFL = myFSO.CreateShortCut("Полный путь к ярлыку.lnk")
a = "Путь к родительскому объекту: " & myFL.TargetPath & vbCrLf
b = "Горячая клавиша: " & myFL.Hotkey & vbCrLf
c = "WindowStyle: " & myFL.WindowStyle & vbCrLf
d = "№Иконки в род. файле: " & myFL.IconLocation & vbCrLf
e = "Комментарий иконки: " & myFL.Description & vbCrLf
f = "Рабочая папка род. объ.: " & myFL.WorkingDirectory

Set myFSO = Nothing
Set myFL = Nothing
MsgBox a & b & c & d & e & f

[alibek]

Уважаемая Krasavica, а чем ваш способ отличается от того, что дал GSerg?

[Krasavica]

Уважаемая Krasavica, а чем ваш способ отличается от того, что дал GSerg?

Упс, прошу прощения, не посмотрела. Просто нашла и сразу выложила, сорри.

[Vitaly1]

GSerg -Спасибо! Наконец то нашлось!
Красавица - Ты все равно молодец, что нашла!

[XPraptor]

Господа!!! Как продолжение темы, у меня схожая проблеммка.
Есть ярлык, но не на исполняемый файл, а на сетевое подключение, стороннего производителя (Спутниковый VPN законнекчивает), так вот способом описанным здесь он не показывает ни какой статистики.
Может кто в курсе как его запустить программно это соединение.
Rasdial пробывал, не соединяет просто открывает окно где уже выбранно это соединение, но нужно кликнуть ОК для подтверждения, а использовать FindWindow не очень бы хотелось.
Помогите ПЛЗ!!! Заранее благодарен.

[Vitaly1]

не соединяет просто открывает окно где уже выбранно это соединение, но нужно кликнуть ОК для подтверждения

Но кликнуть то OK можно через SendKeys Chr(13), а выбрать кнопку OK через SendKeys "{TAB}" ?..

[XPraptor]

Vitaly1:
Елы палы Vitaly1!!! Столько звездочек. а такое предлогаешь ))