獲得指定級父目錄 (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;