Posted 2020-11-13 tc310

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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;

以上是关于delphi 获得父目录–指定级父目录的主要内容，如果未能解决你的问题，请参考以下文章