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

#include <SysUtils.hpp>
 
void FileList (AnsiString Dir)
{
  TSearchRec sr;
  if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0) // можно задать маску для файлов, например: Dir+"\\*.txt" 
     {
       do
         {
           if (!(sr.Attr & faDirectory)) // это значит файлы
                Memo1->Lines->Add(sr.Name.c_str()); // выводим в TMemo
           еlse 
           {
               // выводим в мемо имена папок
               // если надо все прошерстить с папками и подпапками 
               // здесь можно вызвать рекурсивно 
               FileList (sr.Name);
           }
         } while (FindNext(sr) == 0);
     }
  FindClose(sr);
}

#include <SysUtils.hpp>
 
void FileList (AnsiString Dir)
{
  TSearchRec sr;
  if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0) // можно задать маску для файлов, например: Dir+"\\*.txt" 
     {
       do
         {
           if (!(sr.Attr & faDirectory)) // это значит файлы
           {
                      TStringList *list = new TStringList();
                      list->LoadFromFile(Dir+"\\" + sr.Name);
                      // дальше парсим этот list на предмет нужной строки, вычленяем ее передаем в другой TStringList, который после заполнения можно записать в файл SaveToFile
                      delete list;
         } while (FindNext(sr) == 0);
     }
  FindClose(sr);
}

#include <Classes.hpp>
#include <SysUtils.hpp>
 
void FileList (AnsiString Dir)
{
TSearchRec sr;
Dir="C:\\gs\\gp";
if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0) // ìîæíî çàäàòü ìàñêó äëÿ ôàéëîâ, íàïðèìåð: Dir+"\\*.txt"
        {
        do
                {
                if (!(sr.Attr & faDirectory)) // ýòî çíà÷èò ôàéëû
                        {
                        TStringList *list = new TStringList();
                        list->LoadFromFile(Dir+"\\" + sr.Name);
                        // äàëüøå ïàðñèì ýòîò list íà ïðåäìåò íóæíîé ñòðîêè, âû÷ëåíÿåì åå ïåðåäàåì â äðóãîé TStringList, êîòîðûé ïîñëå çàïîëíåíèÿ ìîæíî çàïèñàòü â ôàéë SaveToFile
                        delete list;
                        }
                }
        while (FindNext(sr) == 0);
        }
FindClose(sr);
}

#include <Classes.hpp>
#include <SysUtils.hpp>
 
void FileList ()
{
TSearchRec sr;
AnsiString Dir ="C:\\gs\\gp";
if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0) 
        {
        do
                {
                if (!(sr.Attr & faDirectory))                         {
                        TStringList *list = new TStringList();
                        list->LoadFromFile(Dir+"\\" + sr.Name);
                        delete list;
                        }
                }
        while (FindNext(sr) == 0);
        }
FindClose(sr);
}

int main(){
FileList ();
return 0;
}

  if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0) // можно задать маску для файлов, например: Dir+"\\*.txt" 
     {
       do
         {
           if (!(sr.Attr & faDirectory)) // это значит файлы

TStringList *list = new TStringList();
list->LoadFromFile(Dir+"\\" + sr.Name);

#include <Classes.hpp>
#include <SysUtils.hpp>
#include <stdio.h>
#include <string.h>
#include <conio.h>
 
void main(){
//FILE *pF1 = fopen("C:\\tmp\\1.txt", "rb");
FILE *pF2 = fopen("C:\\tmp\2.txt", "wt");
if (1)//за это не ругать так БУДЕТ надо
{
TSearchRec sr;
AnsiString Dir ="C:\\gs\\gp";
if (FindFirst(Dir+"\\*.*", faAnyFile, sr) == 0)
        {
        do
                {
                if (!(sr.Attr & faDirectory))                         {
                        TStringList *list = new TStringList();
                        list->LoadFromFile(Dir+"\\" + sr.Name);
                        fwrite(list, sizeof(list), 1, pF2);
                        delete list;
                        }
                }
        while (FindNext(sr) == 0);
        }
FindClose(sr);
}
}

TStringList *list = new TStringList();
list->LoadFromFile(Dir+"\\" + sr.Name);
list->SaveToFile("C:\\tmp\2.txt");