Delphi WinAPI 消息函数 PostMessage

你是个啥 發表於 2020-10-20 16:11:00

Delphi WinAPI 消息函数 PostMessage
描述：在与创建指定窗口的线程关联的消息队列中放置（发布）消息，并在不等待线程处理消息的情况下返回。要在与线程关联的消息队列中发布消息，请使用PostThreadMessage函数。
原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">BOOL PostMessageA(
HWND hWnd, //窗口的句柄，其窗口过程是接收消息
UINT Msg, //要发布的消息。
WPARAM wParam,//附加消息特定信息。integer值
LPARAM lParam　　//附加消息特定信息。integer值
);　</pre>
</div>
参数：
　HWND 取值：
<ul>
<li>　HWND_BROADCAST    //该消息将发布到系统中的所有顶层窗口，包括禁用或不可见的无主窗口、重叠窗口和弹出窗口。消息不会发布到子窗口</li>
<li>　NULL   //该函数的行为类似于对PostThreadMessage的调用，dwThreadId参数设置为当前线程的标识符。</li>
</ul>
返回值：
<ul>
<li>如果函数成功，则返回值为非零。</li>
<li>如果函数失败，返回值为零。若要获取扩展的错误信息，请调用GetLastError。当达到限制时，GetLastError 返回错误 “ERROR_NOT_ENOUGH_QUOTA ”。</li>
</ul>
注意：
<ul>
<li>当UIPI阻止消息时，使用GetLastError检索的最后一个错误设置为5（拒绝访问）。</li>
<li>通过调用GetMessage或PeekMessage函数来检索消息队列中的消息。</li>
<li>需要使用HWND_BROADCAST进行通信的应用程序应使用RegisterWindowMessage函数获取用于应用程序间通信的唯一消息。</li>
<li>系统只对系统消息（范围在0到（WM_USER-1））进行编组。要将其他消息（那些>=WM_USER的消息）发送到另一个进程，必须执行自定义封送。</li>
<li>如果向异步消息函数（PostMessage、SendNotifyMessage和SendMessageCallback）发送低于WM_USER范围的消息，则其消息参数不能包含指针。否则，操作将失败。函数将在接收线程有机会处理消息之前返回，发送方将在使用之前释放内存。</li>
<li>不要使用PostMessage发布WM_QUIT消息；请使用PostQuitMessage函数。</li>
<li>辅助功能应用程序可以使用PostMessage将WM_APPCOMMAND消息发布到shell以启动应用程序。此功能不能保证适用于其他类型的应用程序。</li>
</ul>
一个消息队列最多可以包含10000条消息。这个限制应该足够大。如果应用程序超出了限制，则应重新设计，以避免消耗大量系统资源。要调整此限制，请修改以下注册表项。
<div class="cnblogs_Highlighter">
<pre class="brush:bash;gutter:true;">HKEY_LOCAL_MACHINE
SOFTWARE
 Microsoft
 Windows NT
 CurrentVersion
 Windows
 USERPostMessageLimit
</pre>
</div>
最小可接受值为4000。　
 
Delphi 使用示例：
发送
<div class="cnblogs_Highlighter">
<pre class="brush:bash;gutter:true;">var
　nMsg: UINT;
procedure Form1.FormCreate(Sender: TObject);
begin
nMsg := RegisterWindowMessage('传送数据');
end;

PostMessage(HWND_BROADCAST, nMsg, data, 0);　　</pre>
</div>
接收
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">public
procedureHandleMessage(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;
</pre>
</div>
　　
　　
 
 
创建时间：2020.10.20　　更新时间：
 

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/13847067.html

頁: [1]

琼殿技术论坛's Archiver

Delphi WinAPI 消息函数 PostMessage