转帖：delphi 获得文件路径函数 ExtractFilePath

通过tapplication.exename特性可以获取当前进程的进程和文件名，要从中提取信息，
可以调用下列函数：（假设路径和名称是c:\delphi\bin\project.exe）:  
  extractfiledir()     c:\delphi\bin  
  extractfiledrive()   c:  
  extractfileext()     .exe  
  extractfilename()    project.exe  
  extractfilepath()    c:\delphi\bin\
  extractfiledir()     c:\delphi\bin
 
用法示例：  ExtractFilePath(Application.ExeName);