Windows 7 上 WTSOpenServer 发生奇怪崩溃（仅在 Delphi 2009/2010 中）

Question

我正在解决始终工作正常的现有代码的问题（它是 来自 Jedi Windows 安全库的终端服务器单元） 。 经过一番调查后，问题部分已归结为对 WTSOpenServer：

  while true do
  begin
      hServer := WTSOpenServer(PChar('server'));
      WTSCloseServer(hServer);
      hServer := 0;
  end;

在随机（但很小）次数或运行后，我们会遇到应用程序完全崩溃的情况，这使得调试变得困难。 以下是我已经尝试过的事情：

• WTSOpenServer 不会写入 pServername 参数（如 CreateProcessW）（事实上，我检查了反汇编并生成了副本）
• 当传递 nil 作为参数时，代码运行良好（因此可以与本地计算机一起使用） 。
• 当使用远程服务器、本地主机甚至虚拟的 pServerName 时，结果总是崩溃（在 Vista 及更高版本上，即使无效的服务器名也会根据文档返回有效的句柄）。
• 使用 Delphi 2009 和 2010 进行测试
• 相同的代码在 Visual Studio (c++) 中运行良好。

• 检查了 Visual Studio 中的反汇编，并从 Delphi 中的 asm 中调用了 WTSOpenServer（并将 Handle 类型更改为 C 中的指针）：

  hModule := LoadLibrary('wtsapi32.dll');
  如果 hModule = 0 那么
    出口;
  
  WTSOpenServer := GetProcAddress(hModule, 'WTSOpenServerW');
  如果 WTSOpenServer = nil 那么
    出口;
  
  虽然是真的
  开始
    汇编
      推送 dword ptr pServerName；
      调用 dword ptr WTSOpenServer；
      mov [hServer], eax;
    结尾;
  
    hServer := nil;
  结尾;
  

• 省略对 WTSCloseServer 的调用

• 调用 在 Windows 7 的 x64 和 x86 版本上测试代码
• 使用外部调试器而不是 Delphi 调试器（在这种情况下似乎运行良好，所以我猜测这是某种计时/线程/死锁问题）
• 添加了 AddVectoredExceptionHandler 然后我看到 EXCEPTION_ACCESS_VIOLATION 但是堆栈似乎已损坏，EIP 为 1，因此无法确定它发生在哪里。

此时我不知道如何进一步解决此问题或找到解释。

Answer 1

尝试在 FullDebugMode 下使用 FastMM 运行您的应用程序。它看起来更像是您/第 3 方库代码中的错误 - 可能的内存覆盖/缓冲区溢出（大多数情况下，GetMem 对于 UnicodeString/String 类似操作来说太小，并且它“有效”，但迟早会崩溃/AV） 。

在将大型应用程序迁移到 D2009 时，我遇到过几次类似的情况，并且在大多数情况下，这是由于假设 Char=1 字节。有时会发生非常奇怪的事情，但 FullDebugMode 总是有帮助。例外是 CreateProcessW，但它是已知/记录的行为。

使用 FullDebugMode，如果应用程序覆盖内存，那么当您释放它时，FastMM 会在分配内存的位置提供异常，因此您可以轻松地追踪此错误。它在分配的开始和结束时添加一些字节，因此可以知道它是否被覆盖。

我无法用新的/空的 VCL 项目重现它，你可以自己尝试（这个循环运行大约 5 分钟）：

uses JwaWtsApi32;
procedure TForm7.FormCreate(Sender: TObject);
var
  hServer: DWORD;
begin
  while true do
  begin
      hServer := WTSOpenServer(PChar('server'));
      WTSCloseServer(hServer);
      hServer := 0;
  end;
end;