获取目录下所有文件名的代码

 
procedure searchfile(path:string);//注意,path后面要有''; 
var 
SearchRec:TSearchRec; 
found:integer; 
begin 
found:=FindFirst(path+'*.*',faAnyFile,SearchRec); 
while found=0 do 
begin 
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') 
and (SearchRec.Attr<>faDirectory) then 
ListBox1.Add(SearchRec.Name); 
found:=FindNext(SearchRec); 
end; 
FindClose(SearchRec); 
end; 

 
procedure SearchFile(path:string); 
var 
SearchRec:TSearchRec; 
found:integer; 
begin 
found:=FindFirst(path+'*.*',faAanyFile,SearchRec); 
while found=0 do 
begin 
if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and 
(SearchRec.Name=faDirectory) then 
SearchFile(SearchRec.Name+'') 
else 
LisBox1.Add(SearchRec.Name); 
found:=FindNext(SearchREc); 
end; 
FindClose(SearchRec); 
end;