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;

相关阅读 >>

Delphi webbrowser 查找对话框

Delphi idhttp post 普通提交乱码处理

Delphi检查程序内存泄露 checkmem.pas

Delphi程序常用的公共代码

Delphi webbrowser getelementbyid().innerhtml与getelementbyid().value的区别

Delphi判断线程是否正在运行

Delphi中使用 twebbrowser 编辑网页

Delphi图像匹配算法

Delphi编写iis过滤器实例

Delphi下遍历指定目录下指定类型文件的函数

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...