如何在打开对话框中设置排序模式

Question

用户可以通过单击相应的列标题，在标准 Windows 打开对话框（“详细信息”视图模式）中按名称、日期或大小手动对文件进行排序。如何在应用程序中以编程方式在打开对话框（Delphi 中的 TOpenDialog 类）中设置排序模式，以便对话框以首选排序打开？

Answer 1

TFileOpenDialog (D2009) 在内部使用 Windows 的 IFileDialog 接口。该界面不提供任何设置文件排序的方法。但是它确实有 SetClientGuid 和 ClearClientData。 TFileOpenDialog 通过其 ClientGUID 属性使用它们。为您的特定实例设置 ClientGuid 指示窗口保留对话框的状态。 Windows 将记住最后打开的文件夹、文件的列出方式和排序方式。

因此，如果您只是想通过记住用户在打开文件时设置对话框的最后方式来适应用户，那么您所要做的就是设置 FileOpenDialog 的 ClientGUID。

要获取 GUID，请在代码编辑器中按 Ctrl-Shft-G。只需记住在将其粘贴到 ClientGUID 属性中时不要使用方括号。

Answer 2

GetOpenFileName() API 和 Vista IFileDialog 接口对此不支持。您可以按照本杂志文章中的演示破解该对话框。请注意，这篇文章已经过时了。而且像这样的黑客攻击很脆弱，他们很可能会在下一版本的 Windows 上停止工作。

Answer 3

您可以使用 DexExpress 的 TcxShellListView 之类的组件来推出自己的组件。它允许对文件进行排序。

Answer 4

在谷歌搜索主题后，我发现了一些“神奇数字”，并得出以下解决方案（TOpenDialog.OnFolderChange事件处理程序）：

procedure TDM.OpenDlgFolderChange(Sender: TObject);
const
  FCIDM_SHVIEW_LARGEICON = $7029;
  FCIDM_SHVIEW_SMALLICON = $702A;
  FCIDM_SHVIEW_LIST = $702B;
  FCIDM_SHVIEW_REPORT = $702C;
  FCIDM_SHVIEW_THUMBNAIL = $702D;
  FCIDM_SHVIEW_TILE = $702E;

  ByName = $7602;
  BySize = $7603;
  ByType = $7604;
  ByModified = $7605;
  ByAttributes = $7608;

var
  Handle: THandle;

begin
  Handle:= FindWindowEx(GetParent(OpenDlg.Handle), 0, 'SHELLDLL_DefView', nil);
  SendMessage(Handle, WM_COMMAND, FCIDM_SHVIEW_REPORT, 0);
  SendMessage(Handle, WM_COMMAND, ByAttributes, 0);
  SendMessage(Handle, WM_COMMAND, ByName, 0);
end;

第一条消息设置“详细信息”视图模式，第二条设置“按属性”排序，第三条“按名称”排序;需要两个不同的“排序”消息来保证最终排序是升序的。

上面的代码在Win XP上运行良好，但排序部分在Win 2000 SP4上不起作用；在 Win 7 上，“排序幻数”发生了变化，即“ByName = $7603”等。