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的md2、md4、md5类

Delphi readln 读取一行文本

Delphi 如何获取进程的全路径名

Delphi xe10 android安卓 移动端 messagedlg 用法

Delphi中判断是否是64位操作系统

Delphi中设置系统时间方法

Delphi获取本机mac地址方法

Delphi xe6 �c使用android的zlib

Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数

Delphi 采集功能代码getstr

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

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