delphi - 如何让我的控制台应用程序接收窗口消息？

Question

我需要在控制台应用程序中编写一个消息处理程序来处理接收到的消息。例如，我注册 WM_Test 并将其发送到我的控制台应用程序，如下所示:

var
  H: THandle;
begin
  H:= FindWindow('ConsoleWindowClass', nil);
  PostMessage(H, WM_Test, 0, 0);
end;

现在我希望当我在控制台应用程序中收到此消息时显示一个消息框。

我可以在控制台程序中使用 PeekMessage 或 AllocateHWND 吗？

我知道我可以使用 pipe 来完成这项工作，但我想知道是否可以使用窗口消息来做到这一点。

Answer 1

是的，你可以。使用 AllocateHWND 创建窗口句柄。然后，您可以设置各种属性(例如名称)，以便您可以使用 FindWindow 找到它。