TOpenDialog 挂起程序（但不是在调试期间）

Question

• 我使用的是 Delphi 7。
• TOpenDialog.Execute 挂起程序，如果从独立启动 EXE。
• 从 Delphi 7 执行项目时，它不会挂起。
• 我添加什么都没关系，即使是一个带有按钮的空白项目 上面有 OpenDialog1.Execute 将导致单击时挂起。
• 此问题是最近才出现的。 不久前编译的项目没有问题。
• 我使用了相同的 Windows 安装（Windows 7 Ultimate 64bit）和 多年来一直使用相同的 Delphi 7。
• 不久前编译的项目没有挂起。
• 在 Delphi 10 中编译的来自 Delphi 7 的项目也会导致挂起。
• 在 CLX 应用程序中不会发生这种情况，无论是调试还是独立。

以下是似乎导致挂起的示例：

procedure TForm1.Button1Click(Sender: TObject);
begin
 OpenDialog1.Execute;
end;

更新： 原因可能是“InitialDir”是桌面。例如，如果设置为 c:\，则不会发生。

Answer 1

要查看的另一件事是项目 -> 选项 -> 编译器消息（是否有任何未选中的？）如果是这样，则这些异常开始被 IDE 的内置调试器忽略。检查它们并运行，然后您可能会看到导致挂起的原因。

我唯一能够产生这种情况的是当我有一个缓慢或不存在的网络共享时......在 IDE 调试器期间它超时并继续运行，但是，独立它最终会超时，但是，很多更长。

（很可能是在您的项目 -> 选项屏幕中）。因为我做了大多数人从未做过的奇怪事情:-)（例如 sshfs 会导致这种情况）。

Answer 2

如果我想访问网络共享，我曾经在某些应用程序中遇到过这个问题。通过包含编译器开关

{$SetPEOptFlags IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE}

我可以解决这个问题。另见this blogpost。但请注意，此开关有一些 restrictions。

作为Microsoft mentions，“Windows 2000 及更高版本、Windows 和控制台应用程序默认启用 /TSAWARE 选项”，这意味着每个 .NET 应用程序都默认打开此开关。