在Delphi中调试OutputDebugString调用

Question

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

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

我正在使用Delphi 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的任何调用都将在断点处中断。您还可以打开登录断点属性以记录调用堆栈。