//得到文件夹下所有的子文件夹名称
procedure GetDirList(const pPath: String; out lstPath :TStringList);
var
SearchRec:TSearchRec;
i:Integer;
TempPath:string;
begin
TempPath:=pPath+'/*.*';
i:=FindFirst(TempPath,faDirectory or faHidden or faReadOnly or faSysFile,SearchRec);
while i=0 do
begin
if (SearchRec.Attr and faDirectory) = faDirectory then
begin
if (SearchRec.Name<>'.')and(SearchRec.Name<>'..') then begin
lstPath.Add(pPath + '/' + SearchRec.Name);
GetDirList(pPath + '/' + SearchRec.Name, lstPath);
end;
end;
i:= FindNext(SearchRec);
end;
FindClose(SearchRec);
end;