function ListFiles(path: string): TStringList; var SearchRec: TSearchRec; found: integer; begin result := TStringList.Create; found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec); if not DirectoryExists(path) then begin Result.Clear; exit; en
function get_dir_parent(dir:string;n:integer):string; //n为几级父目录varst:string;i:integer;begin st:=GetCurrentDir; SetCurrentDir(dir); for i:=1 to n do begin ChDir('..'); end; result:=GetCurrentDir; SetCurrentDir(st);//恢