| Код | function FileInDirectory(Path: WideString; out List: TStrings): boolean;
var
SR: TSearchRec;
begin
result := false;
if FindFirst(Path + '*.dll', faAnyFile, SR) = 0 then
begin
List.Clear;
repeat
if (SR.Attr <> faDirectory) then
List.Add(Path+SR.Name);
until FindNext(SR) <> 0;
SysUtils.FindClose(SR);
result := true;
end;
end;
|
Указанная функция ищет файлы с маской '*.dll' в директории Path и выводит список найденныз в List. Чтобы вызвать диалог выбора папки подключи в uses модуль Filectrl и заюзай функцию SelectDirectory, например, так:
| Код | if SelectDirectory('Выберите папку, '', SelectDir, [sdShowShares, {sdNewUI,} sdValidateDir], fOptions) then
edPath.Text := SelectDir+'\';
|
|
) как мне перебрать все файлы с расширением *.docx в указанной папке. И вообще, как эту папку "визуально указать". Т.е. чтобы не текст в строку вбивать руками с адресом папки а типа через какой нибудь диалог. 
