DELPHI 技巧 - 获取程序自身路径

Delphi 在启动应用程序时与 C 语言一样会传递命令行参数给应用程序，第一个参数（索引号为零）表示应用程序本身的文件名（包括完整的路径），这个 String 参数由函数 ParamStr(0) 返回。

　　顺便说一句，Delphi 提供了分析文件名的多个函数，如果你需要从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：

　　Extra

Delphi 在启动应用程序时与 C 语言一样会传递命令行参数给应用程序，第一个参数（索引号为零）表示应用程序本身的文件名（包括完整的路径），这个 String 参数由函数 ParamStr(0) 返回。

　　顺便说一句，Delphi 提供了分析文件名的多个函数，如果你需要从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：

　　ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“/”

　　ExtractFileDir(FileName:String) 该函数同样返回路径名，但不包括结尾的字符“/”，除非返回的路径是根目录。　

　　样例代码：

　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:/temp
　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:/temp/ 　　
　　end;