如何使我的控制台应用程序接收窗口消息?

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

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

我可以在控制台程序中使用peek消息或AllocateHWND吗?

我知道我可以用 pipe ,但我想知道我是否可以使用窗口消息来完成此操作。