delphi 浏览指定路径文件并选中

uses Winapi.ShellAPI;

procedure OpenDirAndSelectFile(fn: string);

begin

  ShellExecute(Application.Handle, 'open', 'Explorer.exe', Pchar('/n,/select,' + fn), nil, 1);

end;