Разименовывание ярлыков(*.lnk) Ссылка на файл или объект?

bool ResolveLink(TAbstractWindow *wnd,LPCTSTR path,settings &set) {
    bool result=false;
    IShellLink* lnk=NULL;
    if  (SUCCEEDED(
            CoCreateInstance(CLSID_ShellLink, NULL,
                CLSCTX_INPROC_SERVER, IID_IShellLink,(void**)&lnk
        ))) {
        IPersistFile* lfile=NULL;
        if  (SUCCEEDED(
                lnk->QueryInterface(IID_IPersistFile,(void**)&lfile)
            )) {
            if  (SUCCEEDED(
                    lfile->Load(path,STGM_READ)
                )) {
                if  (SUCCEEDED(
                        lnk->Resolve(wnd->Handle(), SLR_ANY_MATCH)
                    )) {
                    TCHAR tmp[MAX_PATH];
                    int len=0;
                    LPITEMIDLIST lpiil=NULL;
                    if  (SUCCEEDED(
                            lnk->GetIDList(&lpiil)
                        )) {
                        if (SHGetPathFromIDList(lpiil, tmp)) {
                            if(len=lstrlen(tmp)) {
                                set.command=new TCHAR[len+1];
                                lstrcpy(set.command,tmp);
                            }
                            /*
                            .....
                            */
                            result=true;
                        }
                    }
                }
            }
            lfile->Release();
        }
        lnk->Release();
    }
    return result;
}