delphi打开文件夹并定位到一个文件

用shellExecute 单元 打开一个文件夹，那如何打开一个文件夹并选中指定的文件呢。
下面一个函数就可以就可以做到：

filepath:='F:\123.txt';