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

Question

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

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

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

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

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

score 5 · Accepted Answer

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

1 回答 1