获得程序完整路径

在SysUtils单元中有两个类似的函数，两个函数有以下的区别:

ExtractFilePath 传回值的最後一个字元是反斜杠“\”。

ExtractFileDir(Application.Exename);                 // 返回值为 C:\1

ExtractFilePath(Application.Exename);               // 返回值为 C:\1\

相同点： 如果执行文件在根目录下(如：C:\1.exe)的话, 两者的传回值相同

=====================================================

ParamStr(0);                                                            //自己全路径C:\1.exe,可用于控制台

ExpandFileName(ParamStr(0));                             　　//获取本程序的完整路径 C:\1.exe

ExtractFileDir(ParamStr(0));                                      //获取本程序的路径C:\

Application.Exename;                                               //获取本程序的完整路径C:\1.exe

ExtractFilename(Application.Exename);                      //获得文件名1.exe