ChangeFileExt(ExtractFileName(Application.ExeName), '') 转载于:https://www.cnblogs.com/chengxin1982/archive/2009/01/05/1369916.html