象Acdsee的浏览一个文件夹里的所有图片，怎么得到一个文件夹里所有文件名，如何储存，具体又是怎么实现的呢？(5分)

象Acdsee的浏览一个文件夹里的所有图片，怎么得到一个文件夹里所有文件名，
如何储存，具体又是怎么实现的呢？
今天才发了5分，忍不住又来问问，哪位大哥帮人不为分多的，谢谢了，谢谢。

老问题了，用FindFirst搜一下已答问题，有很多：

procedure TForm1.Button1Click(Sender: TObject);
Var
Found: integer;
SearchRec: TSearchRec;
FileName: string;
begin
Found := FindFirst('c:/*.*',faAnyFile,SearchRec);
while Found = 0 do
begin
Filename:=SearchRec.Name;
if SearchRec.Attr=faDirectory then FileName := FileName + '/';
ListBox1.Items.Add(FileName);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

filelistbox
路径为你要浏览的文件夹：filelistbox1.directory：=

多谢两位热心人