获得指定级父目录 (2001年5月23日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 32 行

获得指定级父目录 (2001年5月23日) 

网友更新  分类:文件系统   作者:阎磊  推荐:yanlei   阅读次数:162  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
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;