delphi - 在 Delphi 中调试 OutputDebugString 调用

Question

我的应用程序中有一些“流氓”OutputDebugString 调用会打印出“T”，但我不能只找到它。

是否有可能以某种方式在 OutputDebugString -function 上设置断点并查看它是从哪里调用的？

我正在使用德尔福 2009。

Answer 1

OutputDebugString您的项目中有多少次调用？您可以使用“在文件中查找”对话框来查找它们，如果它们不是太多，应该没有问题。

否则，您当然可以使用搜索和替换并将所有内容替换OutputDebugString(为raise Exception.Create(.

你也可以写一个函数

procedure OutputDebugString(const Str: string);
begin
  raise Exception.Create(Str);
end;

在项目中所有其他单元使用的单元中。如果仅Windows.pas在uses列表中声明了这个新单元，则将使用这个新函数而不是 Windows.pas 函数。

更新

是的，您可以在 Windows.pas 中放置断点。首先，在您的项目中，转到项目选项，然后在调试下，选择“使用调试 DCU”。然后您可以转到 Windows.pas 并在第 30769 行放置一个断点：

procedure OutputDebugString; external kernel32 name 'OutputDebugStringW';

Answer 2

• 运行您的应用程序。
• 把它暂停。
• 打开查看/调试窗口/模块窗口。
• 搜索 kernel32.dll。双击它。
• 搜索 OutputDebugStringA。双击它。
• CPU 窗口打开。在第一行设置断点。
• 搜索 OutputDebugStringW。双击它。
• CPU 窗口打开。在第一行设置断点。

完毕。

现在，从您的应用程序对 OutputDebugString 的任何调用都将在断点处中断。您还可以打开记录断点属性以记录调用堆栈。