Application.ExeName获取当前执行程序的名字,如当前程序的名字为Yt.exe,若Yt.exe的绝对路径为F:\project\test\Yt.exe
ExtractFileDir(Application.ExeName)
ExtractFileDrive(Application.ExeName)
ExtractFileExt(Application.ExeName)
ExtractFileName(Application.ExeName)
ExtractFilePath (Application.ExeName)