Question

我有两个应用程序需要通过PostMessage进行通信（因为我需要让第二个应用程序能够在被调用时输出到Excel，因此排除了SendMessage。

到目前为止应用程序1 会调用应用程序2 ，确保它已打开，并且当它被启用时，App 1将被设置为禁用。

当用户完成应用程序2 后，我需要将返回的消息发送到 Applciation 1 以允许其解锁。

我使用以下方法在每个应用程序中注册了相同的Windows消息：

const
  MyMessage = 'My-Message';

var
  MyMessageID: cardinal;

procedure TMF.FormCreate(Sender: TObject);
begin
  MyMessageID := RegisterWindowMessage(MyMessage);
end;

在应用程序2中，我可以使用以下命令将消息发布到应用程序1

targetHandle := FindWindow(Pchar('TMF'), Pchar('Send Test'));
...
if PostMessage(targetHandle, (MyMessageID), 0, 0) then
...

我不明白的是我如何在应用程序1中声明处理程序。

如果我使用的是标准Windows消息，例如WM_COPYDATA，我会声明一个程序

procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;

但是因为我不能足够早地宣布MyMessageID而失败了。

也许是因为它是星期五下午，但是我错过了什么？

Answer 1

您不能使用message关键字，因为在编译时不知道消息常量。相反，您必须覆盖WndProc：

procedure WndProc(var Message: TMessage); override;
....
procedure TMF.WndProc(var Message: TMessage);
begin
  inherited;
  if Message.Msg = MyMessageID then begin 
    ....
  end;
end;

Delphi：如何从PostMessage接收自定义Windows消息？

1 个答案: