任何基于窗体的delphi程序都包含一个Application类型，它的类型是TApplication。
Application.ExeName 属性 能返回程序的全路径和文件名，这个属性在运行时是只读的。
Application.MainForm.caption := Application.ExeName;
ExtractFileName(Application.Exename); 可以得到文件名
ExtractFilepath();可以的得到文件全路径； 带‘\‘
ExtractFileDir();也是文件路径 后面不带‘\’
ExtractFileExt()可以得到文件扩展名；
TApplication.MainForm是TForm类型可以通过MainForm访问form的任何属性和方法，也可以访问到派生的窗体属性，只要通过强制转换
（MainForm as Tform1）.SongTitle := ‘1dss‘;
原文：http://www.cnblogs.com/sagfly/p/4412729.html