간단하게 파일 검색하기

SysUtils를 추가합니다.

uses
  SysUtils;

파일 리스트 불러오기

var
  TempList : TSearchRec;
  sPath : string;
begin
  sPath := '불러올 폴더 경로';

  if FindFirst(sPath + '\찾을 파일명', faAnyFile, TempList) = 0 then
  //ex) 찾을 파일명
  //    * -> 모든 파일
  //    *.exe -> 확장자가 exe인 것만 찾기
  //    TeakHyun.* -> 파일명이 TeakHyun인 것 다 찾기 등..
  //faAnyFile, faDirectory 등.. 
  begin
    repeat
      if not (TempList.Name = '.') and not (TempList.Name = '..') then  //상위루트는 제외
      begin
        ShowMessage(TempList.Name);
      end;
    until FindNext(TempList) <> 0;
  end;

  FindClose(TempList);
end;