在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将在断点处中断.您还可以打开登录断点属性以记录调用堆栈.