Проверка наличия ярлыка

[str0b]

Приветствую!

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

Приём, имя заранее неизвестно. Известная только конкретная ссылка этого ярлыка.

каким способом можно это реализовать?
функции по работе с файлами, как я понял, тут особо не помогут

[p51x]

функции по работе с файлами, как я понял, тут особо не помогут

Не совсем... Можно конечно самому по спеке разобрать формат, но нафик надо.

Получаете все ярлыки, а енто файлы в опред. папках. А потом типа

    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); 
 
            // Add code here to check return value from MultiByteWideChar 
            // for 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)) 
                    {

И сравниваете пути...

[str0b]

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

[p51x]

ну. как я уже сказал, спека есть... открывайте папку и парсите все файлы ярлыков в ней