Delphi WinAPI 消息函数 PostMessage

Delphi WinAPI 消息函数 PostMessage

描述：在与创建指定窗口的线程关联的消息队列中放置（发布）消息，并在不等待线程处理消息的情况下返回。要在与线程关联的消息队列中发布消息，请使用PostThreadMessage函数。

原型：

BOOL PostMessageA(
  HWND   hWnd,   //窗口的句柄，其窗口过程是接收消息
  UINT   Msg,     //要发布的消息。
  WPARAM wParam,  //附加消息特定信息。integer值
  LPARAM lParam　　//附加消息特定信息。integer值
);　

参数：

　HWND 取值：

• 　HWND_BROADCAST //该消息将发布到系统中的所有顶层窗口，包括禁用或不可见的无主窗口、重叠窗口和弹出窗口。消息不会发布到子窗口
• 　NULL //该函数的行为类似于对PostThreadMessage的调用，dwThreadId参数设置为当前线程的标识符。

返回值：

• 如果函数成功，则返回值为非零。
• 如果函数失败，返回值为零。若要获取扩展的错误信息，请调用GetLastError。当达到限制时，GetLastError 返回错误 “ERROR_NOT_ENOUGH_QUOTA ”。

注意：

• 当UIPI阻止消息时，使用GetLastError检索的最后一个错误设置为5（拒绝访问）。
• 通过调用GetMessage或PeekMessage函数来检索消息队列中的消息。
• 需要使用HWND_BROADCAST进行通信的应用程序应使用RegisterWindowMessage函数获取用于应用程序间通信的唯一消息。
• 系统只对系统消息（范围在0到（WM_USER-1））进行编组。要将其他消息（那些>=WM_USER的消息）发送到另一个进程，必须执行自定义封送。
• 如果向异步消息函数（PostMessage、SendNotifyMessage和SendMessageCallback）发送低于WM_USER范围的消息，则其消息参数不能包含指针。否则，操作将失败。函数将在接收线程有机会处理消息之前返回，发送方将在使用之前释放内存。
• 不要使用PostMessage发布WM_QUIT消息；请使用PostQuitMessage函数。
• 辅助功能应用程序可以使用PostMessage将WM_APPCOMMAND消息发布到shell以启动应用程序。此功能不能保证适用于其他类型的应用程序。

一个消息队列最多可以包含10000条消息。这个限制应该足够大。如果应用程序超出了限制，则应重新设计，以避免消耗大量系统资源。要调整此限制，请修改以下注册表项。

HKEY_LOCAL_MACHINE
   SOFTWARE
      Microsoft
         Windows NT
            CurrentVersion
               Windows
                  USERPostMessageLimit

最小可接受值为4000。　

Delphi 使用示例：

发送

var
　nMsg: UINT;
procedure Form1.FormCreate(Sender: TObject);
begin
  nMsg := RegisterWindowMessage('传送数据');
end;

PostMessage(HWND_BROADCAST, nMsg, data, 0);　　

接收

public
    procedure  HandleMessage(var msg: TagMsg;var handled: Boolean);

var
  mMsg: UINT;

procedure Form1.FormCreate(Sender: TObject);
begin
  mMsg := RegisterWindowMessage('传送数据');
  Application.OnMessage := HandleMessage;
end;

procedure Form1.HandleMessage(var msg: TagMsg; var handled: Boolean);
begin
  if msg.message = mMsg then
  begin
    Edit1.Text := '接受数据:' + msg.wParam;
  end;
end;

创建时间：2020.10.20　　更新时间：