文件操作函数

ExpandFileName()   返回文件的全路径(含驱动器、路径)    
  ExtractFileExt()   从文件名中抽取扩展名    
  ExtractFileName()   从文件名中抽取不含路径的文件名    
  ExtractFilePath()   从文件名中抽取路径名    
  ExtractFileDir()   从文件名中抽取目录名    
  ExtractFileDrive()   从文件名中抽取驱动器名    
  ExpandUNCFileName()   返回含有网络驱动器的文件全路径    
  ExtractRelativePath()   从文件名中抽取相对路径信息

ExtractFilePath(Application.ExeName); 返回程序的当前路径