如何使用例如设置文件夹显示名称“SHGetSetFolderCustomSettings()”？

Question

看起来SHGetSetFolderCustomSettings 允许您设置图标、工具提示、Web 视图模板等，但我找不到如何在关联的desktop.ini 中设置LocalizedResourceName（请参阅SHFOLDERCUSTOMSETTINGS structure）。

因此，我目前正在直接写信给desktop.ini，但这有一个警告： 即使您告诉它使用 F5 或 Ctrl+R 刷新，Explorer 也不会正确更新其视图。

这就是我想写的，使用 Python（虽然非 Python 代码应该问题不大）：

[.ShellClassInfo]
LocalizedResourceName=My Folder Name
InfoTip=A customized folder

任何想法如何设置文件夹名称并让资源管理器正确更新它？

我尝试过使用SHChangeNotify(SHCNE_ALLEVENTS, SHCNF_PATH, path, path)，但这似乎并没有更新显示名称（还有SHCNE_RENAMEFOLDER、SHCNE_RENAMEITEM、SHCNE_UPDATEDIR、SHCNE_UPDATEITEM）。

（最糟糕的方法可能是编辑desktop.ini 两次...一次直接，然后使用该 API 函数...而不是我想要的）。

关于原因（我猜你们中至少有人会问）：

我使用 GUID 作为文件夹名称来存储项目数据。

但是，用户应该会看到一个友好的名称，该名称也可用于排序（甚至可以在不影响内部名称的情况下对其进行编辑）。 此外，低级文件系统布局应该向后兼容旧版本的软件。

Answer 1

使用 IShellFolder.SetNameOf 的简单调用：

procedure UpdateLocalizedResourceName(const ADirectory, ANewResourceName: UnicodeString);
var
  Desktop: IShellFolder;
  Eaten: DWORD;
  DirIDList1, Child, NewChild: PItemIDList;
  Attr: DWORD;
  Folder: IShellFolder;
begin
  OleCheck(SHGetDesktopFolder(Desktop));
  try
    Attr := 0;
    OleCheck(Desktop.ParseDisplayName(0, nil, PWideChar(ADirectory), Eaten, DirIDList1, Attr));
    try
      OleCheck(SHBindToParent(DirIDList1, IShellFolder, Pointer(Folder), Child));
      try
        OleCheck(Folder.SetNameOf(0, Child, PWideChar(ANewResourceName), SHGDN_INFOLDER, NewChild));
        CoTaskMemFree(NewChild);
      finally
        Folder := nil;
      end;
    finally
      CoTaskMemFree(DirIDList1);
    end;
  finally
    Desktop := nil;
  end;
end;

更新

重要通知！在调用 UpdateLocalizedResourceName 之前，localizedResourceName 参数必须存在于 desktop.ini 中。否则 SetNameOf 函数失败。