Delphi7 打开 Windows 资源管理器转到文件夹并选中指定文件

var
  strFilePath: string;
begin
  ShellExecute(Handle, ‘open‘, PChar(‘explorer.exe‘), PChar(‘/select,‘ + strFilePath), nil, SW_NORMAL);
end;