Показать сообщение отдельно
  #2  
Старый 27.08.2009, 16:23
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Использовать FindFirst/FindNext/FindClose.

Код:
procedure ListFiles(APath  : String; var AList : TStringList);
var
  iFound : Integer;
  F : TSearchRec;
begin
  AList.Clear;
  iFound := FindFirst(APath + '*.*',faAnyFile,F);
  While iFound = 0 Do
    Begin
       If (F.Attr And faDirectory) = 0 Then AList.Add(F.Name);
       iFound := FindNext(F);
    End;
  FindClose(F);
end;
Ответить с цитированием