Application.ExeName里面有包括路径的文件名
然后调用ExtracFilePath(具体的函数名可能记错了)得到路径