function searchpath(path:string):string;
var
sr:TSearchRec;
ext:string;
begin
if path[length(path)]<>'\' then
path:=path+'\';
if FindFirst(path+'*.*', faAnyFile,sr)<>0 then
exit;
if (sr.Attr and faDirectory) <> 0 then //这里的sr.Attr指的是什么,
begin
if (sr.Name<>'.') and (sr.Name<>'..') then //这里的sr.Name为什么判断是不是.和..
searchpath(path+sr.Name);
end
else
begin
// 此处加上判断文件后缀的代码
ext := lowercase(extractfileext( sr.Name ));
if (ext='.doc') then
begin
path:=path+sr.Name
end;
end;
while findnext(sr)=0 do
begin
if (sr.Attr and faDirectory) <> 0 then
begin
if (sr.Name<>'.') and (sr.Name<>'..') then
searchpath(path+sr.Name);
end
else
begin
// 此处加上判断文件后缀的代码
ext := lowercase(extractfileext( sr.Name ));
if (ext='.doc') then
begin
path:=path+sr.Name;
break;
end;
end;

end;
findclose(sr);
result:=path;
end;
这段程序看的不是很明白.谁都给讲解一下.功能大概知道什么意思.但里面一些细节没看明白.