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中判断是否是64位操作系统

Delphi2010中tresourcestream流使用

Delphi 怎样判断windows的dpi大小？

Delphi图表控件tchart使用faq

Delphi antiemupeb

Delphi 文件的操作：重命名、复制、移动、删除

Delphi firemonkey 绘图

Delphi 如何使用程序标识符检查程序是否已安装

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi tpath

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

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