[求助]如何得到某文件夹下面的所有文件名(30分)

各位大哥大姐，现在已经知道文件夹：d:/abc，要怎么样才能得到abc文件夹下面的所有文件名呢？麻烦给出示例代码。小弟感激不尽！

用FindFirst ,FindNext,FindClose

你的意思是遍历整个文件夹，是吗？除了遍历，还有其它办法吗？

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec: TSearchRec;
StrList: TStringList;
Temp: Integer;
begin
StrList:= TStringList.Create;
if FindFirst('D:/abc/*.*',faAnyFile,SearchRec) = 0 then
StrList.Add(SearchRec.Name);
while FindNext(SearchRec) = 0 do
StrList.Add(SearchRec.Name);
FindClose(SearchRec);
for Temp:= 0 to StrList.Count - 1 do
SHowMessage(StrList.Strings[Temp]);
StrList.Free;
end;

呵呵，谢谢你了啊。分数不多，全部送上了。[]