http://docwiki.embarcadero.com/Libraries/Rio/en/System.IOUtils.TDirectory.GetFiles

 

 

 

uses
  System.Types,
  System.IOUtils;

 

 

procedure FileSearch(var Files: TStringList; Path: String; Mask: String = '*');
var
  S: String;
begin
  for S in TDirectory.GetFiles(Path, Mask, TSearchOption.soAllDirectories) do
    Files.Add(S);
end;

 

 

var
  slist : TStringList;
begin
  slist := TStringList.Create;
  FileSearch(slist, 'D:\Temp', '*.bat');
  ShowMessage(slist.Text);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

아쉽게도  '*.bat;*.exe' 이런식으로 다중검색은 안됩니다.

다중검색이 필요하신분은 아래의 링크를 참고 하세요.

 

 

 

 

 

 

 

 

 

 

 

 

https://stackoverflow.com/questions/12726756/how-to-pass-multiple-file-extensions-to-tdirectory-getfiles