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

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