如何在程序中得到外部文件的路径？(100分)

&nbsp; 各位高手，请问用什么函数或办法才能获得外部文件的路径（如win.ini文件的路径是c:/windows/win.ini）<br><br>请指教

"外部文件"作何解？

要看是什末文件，如win.ini就可通过读取注册表得到windows所在的目录，win.ini所在的<br>路径自然就知道了。如是很普通的文件，我也不知道有什末好的方法。能不能说的详细一<br>点。

通过一个for 循环 遍历每一个驱动器<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp;i ,rtn:integer;<br>&nbsp;rootPN:string;<br>begin<br><br>&nbsp; for i:=65 to 90 do<br>&nbsp; &nbsp;begin<br>&nbsp; &nbsp; rootPN:=char(i)+':/';<br>&nbsp; &nbsp; rtn:=getdrivetype(pchar(rootPN));<br>&nbsp; &nbsp;end<br>end;<br>根据返回值决定是否搜索该驱动器，对于drive的搜索采用递归算法，<br>即根目录-〉根目录下第一个子目录-〉根目录下第一个子目录下第一<br>个子目录.....至于所用的函数，像findfirst,findnext,findclose,<br>findfile,filesearch,有很多，获取dirname用directoryName(),还有<br>关于目录中'.'和'..'的含义要搞清楚，这些随机帮助里有说明。至于<br>具体算法就看你的基本功了，注意出入口。希望有人能找到可查子目录<br>中文件的函数或部件。<br>&nbsp; 另： &nbsp;EXtractFilepath()及 EXtractFileXXX可以用一用。

uses Shellapi;<br><br>getsystempath

ExtractFilePath(paramstr(0))

接受答案了.