获取应用程序路径

AnsiString   path;     //   应用程序路径  
  path=ExtractFilePath(Application->ExeName);