当前位置学海荡舟 -> 电脑乐园 -> 程序设计 -> 编程技巧
 DELPHI 技巧 - 获取程序自身路径
Delphi 技巧
使窗体部分可见
选择和调整组件
改造HINT的输出
 

 


 


  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;