如何通过Delphi调用ShellExecute打开资源管理器时强制目录以缩略图展示

结论 #

你当前使用的ShellExecute直接打开文件夹路径的方式，不支持通过简单传参强制资源管理器使用缩略图视图。Windows资源管理器没有公开的命令行参数可以直接指定视图模式，视图模式默认由用户全局配置、目标文件夹的类型模板决定。

可行实现方案 #

以下两种方案都可以在Delphi中实现需求：

方案1：通过COM接口控制打开的资源管理器窗口（无系统配置修改，推荐）

该方案通过IShellWindows、IFolderView2等Shell COM接口，在打开资源管理器后主动切换视图模式为缩略图，不需要修改用户系统的任何配置，代码示例如下：

uses
  Winapi.ShellAPI, Winapi.ShlObj, Winapi.ActiveX, System.SysUtils;

const
  FVM_THUMBNAIL = 5; // 缩略图视图枚举值，Windows全版本对应值一致

procedure ShellOpenWithThumbnailView(const FolderPath: string);
var
  SW: IShellWindows;
  i: Integer;
  FolderView: IFolderView2;
  WebBrowser2: IWebBrowser2;
  hr: HRESULT;
  TargetPath: string;
begin
  // 先打开目标文件夹
  ShellExecute(0, 'open', PChar(FolderPath), nil, nil, SW_SHOWNORMAL);
  Sleep(500); // 等待资源管理器窗口初始化，可替换为窗口枚举逻辑避免硬编码等待

  // 初始化COM环境
  CoInitialize(nil);
  try
    if Succeeded(CoCreateInstance(CLSID_ShellWindows, nil, CLSCTX_LOCAL_SERVER, IID_IShellWindows, SW)) then
    begin
      for i := 0 to SW.Count - 1 do
      begin
        if Succeeded(SW.Item(i).QueryInterface(IID_IWebBrowser2, WebBrowser2)) then
        begin
          // 转换资源管理器路径为本地路径做匹配
          TargetPath := StringReplace(WebBrowser2.LocationURL, 'file:///', '', [rfIgnoreCase]);
          TargetPath := StringReplace(TargetPath, '/', '\', [rfReplaceAll]);
          if SameText(TargetPath, ExcludeTrailingPathDelimiter(FolderPath)) then
          begin
            // 切换到缩略图视图
            if Succeeded(WebBrowser2.QueryInterface(IID_IFolderView2, FolderView)) then
            begin
              FolderView.SetCurrentViewMode(FVM_THUMBNAIL);
              Break;
            end;
          end;
        end;
      end;
    end;
  finally
    CoUninitialize;
  end;
end;

注：示例已内置路径匹配逻辑，可直接调用ShellOpenWithThumbnailView('C:\MyDirectory\')实现需求。

方案2：修改目标文件夹的视图模板（适合固定该文件夹视图的场景）

如果需要该文件夹所有时候打开都是缩略图模式，可以通过修改文件夹的desktop.ini配置，将文件夹类型设置为图片模板，系统默认会用缩略图视图打开该类文件夹：

1. 给目标文件夹添加系统属性：attrib +s "C:\MyDirectory\"
2. 在文件夹内创建desktop.ini文件，写入如下内容：

[ViewState]
Mode=
Vid=
FolderType=Pictures

该方案会修改目标文件夹的系统配置，所有用户打开该文件夹都会默认用图片类模板的视图模式。

内容的提问来源于stack exchange，提问作者user1580348