delphi:Application.ExeName

1.ExeName。

ExtractFileName(Application.ExeName)得到文件名：

ExtractFilePath(Application.ExeName)得到全路径，到最后一层目录，不包括应用程序。

ExtractFileExt(Application.ExeName)得到文件扩展名。