delphi - TSaveDialog 失败并禁用客户端视觉样式

Question

我正在尝试在 Delphi XE6 中使用 TSaveDialog:

if not SaveDialog1.Execute(0) then
   Exit;

调用立即返回false，而不显示任何对话框。我追踪到创建 shell Save Dialog COM 对象的行为:

function TCustomFileSaveDialog.CreateFileDialog: IFileDialog;
var
       LGuid: TGUID;
begin
  LGuid := CLSID_FileSaveDialog;

  CoCreateInstance(LGuid, nil, CLSCTX_INPROC_SERVER,
    StringToGUID(SID_IFileSaveDialog), Result);
end;

对 CoCreateInstance 的调用失败。我创建了最少的代码来重现该问题:

procedure TForm1.Button1Click(Sender: TObject);
const
   CLSID_FileSaveDialog: TGUID = '{C0B4E2F3-BA21-4773-8DBA-335EC946EB8B}';
begin
   CreateComObject(CLSID_FileSaveDialog);
end;

它抛出EOleSysError异常:

0x80040111: ClassFactory cannot supply requested class, ClassID: {C0B4E2F3-BA21-4773-8DBA-335EC946EB8B}

我的应用程序正在使用通用控件库的版本6 (6.0.7601.18837)，但我意识到只有当用户为我的应用程序禁用视觉样式时才会发生这种情况:

我们仍在使用公共(public)控件库的版本 6，只是 IsAppThemed返回 false。

Note: I know a lot of people mistakenly believe that:

• Visual Styles API only works if we have version 6 of Comctrl32.dll loaded
• If version 6 of Comctrl32.dll is loaded, then Visual Styles API will work
• If we're not using ComCtrl v6 then that means Visual Styles are disabled
• Visual Styles are disabled if we're using the old common controls library

暴力解决方案是设置全局 UseLatestCommonDialogs 为假。

但这非常糟糕，因为它仅适用于在应用程序中禁用视觉样式的人:

• 该对话框继续在没有视觉样式的操作系统(例如 Windows Server 2008 R2)上运行
• 在视觉样式关闭的情况下，对话框仍可继续工作(例如，在 Windows 7 中，视觉样式关闭)

这意味着我不能简单地使用 IsAppThemed，因为如果 IsThemeActive 为 false，它也会返回 false。

| IsThemeActive | IsAppThemed | Disable visual styles | Result    |
|---------------|-------------|-----------------------|-----------|
| True          | True        | Unchecked             | Works     |
| True          | False       | Checked               | Fails     |
| False         | False       | Unchecked             | Works     |
| False         | False       | Checked               | Fails     |

我想我要问的是如何检查禁用视觉样式兼容标志的状态。

我真正要问的是如何使 TSaveDialog 在 Delphi 中正常工作(而不暗示读取 compat 标志是解决方案的一部分)。

Answer 1

您肯定不想测试兼容性标志。如果您要进行测试，您想要测试该标志控制的内容。在这种情况下，是否使用主题。如果您要进行这样的测试，那么当满足以下条件时，您应该使用 Vista 样式对话框:

IsWindowsVistaOrGreater and Winapi.UxTheme.InitThemeLibrary and Winapi.UxTheme.UseThemes

否则您需要使用旧的 XP 样式对话框。您可以使用以下代码实现此目的:

UseLatestCommonDialogs := IsWindowsVistaOrGreater and Winapi.UxTheme.InitThemeLibrary 
  and Winapi.UxTheme.UseThemes;

这样做的问题是，当用户使用 Windows 经典主题运行时，您将禁用新样式对话框。我确信您不希望这样。

因此您可以采用基于功能的方法。即尝试使用新样式对话框，并在新样式对话框失败时使用旧样式对话框。因此，尝试创建一个IFileSaveDialog。根据是否成功分配UseLatestCommonDialogs。

<小时/>

另一方面，此兼容性设置旨在用于在启用主题时无法正常工作的应用程序。您的应用程序确实在主题下正常工作，我认为您说您的应用程序不支持特定的兼容模式是完全合理的。

您不应该支持兼容模式。例如，如果您停止支持 XP，那么您将不会支持 XP 兼容垫片。

经过深思熟虑，这就是我给你的建议。干脆什么也不做。如果您的用户询问您的应用程序以这种方式失败，请告诉他们您不支持该兼容模式。让您的应用程序支持兼容模式不是您的工作。