怎样获得指定文件的所在路径？(100分)

有个文件，我想知道它所在的路径。程序怎么实现？

(特急）

extractfilePath(application.exename)

extractfilePath(指定的文件名)

如上所说。

来自：godzhou, 时间：2002-1-4 16:34:00, ID：834605
var path:string;
begin
path := ExtractFilePath(application.ExeName);
end;



来自：svw0506, 时间：2002-1-4 16:37:00, ID：834615
ExtractFileDir(paramStr(0))
末尾不带 /
ExtractFilePath(paramStr(0))
末尾带 /



来自：libin06, 时间：2002-1-23 4:59:00, ID：878109
ExtractFilePath(application.ExeName)得到的是程序文件的路径。
当前路径应该用procedure GetDir(Drive: Byte
var Directory: string)
Drive取值1-26代表A:-Z:,
Directory返回Drive的缺省路径（如C:/windows),
如果驱动器非法（A:中无盘或没有这个驱动器如Z:）或者Drive大于26或小于1
那么Directory返回缺省驱动器的缺省路径，即为当前路径。
一般将Drive取0即可。

哈好话都让他们说了
我说什么呢?
哪就给点分吧...
还有你想做什么程序?....
是不是很有意思,,
说点听听
也让咱长长见识

FPath := GetCurrentDir;
OpenDialog1.InitialDir := FPath;
ExtractFileDrive('<file name>') C:
ExtractFileDir('<file name>') C:/<path>
ExtractFilePath('<file name>') C:/<path>/
ExtractFileName('<file name>') fname.ext
ExtractFileExt('<file name>') .ext
ExtractFilePath(Application.ExeName) app path

>>怎样获得指定文件的所在路径
不是程序文件，要全盘搜索。

extractfilePath()
extractfiledir()
GetDir();