Delphi 从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：

         ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“\” 
         ExtractFileDir(FileName:String) 该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。　

样例代码：
 
　    ShowMessage(ExtractFileDir(Application.Exename));   // 如: c:\temp
　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\