ExtractFileName(const FileName:
string);举个例子:
ExtractFileName(Application.ExeName);//得到当前文件名。
其它相关函数还有
ExtractFilePath
//路径
ExtractFileExt //扩展名
ExtractFileDrive //盘符
//获取文件名不带后缀
ChangeFileExt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename,'');