delphi 获得父目录�C指定级父目录

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

strpcopy 将字符串复制到字符数组中

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

Delphi 查询当前进程的内存使用大小

Delphi 2009 之 tcategorypanelgroup[4]: height

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi弹出信息框大全

Delphi webbrowser 加载html 将html代码转换成网页

Delphi form生成时的事件次序

Delphi 系统服务状态获取管理员用户名

Delphi 数组类型与数组指针的巧妙利用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获得父目录�C指定级父目录