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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.051104784011841 seconds