if FindFirst(SerachFile, faAnyFile, SearchRec) <> 0 then Exit;
repeat
SearchRec.Name;//全文件名
Delete(ItemInfo.Name, Length(ItemInfo.Name)-3, 4);//文件名
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
子目录
if FindFirst(SerachFile+ '*.*', faDirectory , SearchRec2) <> 0 then Exit;
if ( SearchRec2.Attr = faDirectory ) and ( SearchRec2.Name <> '.' )
and ( SearchRec2.Name <> '..' ) then
repeat
memo1.lines.add(SearchRec2.name);
until findnext(SearchRec2)<>0;
FindClose(SearchRec2);