임펠리테리입니다.

이번에 올리는 자료는.. 제가 만든 컴퍼넌트인 ImpFindFile입니다. 이름 그대로
드라이브를 검색해서 주어진 파일네임 마스크와 일치하는 파일을 찾아줍니다.

TargetPath 프로퍼티에서 검색대상 패스를 지정하고, FileMask에서 검색할 파일이름의
파일네임 마스크를 지정하면 됩니다.Recursive 프로퍼티에서 true를 설정하면
하위 디렉토리를 모두 포함하여 검색합니다(디폴트). FileType 프로퍼티는 검색할
파일의 종류를 지정하는 set 형 값인데, TFileListBox의 FileType 프로퍼티와
동일하게 세팅하므로 TFileListBox의 헬프를 참고하시면 됩니다.

메소드는 두가지를 제공하는데, 검색을 시작하는 Execute() 메소드와, 검색중일때
검색을 강제로 중단시키는 Abort() 메소드입니다.

ImpFileFind는 세가지 이벤트를 제공합니다. OnFileFound는 마스크와 일치하는
파일이 발견되었을때 발생하는 이벤트인데, 인자로서 발견된 패스 문자열과
발견된 파일의 속성들이 저장된 TSearchRec 형 값입니다(TSearchRec형은 vcl
표준 타입이므로 헬프를 참고).
OnDirFound 이벤트는 어떤 이름이든 디렉토리가 발견되면 항상 발생하는
이벤트입니다. 인자로서 발견된 패스와 발견된 디렉토리의 이름이 넘어옵니다.
OnDirExit 이벤트는 특정 디렉토리에서 검색을 마치고 상위 디렉토리로 빠져나올때
발생하는 이벤트입니다.

원래는.. 올해 말쯤에 지금 구현했거나 구상중인 20여개의 컴퍼넌트들을 모두 구현한 다음
패키지 라이브러리로 ImpLib을 공개하려고 했습니다만, 필요하신 분이 있으셔서
이 컴퍼넌트만 먼저 올립니다. 뭐, 공개한 김에, 앞으로 틈나는대로 지금 만들어놓은
것들 중 쓸만한 것들만 골라서 하나씩 올리도록 하죠.

그럼 도움되시길...