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

分类: IT文章 • 2023-12-25 19:10:43

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