Delphi . Получить список папок (директорий) findfirst

procedure TForm1.Button1Click(Sender: TObject);
var
sr:TSearchRec;
begin
Form1.Memo1.Lines.Clear;
if FindFirst(ExtractFilePath(Application.ExeName)+'*',faDirectory,sr)=0 then
repeat
if sr.Attr=16 then if SR.Name<>'..' then if SR.Name<>'.'

 then Memo1.Lines.Add(SR.Name);
until Findnext(sr)<>0;
FindClose(sr);
end;

• Вперёд >