本文整理自网络,侵删。
function get_dir_parent(dir:string;n:integer):string; //n为几级父目录varst: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 getelementbyid().innerhtml与getelementbyid().value的区别
更多相关阅读请进入《Delphi》频道 >>