delphi - コンソール アプリケーションにウィンドウ メッセージを受信させるにはどうすればよいですか?

Question

コンソール アプリケーションで、受信したメッセージを処理するメッセージ ハンドラーを作成する必要があります。たとえば、WM_Test を登録し、次のようにコンソール アプリケーションに送信します。

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

ここで、コンソール アプリケーションでこのメッセージを受信したときに、メッセージ ボックスを表示したいと考えています。

コンソール プログラムで PeekMessage または AllocateHWND を使用できますか?

パイプでこの作業ができることは知っていますが、ウィンドウメッセージでこれができるかどうか知りたいです。

Answer 1

はい、できます。AllocateHWND を使用して、ウィンドウ ハンドルを作成します。次に、さまざまなプロパティ (名前など) を設定できるので、FindWindow を使用して検索できます。