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

Question

我正在对始终运行良好的现有代码（它是来自Jedi Windows Security Library 的Terminal Server unit）的问题进行故障排除。 经过一番调查，问题部分已归结为致电WTSOpenServer：

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

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

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

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

  hModule := LoadLibrary('wtsapi32.dll');
  if hModule = 0 then
    Exit;
  
  WTSOpenServer := GetProcAddress(hModule, 'WTSOpenServerW');
  if WTSOpenServer = nil then
    Exit;
  
  while true do
  begin
    asm
      push dword ptr pServerName;
      call dword ptr WTSOpenServer;
      mov [hServer], eax;
    end;
  
    hServer := nil;
  end;
  

• 省略对 WTSCloseServer 的调用

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

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

Answer 1

尝试在 FullDebugMode 下使用 FastMM 运行您的应用程序。它看起来更像是您/第 3 方库代码中的错误 - 可能的内存覆盖/缓冲区溢出（moslty like sth.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;