Edit1.Text:=ChangeFileExt(ExtractFileName(Application.ExeName),'') ; //获取到应用程序名后,将后缀名清空就可以啦。
转载于:https://www.cnblogs.com/China3S/p/3506594.html
Edit1.Text:=ChangeFileExt(ExtractFileName(Application.ExeName),'') ; //获取到应用程序名后,将后缀名清空就可以啦。
转载于:https://www.cnblogs.com/China3S/p/3506594.html