1-й способ

AnsiString FPath;
// .....
   if(!FPath.IsEmpty())
   {
       if (DirectoryExists(FPath))
       {
           TSearchRec sr;
           int iAttributes = 0;
           iAttributes =
iAttributes|faReadOnly|faHidden|faSysFile|faVolumeID|faArchive;

           if (FindFirst(FPath + "*.exe", iAttributes, sr) == 0)
           {
               do
               {
                   AnsiString file_name = FPath + sr.Name;

                   // ........................
               } while (FindNext(sr) == 0);
               FindClose(sr);
           }
       }
   }

Сергей Дворянцев

2-й способ

Вот на чистейшем API:


     WIN32_FIND_DATA WFD;
     // Ищем все файлы в каталоге БД
     HANDLE hFind = FindFirstFile (".", &WFD);
     while (FindNextFile (hFind, &WFD))
      // Сруктура WFD заполнена тем, чем нужно
     FindClose (hFind);

Vladimir Polyakov

Предыдущий вопрос   |    |   Следующий вопрос

источник            by jenyok