delphi编程获取相对路径方法,外加几个小提取函数