Delphi根据文件名获取路径

[baidu_36650636]

如何根据已知的文件名称获取它的路径。求大神解答！最好能给出一部分代码！不胜感激！

[日立奔腾浪潮微软松下联想]

var FileName: string; begin FileName := 'xxx.txt'; FileName := FileSearch(FileName, GetEnvironmentVariable('PATH')); if FileName <> '' then ... end;

[Frank6600]

呃，记得好像有个ExtractPath(Path)

[baidu_36650636]

谢谢1L的回复。已解决！