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

  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; 

 

Copyright 2000-2015 Gogusoft Software Co.,Ltd
 
 
长春市勾股软件有限责任公司
销售电话:043188833276(长春) 0755-32978958 (深圳)
电子信箱:销售sales@gogusoft.com 技术 tech@gogusoft.com 招聘 job@gogusoft.com
公司地址:长春市绿园区长白公路7777号 邮编:130012