delphi下如何获得不带扩展名的文件名?

Edit1.Text:=ChangeFileExt(ExtractFileName(Application.ExeName),\'\') ; //获取到应用程序名后,将后缀名清空就可以啦。