Функция FindNext( var F: TSearchRec ): Integer; -------------------------------------------------------------------------------- Модуль: SysUtils Описание Функция используется в цепочке FindFirst - FindNext - FindClose для повторного поиска файла. Первый поиск осуществляется с помощью функции FindFirst. Функция FindNext возвращает следующий найденный файл, удовлетворяющий условиям поиска определенным при вызове функции FindFirst. В случае успешного выполнения, функция FindNext возвращает 0, а в случае возникновения ошибки - код ошибки Windows. По окончанию поиска необходимо высвободить память с помощью функции FindClose. Пример Данный пример выводит список всех файлов в каталоге 'C:\WINDOWS\', имеющих атрибуты "Системный" и "Скрытый". var F: TSearchRec; begin if FindFirst('C:\WINDOWS\*.txt', faHidden+ faSysFile, F)=0 then begin Memo1.Lines.Add(F.Name); while FindNext(F) = 0 do Memo1.Lines.Add( F.Name); end; FindClose(F); end;
|