간단히 함수를 한번 만들어 보면,

function GetFileList(Mask : String); String;
var
   Found : Integer;
   SearchRec : TSearchRec;
begin
  Found := FindFirst(Mask, faAnyFile, SearchRec)
  while Found = 0 do
    begin
      result := SearchRec.Name + #13#10
      Found := FindNext(SearchRec);
    end;
  FindClose(SearchRec);
end;

같습니다.

사용할 때는

var
  StrList : TStringList;
begin
StrList := TStringLIst.Create;
StrLIst.Text := GetFileList('c:\*.*');
end;

라고 하면 되겠습니다.

결과는 StrList[0], StrList[1]... 에서 확인 할 수 있겠네요.

온라인 상으로 적는 것이라 확인을 못해 봤습니다.




                                         유수~