“没有任何理由在Delphi上没有安装上下文相关帮助”，“user32.dll”和“uxtheme.dll”AV错误

Question

这是非常奇怪的家伙。我写了一个简单的应用程序当我通过移动鼠标快速执行命令（事件是鼠标移动）时，如果我在没有调试器的情况下运行我的应用程序，我会遇到以下错误（如果我这样做，应用程序只是挂起而没有任何反应）： 1-“没有安装上下文相关的帮助”，但我没有在我的应用程序中使用过帮助。 2-“uxtheme.dll”和“user32.dll”库中的访问冲突错误！

好吧，我认为当Windows消息一个接一个地快速发送时会发生这些错误。我刚才在一个巨大的应用程序中遇到了这些错误。在这两个应用程序中我使用了SendMessage命令，但是我做错了什么？我现在正在使用Delphi 2010

有没有人经历过这个？！

编辑： 问题是因为我在计时器的代码中使用了GetForegroundWindow函数。但我必须使用它。我该怎么办？

这是我的代码的一部分：http://www.mediafire.com/?davlsokf8zqq2gs

Answer 1

从第一眼看，它看起来像一些内存损坏或不正确的内存访问。也许您正在向PChars发送您的消息，并且在迁移到Delphi 2010时，您没有正确且完全更新您的代码。所以要做的第一件事是检查你使用的所有地方（d）PChar，PAnsiChar和PWideChar。

Answer 2

我发现了问题。我的错！ 当Tmessage无效时，ApProgressBar正在调用Paint！ 感谢所有关心这个问题的人。