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 更新时间:
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助,谢谢!