Получение списка файлов, на которые ссылаются ярлыки

#include <Classes.hpp>
#include <SysUtils.hpp>
#include <iostream>
#include <fstream>
 
using namespace std;
void write2file(TStringList *list, AnsiString name){
char mode[5] = "wt";
FILE* FFile = NULL;
FFile = fopen(name.c_str(), mode);
if (FFile == NULL)
        {
        return;
        }
for(int i = 0; i < list->Count; i++)
        {
        fputs(list->Strings[i].c_str(), FFile);
        }
fclose(FFile);
};
 
 
int main()
{
char T;
AnsiString Text = "";
TSearchRec sr;
TSearchRec sq;
AnsiString Dir ="c:\\tmp2\\";
FILE ffile;
void* b2;
if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0)
{
        do
        {
                if (FindFirst(Dir+sr.Name+"\\*.*", faAnyFile, sq) == 0)
                        {
                        do
                        {
                        if(!(sq.Attr & faDirectory))
                                {
                                TStringList *list = new TStringList();
                                fstream inout((Dir + sr.Name+"\\" + sq.Name).c_str());
                                inout.seekg(0);
                                list->Clear();
                                while(!inout.eof())
                                        {
                                        inout.get(T);
                                        if((T >= 0x21 && T <= 0xAF) ||(T >= 0xE0 && T <= 0xF5))
                                                {
                                                Text += AnsiString(T);
                                                }
                                        }
                                Text += "\n";
                                list->Add(Text);
                                write2file(list, "c:\\tmp\\2.txt");
                                delete list;
                                }
                        }
                        while (FindNext(sq) == 0);
                        }
                FindClose(sq);
        }
        while (FindNext(sr) == 0);
}
FindClose(sr);
return 0;
}

#include <windows.h>
#include <objidl.h>
#include <intshcut.h>
#include <shlobj.h>
#include <iostream>
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <string>
 
#pragma hdrstop
 
using namespace std;
 
string lnktopath(wstring lnk);
 
//---------------------------------------------------------------------------
 
 
void FileList (AnsiString Dir)
{
  TSearchRec sr;
  TStringList *list = new TStringList();
  if (FindFirst(Dir+"\\*.lnk", faAnyFile, sr) == 0) // ìîæíî çàäàòü ìàñêó äëÿ ôàéëîâ, íàïðèìåð: Dir+"\\*.txt"
     {
       do
         {
           if (!(sr.Attr & faDirectory)) // ýòî çíà÷èò ôàéëû
                list->Add(lnktopath(WideString(sr.Attr).c_bstr()).c_str());
         } while (FindNext(sr) == 0);
     }
  FindClose(sr);
  list->SaveToFile("file.txt");
  delete list;
}
#pragma argsused
int main(int argc, char* argv[])
{
    FileList("c:\\tmp")
    return 0;
}
//---------------------------------------------------------------------------
string lnktopath(wstring lnk)
{
    wchar_t link;
    IPersistFile* pPersistFile=NULL;
    IShellLink* pLink=NULL;
    TCHAR szPath[MAX_PATH]={0};
    try
    {
        if(FAILED(CoInitialize(NULL)))
            throw "CoInitialize";
        if(FAILED(CoCreateInstance(CLSID_ShellLink, NULL,
                                        CLSCTX_INPROC_SERVER,
                                        __uuidof(IShellLink), (void **) &pLink)))
            throw "CoCreateInstance";
        if(FAILED(pLink->QueryInterface(IID_IPersistFile,
            (void **)&pPersistFile)))
            throw "QueryInterface";
        if(FAILED(pPersistFile->Load(lnk.c_str(),0x0002)))
            throw "Load";
        if(FAILED(pLink->GetPath(szPath,MAX_PATH,NULL,SLGP_RAWPATH)))
            throw "GetPath";
        cout<<szPath<<endl;   }
    catch(TCHAR* szErr)
    {
        std::cout<<"error: "<<szErr<<std::endl;
    }
    if(pPersistFile)
        pPersistFile->Release();
    if(pLink)
        pLink->Release();
    CoUninitialize();
  
return string(szPath);
}