Просмотр списка содержимого папки функцией FindFirst

void __fastcall
TForm1::Button1Click(TObject *Sender)
{
 AnsiString vasFilename,    //имя файла
            vasFileMask,    //маска файла
            vasCurDir;      //текущая директория
 //TSearchRec информация о файле
 TSearchRec tFileInfo;
 //Определяем каталог
 vasCurDir=GetCurrentDir();
 //Если корневая директория  удаляем слэш
 if(vasCurDir.Length() == 3)
  vasCurDir=vasCurDir.Delete(3,1);
 //Задаем маску
 vasFileMask="*.*";
 //Определяем имя файла
 vasFilename=vasCurDir+"\\"+vasFileMask;
 //Сюда выведем список файлов
 Memo1->Lines->Clear();
 if(FindFirst(vasFilename,faAnyFile,tFileInfo) == 0)
 {
  while(1)
  {
   //Исключаем корневую
   if((tFileInfo.Name != ".")&(tFileInfo.Name != ".."))
Memo1->Lines->Add(tFileInfo.Name);
   if(FindNext(tFileInfo) != 0)
    break;
 
  }
 }
}

if(FindFirst(vasFilename,faAnyFile,tFileInfo) == 0)
{
    do
    {
        // Исключаем корневую
        if((tFileInfo.Name != ".") && (tFileInfo.Name != "..")) // "." - ссылка на саму себя, ".." - родительская папка
            Memo1->Lines->Add(tFileInfo.Name); // Добавляем только если нет этих двух имен
    } while(FindNext(tFileInfo)); // Цикл продолжается, пока FindNext что-то находит. 
}

// как-то так, но я не тестировал(!):
 
#include <memory>
 
std::auto_ptr<TStringList> file( new TStringList( ) );
file->Add( "dir \"C:\\*.*\" /b /l >> \"C:\\files_list.txt\"" ); 
file->SaveToFile( "files_list.bat" );
ShellExecute( NULL, "open", "files_list.bat", NULL, NULL, SW_HIDE );
for(int i = 0; ++i < 20; Sleep( 500 ) ) 
if ( FileExists( "C:\\files_list.txt" ) ){ memo->Lines->LoadFromFile("C:\\files_list.txt"); break; }
DeleteFile( "files_list.bat" );
DeleteFile( "C:\\files_list.txt" );