Delphi 從文件名中得到路徑名，可用下面的兩個函數，這兩個函數有一點點微小的差別：

         ExtractFilePath(FileName:String) 該函數返回路徑名，其結尾字符總是“\” 
         ExtractFileDir(FileName:String) 該函數同樣返回路徑名，但不包括結尾的字符“\”，除非返回的路徑是根目錄。　

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