ExtractFilePath(Application.ExeName)返回当前程序可执行文件所在目录的全路径可以用showmessage(ExtractFilePath(Application.ExeName));看看返回什么内容