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;

不错

实用知识！

也可以这样：

Extractfilepath(paramstr(0))

Extractfiledir(paramstr(0))

GetModuleHandle

GetModuleFileName 两个api函数可以获得dll,exe的文件路径

VCL 中的实现：application.exename 调用 paramstr(0)

paramstr(0) 调用函数GetModuleFileName(最快的方法)

[此贴子已经被作者于2004-07-27 13:19:18编辑过]

请问怎么用呀，不好意思我是新手，

比如说看QQ.exe的路径

我ShowMessage(ExtractFileDir('QQ.exe'));

怎么不行啊？

to zjy28

是获取 程序“自身路径”

不是 任意输入一个程序名 就能返回程序的路径