Delphi获得当前运行文件名

ExtractFileName(const  FileName: 
string);举个例子：

ExtractFileName(Application.ExeName);//得到当前文件名。
其它相关函数还有
ExtractFilePath
//路径
ExtractFileExt  //扩展名
ExtractFileDrive  //盘符

 

 

//获取文件名不带后缀

ChangeFileExt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename,'');