Список файлов и папок в нужной директории
Как получить имена всех папок и файлов в данной директории?
var sr: TSearchRec; begin Memo1.Clear; if FindFirst('C:\*.*', faAnyFile, sr) = 0 then begin repeat Memo1.Lines.Add(sr.Name); until FindNext(sr) <> 0; FindClose(sr); end; end;
