strFileName := FcxLV[nIndex].Items.Item[FcxLV[nIndex].ItemIndex].SubItems.Strings[0]; //路径
ShellExecute(0, nil, PChar(‘explorer.exe‘),PChar(‘/e, ‘ + ‘/select,‘ + strFileName), nil, SW_NORMAL);
http://blog.csdn.net/yanjiaye520/article/details/6803795
delphi 打开文件夹并定位到一个文件（使用ShellExecute时加一个select参数，原来这么简单！）
原文：http://www.cnblogs.com/findumars/p/4999165.html