请问各位大侠,如何用显示当前目录下的所有文件名?(50分)

请问各位大侠,如何用显示当前目录下的所有文件名?

使用OPEN　FILE的控件

放个FileListBox，在Win3.1面板上。
Mask为*.*
Directory为你要设的路径，就可以显示所以文件了。操作时就使用Items来取。

procedure FindAll(Path: String);
var
sr:TSearchRec;
fr:Integer;
begin
if length(path)<>3 then
Path:=path+'/*.*'
else
Path:= path+'*.*';
fr:=FindFirst(Path,faAnyFile,sr);
while fr=0 do
begin
if (sr.Attr=faDirectory)and(sr.Name<>'.')and(sr.Name<>'..') then
FindAll(sr.name+'/*.*') //递归查找下一个目录
else
begin
//处理文件
showmessage(sr.name);
end;
fr:=FindNext(sr);

end;
FindClose(sr);
end;

由于kingdeezj的答案我最需要,因此我给他最多分,谢谢大家!