Delphi WinAPI 消息函数 PostMessage

Delphi WinAPI 消息函数 PostMessage

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

原型：

?

1 2 3 4 5 6

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条消息。这个限制应该足够大。如果应用程序超出了限制，则应重新设计，以避免消耗大量系统资源。要调整此限制，请修改以下注册表项。

?

1 2 3 4 5 6 7

HKEY_LOCAL_MACHINE    SOFTWARE       Microsoft          Windows NT             CurrentVersion                Windows                   USERPostMessageLimit

最小可接受值为4000。　

 

Delphi 使用示例：

发送

?

1 2 3 4 5 6 7 8

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

接收

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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　　更新时间：