delphi 获得父目录--指定级父目录

获得指定级父目录

关键字：父目录

function get_dir_parent(dir: string;n:integer): string;  //n为几级父目录 var st: string; i:integer; begin      st:=GetCurrentDir;      SetCurrentDir(dir);       for i:=1  to n  do       begin                ChDir('..');       end;      result:=GetCurrentDir;      SetCurrentDir(st); //恢复最初 end; 调用 procedure TForm1.Button1Click(Sender: TObject); begin      showmessage(get_dir_parent((ExtractFilePath(ParamStr(0))),1)); end;

 原作者：闫磊 发表时间：2003-8-9