是否有获得当前运行程序文件名的函数？

Question

ExtractFileName(const FileName: string);举个例子：
ExtractFileName(Application.ExeName);//得到当前文件名。
其它相关函数还有
ExtractFilePath //路径
ExtractFileExt //扩展名
ExtractFileDrive //盘符

Answer 1

Application.ExeName为当前程序路径+文件名
要获取单一文件名：用ExtractFileName(Application.ExeName);
你还可以调用楼上兄的函数，去各个有用的值。
将application.exename代入即可。

Answer 2

获取程序自身所在路径和文件名 
      Delphi 在启动应用程序时与 C 语言一样会传递命令行参数给应用程序，第一个参数（索引号为零）表示应用程序本身的文件名（包括完整的路径），这个 String 参数由函数 ParamStr(0) 返回。
      顺便说一句，Delphi 提供了分析文件名的多个函数，如果你需要从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：ExtractFilePath(FileName:String)
该函数返回路径名，其结尾字符总是“\”ExtractFileDir(FileName:String)
该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。